function mit 2 ausgabewerten

[Dax]

Delphi-Quellcode:

type
  TFoo = record
    a, b: string;
  end;

function Bar(s: string): TFoo;
begin
  Result.a := s + ' <- sorum';
end;