Prozedur nach bestimmter Zeit abbrechen

[himitsu]

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