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]