Einzelnen Beitrag anzeigen

Peter-Pascal

Registriert seit: 18. Feb 2007
Ort: 32139 Spenge
199 Beiträge
 
Delphi 11 Alexandria
 
#1

Probleme bei if - then ...

  Alt 28. Mär 2010, 22:19
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]
Peter Niemeier
  Mit Zitat antworten Zitat