Function X (a: integer ): RECORDtyp ;

[Luckie]

Zitat von Hansa:

Eine Funktion gibt als Wert einen Record zurück, sagenhaft. 8) Ich bitte um Mitteilung, wie das gehen soll.

Hier die Mitteilung:

Delphi-Quellcode:

type
  TMyRecord = record
    String1: String;
    String2: String;
end;

function foo(s1, s2: String): TMyRecord;
var
  bar: TMyRecord;
begin
  bar.String1 := s1;
  bar.String2 := s2;
  result := bar;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(foo('hello', 'world').String1);
end;