Beliebige Menge von Objekten als Parameter übergeben?

[PeterPanino]

Wie kann man in einer Prozedur als Parameter eine Menge von nicht-ordinalen Objekten übergeben, z.B.:

Delphi-Quellcode:

var
  e1, e2, e3: TEdit;

// Fehler: E2001 Ordinaltyp erforderlich:
procedure DoSomething(MyEdits: Set of TEdit);
begin
  //
end;

//...
  DoSomething([e1, e3]);
//...

Ich möchte für den Paramater keinen Array-Typ verwenden, sondern am besten einen Typ, mit dem eine beliebige Menge von Objekten übergeben werden kann.

[hanselmansel]

Wenn es dir darum geht, eine beliebige Menge zu übergeben, kannst du ein dynamisches Array verwenden.

MfG,

hanselmansel

[Khabarakh]

Für so etwas gibt es Offene Array-Parameter.

[Jürgen Thomas]

Wenn es verschiedenartige Parameter sein sollen, kannst Du Dich am Quelltext der Format-Funktion orientieren:
{Delphi_2005}\source\Win32\rtl\sys\SysUtils.pas

Delphi-Quellcode:

procedure FmtStr(var Result: string; const Format: string;
  const Args: array of const);

Jürgen

[PeterPanino]

Zitat:

Zitat von Jürgen Thomas

Wenn es verschiedenartige Parameter sein sollen, kannst Du Dich am Quelltext der Format-Funktion orientieren:
{Delphi_2005}\source\Win32\rtl\sys\SysUtils.pas

Delphi-Quellcode:

procedure FmtStr(var Result: string; const Format: string;
  const Args: array of const);

Jürgen

Hm, in der Hilfe ist Args als array of TVarRec deklariert, im Quelltext von FmtStr jedoch als array of const. ???

[PeterPanino]

... und FmtStr ruft FormatBuf auf, das eine Assembler-Routine ist ...

Bei Arrays muss man den einzelnen Array-Elementen vorher die Werte zuweisen. Eleganter und einfacher wäre es, wenn man die Objektnamen einfach als Parameter in den Prozeduraufruf schreiben könnte, also z.B. DoSomething([e1, e3]); aber das geht ja nicht, weil Set of kein ordinaler Typ ist.

Geht das also in Object.Pascal nicht?

[Meflin]

Zitat:

Geht das also in Object.Pascal nicht?

Nein.

[hanselmansel]

Soweit ich weiß kannst du sehrwohl Mengen als Parameter übergeben. Du hast nur versucht, eine Menge von Objekten (oder auch deren Namen... :gruebel: ) zu erstellen, und daran hapert es AFAIK. Die Elemente müssen einen ordinalen also zählbaren Typ haben.
Es funktioniert zum Beispiel mit allen Zahlen bis 255 oder den Wochentagen oder ein paar Farben oder so... :|

Darum wird dir oben geraten ein Array von Objekten zu übergeben. :thumb:

[moonwhaler]

Wie also genau funktioniert es dann?

Zitat:

Zitat von Meflin

Zitat:

Geht das also in Object.Pascal nicht?

Nein.

Wie also funktioniert es dann genau? Mich würde das auch interessieren...

Gruss.

P.S.: Eine doppelte Verneinung ist ja wieder als Bejaung zu verstehen, richtig?

[Khabarakh]

Zitat:

Zitat von PeterPanino

Eleganter und einfacher wäre es, wenn man die Objektnamen einfach als Parameter in den Prozeduraufruf schreiben könnte, also z.B. DoSomething([e1, e3]);

Genau das ermöglichen dir doch offene Array-Parameter :gruebel: .

[hanselmansel]

Zitat:

Zitat von moonwhaler

Wie also funktioniert es dann genau? Mich würde das auch interessieren...

Ohne es nochmal auf absolute Richtigkeit zu prüfen: So wie es Jürgen und Khabarakh gesagt haben.

red box missing...

[Meflin]

Zitat:

Zitat von moonwhaler

P.S.: Eine doppelte Verneinung ist ja wieder als Bejaung zu verstehen, richtig?

Nein, esgeht nicht, oder ja, es geht nicht heisst beides es geht nicht ;)

das was du willst geht eben nur über arrays, aber nicht in der Form Foo(Param1, Param2,...ParamN)!!

[Khabarakh]

Zitat:

Zitat von Meflin

aber nicht in der Form Foo(Param1, Param2,...ParamN)!!

Die will er doch gar nicht :zwinker: . Die Aufrufform in seinem ersten Beitrag lässt sich exakt mit offenen Array-Parametern bewerkstelligen.

[PeterPanino]

Zitat:

Zitat von Khabarakh

Zitat:

Zitat von Meflin

aber nicht in der Form Foo(Param1, Param2,...ParamN)!!

Die will er doch gar nicht :zwinker: . Die Aufrufform in seinem ersten Beitrag lässt sich exakt mit offenen Array-Parametern bewerkstelligen.

Ja, aber dann muss die einzelnen Array-Elemente vorher zuweisen, und genau das möchte ich ja vermeiden ...

[Meflin]

Zitat:

Zitat von Khabarakh

Die will er doch gar nicht :zwinker: . Die Aufrufform in seinem ersten Beitrag lässt sich exakt mit offenen Array-Parametern bewerkstelligen.

Stimmt :oops: die würde nur ich gerne haben :mrgreen:

Zitat:

Zitat von PeterPanino

Ja, aber dann muss die einzelnen Array-Elemente vorher zuweisen, und genau das möchte ich ja vermeiden ...

Nein, musst du nicht :gruebel: du weist die Elemente ja im Funktionsaufruf zu... da musst du vorher kein array Füllen!

[JasonDX]

Zitat:

Zitat von PeterPanino

Ja, aber dann muss die einzelnen Array-Elemente vorher zuweisen, und genau das möchte ich ja vermeiden ...

Nein. Einfach mal ausprobieren:

Delphi-Quellcode:

procedure proc(params: array of TEdit);
var
  i: integer;
begin
  for i := low(params) to high(params) do
    with params[i] do
      Text := Name;
end;

  proc([Edit1, Edit2, Edit3, Edit4]);
  proc([]);
  proc([Edit1, Edit3]);

Kompiliert und funktioniert einwandfrei ;)

greetz
Mike

[PeterPanino]

Zitat:

Zitat von Meflin

Nein, musst du nicht :gruebel: du weist die Elemente ja im Funktionsaufruf zu... da musst du vorher kein array Füllen!

Ja, du hast recht! Wusste ich vorher nicht, dass das geht. Danke für dein Durchhaltevermögen! :thumb: