Viele Daten per Function übergeben

[alzaimar]

Wie wäre es mit einem Variant:

Delphi-Quellcode:

Type
  TMyObject = Class
    fString1,
    fString2 : String;
    fInteger : Integer;
    fMyFloat : Double;
  Public
    Function Data : Variant;
 End;

Procedure TMyObject.Data : Variant;
Begin
  VarArrayCreate (Result, [0,3]); // Ich glaube so gehts
  Result [0] := fString1;
  Result [1] := fString3;
  Result [2] := fInteger;
  Result [3] := fMyFloat;
End;

Und Abrufen geht so;

Delphi-Quellcode:

Var
  MyData : Variant;

Begin
  MyData := MyObject.Data;
// Und Zugriff über
  String1 := MyData[0];
// etc.