Einzelnen Beitrag anzeigen

DIET3RIX

Registriert seit: 21. Feb 2006
Ort: Bonn
78 Beiträge
 
Delphi 2007 Professional
 
#1

ProgressBar wird nicht angezeigt

  Alt 23. Mär 2007, 17:21
Hi, ich habe ein kleines Problem und zwar:

Ich gebe einen Pfad an eine Procedure, dort werden alle MP3-Datei von dem Ordner und Unterordner in eine Datenbank geschrieben.
Ich habe 2 globale Variablen i und count.
Count: Anzahl der MP3s
i: Wieviele Dateien schon in die Datenbank geschrieben wurden.

Die beiden Variablen werden an die 2. Unit übergeben. Die 2. Form soll mir den Fortschritt anzeigen, doch das Funktioniert nicht wirklich. Wenn ich z.b. 800 Dateien in die DB einfüge, dann wird zwar Form2 angezeigt, aber das friert direkt ein und wenn alle Dateien geladen wurden, läuft der Fortschrittsbalken voll (< 1s) und die Form schließt sich.

Hat einer 'ne Idee woran das liegen könnte oder ob es eine eine bessere Lösung gibt?

THX voraus

Der Code von dem Timer:
Delphi-Quellcode:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position := i;
  if count = i then
    close;
end;
Dieter
  Mit Zitat antworten Zitat