Hallo,

folgendes Problem:
Ich möchte Entwicklern die meine Funktionen verwenden die Möglichkeit bieten
innerhalb eines offenen Parameter-Arrays alle Typen zu übergeben.

Beispiel

markieren

Delphi-Quellcode:

function MyFunc(AParams: const array of Variant): Boolean;
begin
  // ..
end;

Ein Aufruf könnte so geartet sein:

markieren

Delphi-Quellcode:

if MyFunc(['Hallo Welt', 123]) then
begin
  // ..
end;

Funktioniert wunderbar.

Allerdings soll es den Entwicklern auch möglich sein Objekte (by Ref) zu übergeben.
Bisher ist dies nur möglich indem das Objekt so übergeben wird:
MyFunc([Integer(MyObject]); // Zeiger als Integer behandeln Allerdings ist das recht unschön.

Ziel des ganzen Spaßes ist es anonyme Werte an die Funktion bequem und schön zu übergeben.
Wenn jemand einen geschickteren Weg kennt, ich bin für Vorschläge offen.

Was ich allerdings nicht möchte ist, dass der Programmierer gezwungen ist
ein Parameterobjekt zu erzeugen und das dann an die Funktion weitergibt.

Danke

Crosslink im DF

Hallo,

Versuchs mal so:

markieren

Delphi-Quellcode:

function MyFunc(AParams: Array of const): Boolean;
begin
  // ..
end;

// Aufruf:
if MyFunc([MyObject,123,'Test123',false]) then
  // ...

Ich hatte das damals schon mit einem array of const versucht.
Hatte nur die verschiedenen Daten-Typen nicht korrekt auswerten können.
Nun habe ich es erneut versucht und auch den Fehler gefunden:

zusammenfalten · markieren

Delphi-Quellcode:

... AParams: array of const ...

  for LIdx := Low(AParams) to High(AParams) do
  begin
    case AParams[LIdx].VType of
      vtInteger: //;
      vtString,
      vtWideString,
      vtUnicodeString: //;
      vtObject: ShowMessage('Object');
    end;
  end;

Ich hatte mich damals auf die Hilfe verlassen nur der Typ vtUnicodeString ist
in Delphi 2010 in der Hilfe nicht beschrieben.

Danke für den Tipp, jetzt klappt auch alles, was ich vor habe.