[omaryan]

Код:

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]

Код:

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;