AssignStr

函式功能

將字元串S更新給字元串指針P

函式說明

首部 procedure AssignStr(var P: PString; const S: string); deprecated; $[SysUtils.pas

功能 將字元串S更新給字元串指針P

說明 更新值時會釋放以前字元串指針的資源

參考 function SysUtils.NewStr;function SysUtils.DisposeStr

例子

////////Begin AssignStr

procedure TForm1.Button1Click(Sender: TObject);

var

P: PString;

begin

P := nil;

AssignStr(P, Edit1.Text);

Edit2.Text := P^;

DisposeStr(P);

end;