Example:
Code: Select all
procedure MyProcedure(var MyString: string);
begin
MyString := MyString + 'add this';
end;Thanks for aid.
Pivello
Code: Select all
procedure MyProcedure(var MyString: string);
begin
MyString := MyString + 'add this';
end;