首页 / 软件开发 / Delphi / Delphi调用WinAPI 字符及字符串函数（10）

Delphi调用WinAPI 字符及字符串函数（10）2012-04-08 cnblogs 万一lstrcpy - 复制字符串

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class（TForm）
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click（Sender: TObject）;
procedure Button2Click（Sender: TObject）;
procedure Button3Click（Sender: TObject）;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click（Sender: TObject）;

var
p,p1: PChar;
begin
p1 := "Delphi";
GetMem（p, 256）;
lstrcpy（p, p1）;
ShowMessage（p）; {Delphi}
FreeMem（p）;
end;

procedure TForm1.Button2Click（Sender: TObject）;

var
p,p1,p2: PChar;
begin
p1 := "Delphi";
p2 := "2009";
p := StrAlloc（256）;
lstrcpy（p, p1）;
lstrcpy（p, p2）;
ShowMessage（p）; {2009}
StrDispose（p）;
end;

procedure TForm1.Button3Click（Sender: TObject）;

var
p: PChar;
buf: array[0..255] of Char;
begin
p := "万一的 Delphi 博客";
lstrcpy（buf, p）;
ShowMessage（buf）; {万一的 Delphi 博客}
end;

end.