Hallo,
ich bin gestern über ein merkwürdiges Verhalten gestolpert.
In eine repeat until Schleife wurde im until Bereich mit high(aArray)>1 geprüft.
Der Compiler hat die until Prüfung einfach nicht gemacht und schon hatte ich eine Endlos Schleife.
Hier ein Beispiel:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
aArray: Array of String;
begin
SetLength(aArray, length(aArray)+1);
repeat
SetLength(aArray, length(aArray)+1);
until (high(aArray) >= 5);
end;