Wie umschreibe ich "For N in P" für alte Delphi's ?

[Der schöne Günther]

Zitat von myicq:

ich benutzt leider immer noch D6.

Warum tut man sich so etwas an? 🤔

[Stevie]

Delphi-Quellcode:

var
  e: enumerator;
  v: value;
begin
  e := list.getenumerator;
  while e.movenext do
  begin
    v := e.getvalue;
    // mach was mit v
  end;

ggf noch in nen try finally drumrum, je nachdem, was enumerator fürn typ ist - damit dann noch ein Free folgt.

[hoika]

Hallo,
und ev. aufpassen/prüfen, ob list.getenumerator
nicht schon auf dem ersten Listenelement steht.
Dann wäre es statt der while- eine repeat/until Schleife.

[Uwe Raabe]

Kann nicht sein, denn sonst könnte man eine leere Liste nicht erkennen.

[himitsu]

jupp, ein Enumerator muß immer vor dem ersten Item initialisiert sein (quasi Index = -1), also das 1. Item erst beim ersten MoveNext.

[myicq]

Danke für die Antworte. Jetzt muss ich nur noch die Enumerator selber auch umschreiben, da ich bei D6 under Records keine "function XYZ" oder "proceudure ZYA" haben kann.. Ja, ich hätte mich auch was besseres gewünscht als D6. Ist aber beruflich, und ich Pflege eine 20 Jahre codebase.

Ich aktualisiere mein Code wenn alles iO ist.

[himitsu]

Mit Delphi 2006/2007 kannst auch noch Altcode pflegen ... das waren die letzten Versionen mit ANSI. (ab D2009 Unicode und später noch mal andere "größere" Änderungen)

Wenn man Delphi kauft, dann bekommt man gratis Lizenzen für alte Versionen (D7, D2007 und Neuer ... vor D7 kann aber Embarcadero nicht unterstützen, da sie die Rechte dafür nicht besitzen)