WinAPI字符及字符串函数(10):lstrcpy

interface
使用
窗口、消息、系统工具、变量、类、图形、控件、表单、
对话框、StdCtrls
type
t form 1 = class(t form)
button 1:t button；
button 2:t button；
button 3:t button；
过程按钮1Click(发件人:to object)；
过程按钮2 click(Sender:to object)；
过程按钮3 click(Sender:to object)；
end；
var
form 1:t form 1；
实现
{$R *。dfm}
过程TForm1。Button1Click(发件人:to object)；
var
p，P1:PChar；
begin
P1:= ' Delphi '；
GetMem(p，256)；
lstrcpy(p，P1)；
show message(p)；{ Delphi }
FreeMem(p)；
end；
过程TForm1。Button2Click(发送方:to object)；
var
p，p1，p2:PChar；
begin
P1:= ' Delphi '；
p2:= ' 2009 '；
p:= StrAlloc(256)；
lstrcpy(p，P1)；
lstrcpy(p，p2)；
show message(p)；{ 2009 }
StrDispose(p)；
end；
过程TForm1。Button3Click(发送方:to object)；
var
p:PChar；
buf: array[0..255]的Char
begin
p:= ' Delphi blog in case '；
lstrcpy(buf，p)；
show message(buf)；{ Delphi blog in case }
end；
结束。