For Schleife zählt mehr als vorhanden. iTask, for Schleife, integer -> fehler

[bcvs]

Das ist so etwas schwierig zu durchschauen.

- An welcher Stelle wird das THI erstmalig 12? Müsste man mit dem Debugger ja leicht rauskriegen können.
- Pack den Code mal in Delphi-Tags (der Button mit dem Helm) statt Code-Tags
- Wirf alles raus, was nicht zur Reproduktion des Fehlers nötig ist.

[davtix]

Zitat von bcvs:

Das ist so etwas schwierig zu durchschauen.

- An welcher Stelle wird das THI erstmalig 12? Müsste man mit dem Debugger ja leicht rauskriegen können.
- Pack den Code mal in Delphi-Tags (der Button mit dem Helm) statt Code-Tags
- Wirf alles raus, was nicht zur Reproduktion des Fehlers nötig ist.

wenn ich diesen ausklammer, funktioniert alles wieder

Delphi-Quellcode:

                  if ( FileExists( tempS ) ) then
                    begin
                      byte := GetFileSize( tempS );
                      tempS1 := konvertBytes( byte );
                      delay(100);
                    end;

[DieDolly]

Ich rate mal drauf hin: es liegt an deiner eigenen Delay-Prozedur.

[davtix]

Zitat von DieDolly:

Ich rate mal drauf hin: es liegt an deiner eigenen Delay-Prozedur.

Krass, stimmt. Jetzt funktionierts.
Aber warum ?

[DieDolly]

Das wissen wir erst, wenn du uns dein Delay zeigst.

[davtix]

Zitat von DieDolly:

Das wissen wir erst, wenn du uns dein Delay zeigst.

Delphi-Quellcode:

procedure Delay(const Milliseconds: DWord);
var
  FirstTickCount: DWord;
begin
  FirstTickCount := GetTickCount;
  while ((GetTickCount - FirstTickCount) < Milliseconds) do
  begin
    Application.ProcessMessages;
    Sleep(0);
  end;
end;

[DieDolly]

Lass das ProcessMessages weg, dann sollte es funktionieren.
Oder schreibt direkt Sleep(100); in deinen Code statt Delay(100);