Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
procedure EditString (s : string);
begin
s:='5';
end;
procedure TForm19.Button1Click(Sender: TObject);
var
ss : string;
begin
ss:='1234';
EditString(ss);
ShowMessage(ss);
end;
Использование процедур и функций в Delphi