[omaryan]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure A(var X); begin   X := X + 'A'; end;   procedure TForm1.Button1Click(Sender: TObject); var   S: String; begin   S := '123';   A(S);   ShowMessage(S); end;

Как исправить ошибку, так, чтобы сообщение показывало "123A"?

[Karsh]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure A(var X); begin   String(X) := String(X) + 'A'; end;   procedure TForm1.Button1Click(Sender: TObject); var   S: String; begin   S := '123';   A(S);   ShowMessage(S); end;