Probleme bei if - then ...

[Peter-Pascal]

Hallo,

vielleicht ist es auch etwas spät und ich sehe den Wald vor lauter Bäumen nicht, aber ...

folgender Code: (es geht um die fett geschriebene Zeile)

Delphi-Quellcode:

type
TAbschlussRecord = record
    KontoNr : integer;
    Soll, Haben : currency;
  end;

  TAbschlussArray = array of TAbschlussRecord;

a ist vom Typ TAbschlussRecord

//kein Konto vorhanden, freien Eintrag suchen
  if frei = -1 then
    for I := 0 to length(a) - 1 do
      if a[i].KontoNr = 0 then  //Diese Bedingung wird wahr ...     
      begin
        frei := I;
        exit;
      end;

Die Bedingung ist wahr, nur statt die Folgeanweisung abzuarbeiten, springt Delphi an das Ende der Routine. Die zwei Anweisungen frei := i; und exit; macht delphi nicht.
Seht ihr irgendwo einen Syntaxfehler? Ohne begin und end arbeiteit Delphi die Anweisung sauber ab.

Gruß
Peter

[edit=Luckie]Delphi-Tags gesetzt. Beim nächsten mal bitte selber setzen. Mfg, Luckie[/edit]