Freeware - Hilfsprogramm "Schleifentest"

[himitsu]

Code:

For n = xx to yy step zz

Delphi-Quellcode:

for nz := 0 to (yy - xx) div zz do 
begin
  n := nz * zz + xx;


end;

oder

Delphi-Quellcode:

n := xx;
while n <= yy do 
begin


  Inc(n, zz);  // n := n + zz;
end;

Dein Code funktioniert jedenfalls nicht;

Delphi-Quellcode:

// For n = 22 to 90 step 4 
for e := 22 to 90 div 4 do
begin
  n := e * 4;
  Memo1.Lines.Add(IntToStr(n));
end;

Zitat von Teekeks:

Der von mir gepostete Virustest war von deiner neuen Variante (also deine Neukompilierung...)

Wenn Windows befalllen ist, dann sind alle Dateien potentiell gefährdet und somit auch beide Delphi-Installationen.

@ccc2: Hast du bei dir ein Antiviren-Programm installiert?
Ich würde dir jedenfalls dringend anraten dein System mal zu prüfen.