Delphi 調用 WinAPI：lstrcpy 字符串複製

基本字符串複製：lstrcpy 與各類緩衝區配合

lstrcpy(dest, src) 將源字符串完整複製到目標緩衝區（含結束符），目標緩衝區必須足夠大。示例涵蓋動態分配、靜態數組、StrAlloc 三種目標緩衝區形式。

三種緩衝區用法

procedure TForm1.Button1Click(Sender: TObject);  {GetMem/FreeMem}
var p, p1: PChar;
begin
  p1 := 'Delphi';
  GetMem(p, 256);
  lstrcpy(p, p1);  ShowMessage(p);  {Delphi}
  FreeMem(p);
end;

procedure TForm1.Button2Click(Sender: TObject);  {StrAlloc/StrDispose + 覆蓋複製}
var p, p1, p2: PChar;
begin
  p1 := 'Delphi'; p2 := '2009';
  p := StrAlloc(256);
  lstrcpy(p, p1);  {先複製 Delphi}
  lstrcpy(p, p2);  {再複製 2009 覆蓋}
  ShowMessage(p);  {2009}
  StrDispose(p);
end;

procedure TForm1.Button3Click(Sender: TObject);  {靜態 Char 數組}
var p: PChar; buf: array[0..255] of Char;
begin
  p := '萬一的 Delphi 博客';
  lstrcpy(buf, p);  ShowMessage(buf);  {萬一的 Delphi 博客}
end;

注意： lstrcpy 不檢查目標緩衝區大小，源串過長會導致緩衝區溢出。生產代碼建議使用 lstrcpyn 或 StrLCopy。