该放什么值调用它?

Question

procedure Test(S1 : string; const S2 : string; var S3 : string);
begin
  S1 := S2;
  S3 := S1;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  S1, S2, S3 : string;
begin
  S1 := 'abc';
  S2 := '123';
  S3 := 'xyz';
  Test(S1, S2, S3);
  ShowMessage();    <---- 这里该放什么值,才能完整显示你给的例子???end;

Answer 1

难道是showMessage(s1+s2+s3),或者用ShowMEssage(Formate(...)),或者ShowMessageFmt(..)

Answer 2

ShowMessage(s1+#13+s2+#13+s3);
干脆全显示出来。

Answer 3

对对~
怎么我那么笨, 我看我还没有Delphi 的思想~

Answer 4

Delphi(Pascal) code
ShowMessage(s1+#13+s2+#13+s3);干脆全显示出来。