Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.059 Beiträge
 
Delphi 12 Athens
 
#19

Re: Freeware - Hilfsprogramm "Schleifentest"

  Alt 7. Mai 2010, 17:31
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.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat