Frage zu "Typenkompatibilität" und "array index"

[barnti]

Habe im Forum folgendes gefunden:

Delphi-Quellcode:

Type TWochenTag = (Montag, Dienstag, Mittwoch, Donnerstag, Freitag, Samstag, Sonntag); 
     TNachtwaechter = Record 
                        Vorname, 
                        Nachname, 
                        Strasse, 
                        PLZ_Ort: string; 
                      end; 

... 

VAR Nachtwaechter: Array[Montag..Sonntag] of TNachtwaechter;

Meine Frage: Gibt es eine Möglichkeit, evtl mit kleinen Änderungen, nicht über den "enumeration Typ" (Montag..Sontag) auf das array zuzugreifen, sondern auch über einen Index. Bsp:

Nachtwaechter[1].Vorname:= 'Karl-Heinz' Ich würde gern die Möglichkeit nutzen per Enum auf den Inhalt zuzugreifen. Bei der Initialisierung würde ich aber gern mit einer Schleife arbeiten, in etwa:

Delphi-Quellcode:

for i:=0 to count do
  Nachtwaechter[i].name:= List.items[i];

Ideen? Her damit

Danke & Gruß,

Barnti

[Phoenix]

Hehe, in genau dem gleichen Thread steht das hier.

Code:

var Nachtwaechter: Array[1..7] of TNachtwaechter;

Somit hast Du 7 Elemente die Du mit Nachtwaechter[1] bis Nachtwaechter[7] auch mit einer Variablen ansprechen kannst.

[Phoenix]

Achso. Frage im ersten Moment falsch verstanden.

Ja, das geht, und zwar musst Du da mal nach RTTI suchen. Da findest Du informationen wie die Enums intern aufgelöst werden um sie direkt anzusprechen.

[kiar]

mache aus deinen var typ einfach:var nachtwaechter:array[1..7] of tnachtwaechter;

[Phoenix]

Zitat von kiar:

mache aus deinen var typ einfach:var nachtwaechter:array[1..7] of tnachtwaechter;

Na, das will er ja nicht. Er will ja zum initialisieren mit einer Schleife durch und an anderen Stellen aber weiterhin mit der Enumeration darauf zugreifen. Das geht so freilich nicht.

Deswegen muss man da einen Umweg über die RTTI nehmen.

[kiar]

hallo phoenix,

ist ja richtig, mir ging es genau wie dir, bloß war ich ein wenig langsamer

raik

[barnti]

Hi phoenix,

ich habe Dein Beispiel zwar gefunden, leider aber nicht ganz durchschaut. Ist es möglich, dass Du mir Beispielcode dazuschreibst? Ich weiß so einfach nicht, wie ich über das Array iterieren soll?! Sorry!

Danke & Gruß,

Barnti

[Phoenix]

Ist eigentlich ganz einfach:

Delphi-Quellcode:

var
  i: integer;
begin
  for i := ord( low( TWochenTag ) ) to 
           ord( high( TWochenTag ) ) do
  begin
    // i geht vom ersten bis zum letzten Element durch
  end;
end;

Schau dazu auch mal in die Onlinehilfe zum Thema "TypeInfo".

[barnti]

Hallo,
also irgentwie ist mir das nicht ganz klar. Vielleicht muss ich noch mal ausholen:

Delphi-Quellcode:

var
  i: integer;
begin
  for i := ord( low( TWochenTag ) ) to
           ord( high( TWochenTag ) ) do
  begin
    Nachtwaechter[i].Name      //Hier ist das Problem. Ich muss irgentwie über das Array
                              // iterieren. So geht es nicht. Enum-Typ gefordert
  end;
end;

Wie iteriere ich hier über das Array "Nachtwaechter", so dass ich alle Positionen beschreiben kann?

Gruß,

Barnti

[Jens Schumann]

Hallo,
wo ist denn das Problem ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iCnt : TWochentag;
  Nachtwaechter: Array[TWochenTag] of TNachtwaechter;
begin
  For iCnt:=Montag to Sonntag do
    Nachtwaechter[iCnt].Nachname:='Problem gelöst';
end;