Statusbar wird nicht aktualisiert

[buyden]

Hi,

ich habe ein kleines Importtool für meine DB gebastelt und wolte die aktuelle Aktion beim Importieren in ner Statusbar anzeigen.

Folgender Code zum Import einer Tabelle

Delphi-Quellcode:

procedure Tfrmimport.btimportClick(Sender: TObject);
var i:integer;
begin
  if checkauftrag.Checked=true then
    begin
//Auftragstabelle leeren
      if checkdelete.checked=true then
        Begin
          progressbar1.Max:=fbtbauftrag.RecordCount;
          //HIER
          Statusbar1.Panels[0].Text:= 'Auftragstabelle wird geleert';
          for i:= 1 to fbtbauftrag.RecordCount do
            begin
              fbtbauftrag.Delete;
              progressbar1.Position:=i;
            end;
        end;

//Import Auftragstabelle
      progressbar1.Max:=bdetbauftrag.RecordCount;
      bdetbauftrag.First;
      //HIER
      Statusbar1.Panels[0].Text:= 'Auftragstabelle wird importiert';
      for i:= 1 to bdetbauftrag.RecordCount do
        begin
          with fbtbauftrag do
            begin
              append;
              fieldbyname('nummer').asstring := bdetbauftrag.fieldbyname('nummer').AsString;
              fieldbyname('geraet').AsString := bdetbauftrag.Fieldbyname('gerät').AsString;
              fieldbyname('status').AsInteger:= bdetbauftrag.Fieldbyname('status').asinteger;
              
.
.
.

Allerdings wird die Statusbar während der Prozedur nicht verändert, also es wird nur der 1. und der letzte Text angezeigt.

Ideen??

[Muetze1]

Moin!

Wird's schon, nur nicht aktualisiert. Rufe danach ProgressBar1.Update; auf ...

MfG
Muetze1

[buyden]

OK funzt, dankeschön