Freeware - Hilfsprogramm "Schleifentest"

[Teekeks]

Hi!
Mich würde auch interresieren was das macht.
Aber ich mach mir auch mal "die mühe":

Delphi-Quellcode:

var i:integer=0;
while i<42 do
begin
  {Tu irgendwas mit i}
  Inc(i,{Schrittweite});
end;

Fertig.

Wo ist das Problem?

[himitsu]

Es ist schonmal nicht der Delphi-Virus, sondern irgendein anderer.
(Der DelphiVirus heißt W32.Induct.*)

[Teekeks]

Ps:
Virustest...
Datei umbenennen und wieder rein stellen hilft nicht :) Du solltest schon mal was rein stellen was kein Virus ist :/

[himitsu]

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
  Var i: Integer;

  Begin
    For i in TStepper.Create(1, 20, 3) do
      Memo1.Lines.Add(IntToStr(i));
  End;

1 4 7 10 13 16 19

Ich weiß jetzt nur nicht genau ab welcher Delphiversion Enumeratoren eingeführt wurden.

Delphi-Quellcode:

Type TStepper = Class
  Private
    FIndex: Integer;
    FStep:  Integer;
    FMax:   Integer;
  Public
    Constructor Create(Min, Max, Step: Integer);
    Function GetEnumerator: TStepper;
    Function MoveNext:   Boolean;
    Function GetCurrent: Integer;
    Property Current:    Integer Read GetCurrent;
  End;

Function TStepper.GetEnumerator: TStepper;
  Begin
    Result := Self;
  End;

Constructor TStepper.Create(Min, Max, Step: Integer);
  Begin
    FIndex := Min - Step;
    FStep  := Step;
    FMax   := Max;
  End;

Function TStepper.MoveNext: Boolean;
  Begin
    Inc(FIndex, FStep);
    Result := FIndex <= FMax;
  End;

Function TStepper.GetCurrent: Integer;
  Begin
    Result := FIndex;
  End;

[jfheins]

Es muss ja gar nicht der Delphi Virus sein. Es ist doch kein unübliches Verhalten, dass ein Virus .exe Dateien infiziert, um sich selbst zu verbreiten, oder?

[ccc2]

@teekeks: die Sourcen hatte ich erst mit D3 (s. Profil !) und nach der Virusmeldung mit TD kompiliert.

Also gut...

Hier die Sourcen als ZIP-Datei.

Kann dann ja vielleicht jemand anderes als EXE reinstellen ??

Zur Frage der Funktion:

In Basic z.B. For n=22 to 90 step 4

In Delphi: Umständlich mit sinngemäß:

for n := xx to (yy div zz) do

Hier kann man nach Eingabe von xx, yy und zz in einer Listbox den Verlauf sehen.

[blackfin]

Delphi-Quellcode:

for n := xx to (yy div zz) do

Das hat irgendwie wenig mit Schleifen zu tun, deren Schrittweite grösser 1 ist..du limitierst damit doch nur das Ende....

Was ist jetzt daran der Sinn? :wiejetzt:


ich glaub ich brauch ein Bier.... :mrgreen:

[Teekeks]

Zitat:

Zitat von ccc2

@teekeks: die Sourcen hatte ich erst mit D3 (s. Profil !) und nach der Virusmeldung mit TD kompiliert.

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

[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:

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.

[ccc2]

So - jetzt habe ich mal meinen Uralt-Laptop rausgekramt (mit win95 und noch nie in netz mit gewesen) und habe damit die Sourcen neu kompiliert. Siehe da - trotz gleicher Größe Unterschiede gefunden.

Hier das - versprochen !! - letzte Mal die EXE.

Ürigens liegt es mir fern, jemanden zu ärgern oder gar einen Virus unterzuschieben.

[edit=MrSpock]Anhang wegen Virus gelöscht. Mfg, MrSpock[/edit]