Delphi6函数大全（3）

y
━━━━━━━━━━━━━━━━━━━━━
首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils.pas
功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中
说明 Dest应已经分配足够的空间非则将触发异常
参考 <NULL>
例子
///////Begin StrLCopy
procedure TForm1.Button1Click(Sender: TObject);
var
VBuffer: array[0..255] of Char;
begin
StrLCopy(VBuffer, PChar(Edit1.Text), SpinEdit1.Value);
Edit2.Text := VBuffer;
end;
///////End StrLCopy
━━━━━━━━━━━━━━━━━━━━━
首部 function StrPCopy(Dest: PChar; const Source: string): PChar; $[SysUtils.pas
功能 返回将指针字符串Source复制到指针字符串Dest中
说明 StrLCopy(Dest, PChar(Source), Length(Source))
参考 function SysUtils.StrLCopy
例子
///////Begin StrPCopy
procedure TForm1.Button1Click(Sender: TObject);
var
VBuffer: array[0..255] of Char;
begin
StrPCopy(VBuffer, PChar(Edit1.Text));
Edit2.Text := VBuffer;
end;
///////End StrPCopy
━━━━━━━━━━━━━━━━━━━━━

[1] [2] 下一页

 

 

上一页  [1] [2] [3] [4] 

   

进入问吧