Wie erstelle ich ein Open Array of TModifiier..

[corpsman]

Servus,

ich habe folgende Deklaration :

Code: Alles auswählen

 
Type
  TModifiier = Record
    FromOP, ToOP: String;
  End;
 
Procedure Blub(UnaryModifierList: Array Of TModifiier);     
begin
end;
 

Nun möchte ich Blub aufrufen. Und würde gerne die Parameter im Code angeben

Code: Alles auswählen

 
          Blub(['asd', 'asd']);
        Blub([[FromOP: 'asd', ToOP: 'asd']]);
 

so gehts nicht, auch mit diversen anderen Klammern gehts nicht.

Weis einer von euch wie ich das richtig schreiben muss ?

[Socke]

Weis einer von euch wie ich das richtig schreiben muss ?

Du musst deine Werte wohl zuerst in einer Konstante ablegen:

Code: Alles auswählen

const
  am: TModifiier = (FromOp: 'Hallo'; ToOP: 'Blub');
begin
  Blub([am]);
end.

[corpsman]

Danke, sowas hatte ich befürchtet.

Ich hatte die Hoffnung es komplett ohne die Const machen zu können.

[wp_xyz]

Man sollte die Hoffnung nie aufgeben: Deklariere das Array in der Parameterliste als "const", dann geht's. Beispiel:

Code: Alles auswählen

 
procedure Blub(const Data: array of string);
var
  i: Integer;
  s : String;
begin
  s := '';
  for i:=0 to Length(Data)-1 do
    s := s + ' ' + Data[i];
  ShowMessage(s);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Blub(['Hallo', 'Welt']);
end;  
 

[corpsman]

Mit einfachen String Array's gehts auch ohne const

mein Problem ist das ich array of Record habe.

[theo]

Was willst du eigentlich erreichen?
Ich verstehe das Ziel nicht so ganz. Kannst du nicht nur mit Strings arbeiten?
'eins,zwei,drei'

[corpsman]

Die Idee war, es möglichst "Leserlich" im Code zu haben.

Wenn ich es hätte aufrufen können und die Konstanten direkt als übergabeparameter geschrieben hätte, könnte man es eben einfacher lesen.

Mitlerweile konnte ich das Problem anders Lösen, so ist die Frage rein Theoretischer Natur *g*, und eigentlich ja gelöst.

Gruß

Corpsman