function mit zwei Rückgabewerten?

[ManuMF]

@RavenIV: genau.
Hier noch mal dazu mein Code von oben:

Zitat von ManuMF:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Rueckgabe: TStringAndInt;
begin
  Rueckgabe := Test;
  Showmessage(Rueckgabe.rString + ' ' + IntToStr(Rueckgabe.rInteger));
end;