var Form1: TForm1; AString:String;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject); var Chars:array[0..6] of char; begin StrLCopy(Chars,PChar('1234567'),SizeOf(Chars)); //初始化char数组 AString:=String(Chars); //转化为string ShowMessage(AString); end;
Form1: TForm1;
AString:String;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
var
Chars:array[0..6] of char;
begin
StrLCopy(Chars,PChar('1234567'),SizeOf(Chars)); //初始化char数组
AString:=String(Chars); //转化为string
ShowMessage(AString);
end;