Delphi调用WinAPI 字符及字符串函数（11）

Delphi调用WinAPI 字符及字符串函数（11）2012-04-09 cnblogs dellstrcpyn - 复制字符串, 同时指定要复制的长度

unit Unit1;

interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class（TForm）
  Button1: TButton;
  procedure Button1Click（Sender: TObject）;
 end;

var

 Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click（Sender: TObject）;

var
 p: PChar;
 buf: array[0..255] of Char;
begin
 p := "Delphi";
 lstrcpyn（buf, p, 3+1）;
 ShowMessage（buf）; {Del}
 lstrcpyn（buf, p, -1）;
 ShowMessage（buf）; {Delphi}
end;

end.