Delphi-Quellcode:
var start: LongWord;
start := GetTickCount;
for i:= 0 to 100 do
begin
for j:= 0 to 100 do
begin
if GetTickCount - start > 10000 then break;
end;
if GetTickCount - start > 10000 then break;
end;
// 10000ms = 10s
// oder mit 'ner zusätzlichen Variable
var start: LongWord;
b: Boolean;
start := GetTickCount;
for i:= 0 to 100 do
begin
for j:= 0 to 100 do
begin
b := GetTickCount - start > 10000;
if b then break;
end;
if b then break;
end;
also statt der "zeitraubenden" Berechnungen via EncodeTime und den ganzen reellen Zahlen, macht sich 'ne kleine Interegeroperation via GetTickCount wohl besser
und wenn man kein hartes Exit mag, dann halt einfach mehrere Abbruchbedingungen