Delphi функция которая возвращает 2 значения

[denisbrain]

Сообщение от Пепел Феникса

согласен..

type
 Tresult=record
   a,b,c:integer;
   s1,s2,s3:string;
   v1,v2:boolean;
 end;

implementation


Function GetMy(x1,x2:integer):Tresult;
begin
 result.a:=x1+x2;
 result.s1:='Текст  '+inttostr(x1);
 result.v1:=true;
end;