WinAPI字符及字符串函数(11):lstrcpyn

unit Unit1
接口
使用
窗口、消息、系统工具、变体、类、图形、控件、表单、
对话框、StdCtrls
type
t form 1 = class(t form)
button 1:t button；
过程按钮1Click(发件人:to object)；
end；
var
form 1:t form 1；
实现
{$R *。dfm}
过程TForm1。Button1Click(发件人:to object)；
var
p:PChar；
buf: array[0..255]的Char
begin
p:= ' Delphi '；
lstrcpyn(buf，p，3+1)；
show message(buf)；{Del}
lstrcpyn(buf，p，-1)；
show message(buf)；{ Delphi }
end；
结束