Datei kopieren, ProgressBar einbauen?

[AlexII]

Zitat von himitsu:

Ich möchte fast wetten, daß die Form/ProgressBar keine Zeit Gelegenheit hat sich zu zeichnen.

Aber allein dafür sollte man schon gesteinigt werden.

Delphi-Quellcode:

  except
    ShowMessage('Fehler!');
    Exit;
  end;

So, nun zum Grund für dein Problem.
Es liegt am dritten Buchstaben in Zeile 42. (die Antwort ist bestimmt genauso hilfreich, wie deine Fehlermeldung)

Wie ich schon geschrieben habe, es gibt keine Fehler....

[himitsu]

Und was ist bei AssignFile(SourceF, 'Z:\123.zip'); // Z: ?

[AlexII]

Zitat von himitsu:

Und was ist bei AssignFile(SourceF, 'Z:\123.zip'); // Z: ?

Also der Code ohne Progressbar funktioniert wie geschmiert, kaum blickt man schon ist alles fertig kopiert, aber sobald ich die Zeile ProgressBar3.Position := ProgressBar3.Position + NumRead; einfüge... hängt das Programm.

[himitsu]

Wetten ich gewinn die Wette?
Dein Programm hängt, das bekommt Windows mit und ersetzt dein Fenster.

Ja, der Code funktioniert, aber sowas macht man dennoch nicht.
Das ist ja schlimmer als ein

Delphi-Quellcode:

try
  i := StrToInt(S);
except
  i := 0;
end;

[AlexII]

Zitat von himitsu:

Wetten ich gewinn die Wette?

Dein Programm hängt, das bekommt Windows mit und ersetzt dein Fenster.

Was meinst Du damit?

Vielleicht soll ich mich besser ausdrucken. Also der Code ohne Progressbar funktioniert einwandfrei, auch wenn da Optimierungsbedarf besteht. Nun wollte ich dem Kopiervorgang eine Progressbar "anhängen" um zu sehen wie lange der Kopiervorgang dauert. Ich füge dem Code die Zeilen

Delphi-Quellcode:

ProgressBar3.Min := 0;
ProgressBar3.Max := FileSize(SourceF);
...
...
ProgressBar3.Position := ProgressBar3.Position + NumRead;

an - und das Prog hängt. Das Problem liegt wohl irgendwo in der Progressbar.

[Dalai]

Bist du denn nun mal mit dem Debugger zeilenweise durch den Code gesteppt? Dann siehst du vielleicht auch das Problem.

MfG Dalai

[AlexII]

Zitat von himitsu:

Wetten ich gewinn die Wette?
Dein Programm hängt, das bekommt Windows mit und ersetzt dein Fenster.

Ja, der Code funktioniert, aber sowas macht man dennoch nicht.
Das ist ja schlimmer als ein

Delphi-Quellcode:

try
  i := StrToInt(S);
except
  i := 0;
end;

Was macht man denn nicht?