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

[Phoenix]

Du castest das i einfach als TWochentag:

Delphi-Quellcode:

for i ... to ... do begin
   Nachtwachter[TWochentag(i)].Name := 'xxx';
end;

[barnti]

Hallo Jens,

Tja, warum einfach, wenns auch kompliziert geht?! Danke! Das Brett war (etwas) dicker.

Tschau & Danke an alle Beteiligten,

Barnti

[barnti]

Jetzt ist mir doch noch etwas eingefallen:

Ich möchte mein Array[TWochentag] of Nachtwaechter über eine Variable in Form eines Strings ansprechen:

Delphi-Quellcode:

function GetName(Wochentag: String): String;
begin
  result:= Nachtwaechter[Wochentag].name;     // so leider nicht
end;

Ich brauche für einen übergebenen Parameter, gezwungener Maßen ein String, den Inhalt des Records. Geht das mit einem Cast-Operator?
So in etwa:

[/delphi]
result:= Nachtwaechter[TWochentag(Wochentag)].Name
[delphi]

Kann jemand helfen?

Gruß,

Barnti

[Phoenix]

Jetzt guckst Du bitte mal hier: klick!

Da steht, wie Du die einzelnen Strings der WOchentage in eine Stringlist bekommst.
Du musst nun die Benutzereingabe (am besten über eine Listbox, geht aber auch als normaler String) in den Index auflösen. Bei der LIstbox hast Du das durch den Itemindex, bei einem normalen String musst Du halt selber vergleichen.

Den index castet Du als TWochentag und gut ist :)

[barnti]

Danke! So isses auch gut jetzt...

Gruß,

Barnti

[Robert Marquardt]

Delphi-Quellcode:

VAR
  Nachtwaechter: array [TWochenTag] of TNachtwaechter;
  I: TWochenTag;
begin
  for I := Low(TWochenTag) to High(TWochenTag) do
    List[Ord(I)]

Enumerationen sind ordinale Typen und Schleifen funktionieren mit ordinalen Typen.
Ord(I) liefert die Werte 0 bis 6 in der Schleife