Label wird in Schleife nicht neu gezeichnet

[Tyler]

Salut

Delphi-Quellcode:

  q_Firmendaten.SQL.Text := ' SELECT firmencode FROM b_firmendaten ';
  q_Firmendaten.Open;
  q_Firmendaten.First;
    l_firmendaten.Caption := '2';
  pb_firmendaten.Max :=  q_Firmendaten.RecordCount;
  repeat
    l_firmendaten.Caption := IntToStr( q_Firmendaten.RecNo );
    l_firmendaten.Refresh;
    FindAllFilesFirmencode('O:\VORDRUCK\FISUBA\', '*' + q_Firmendaten.FieldByName('firmencode').AsString + '*.*', TRUE);
    q_Firmendaten.Next;
    pb_firmendaten.Position := pb_firmendaten.Position + 1;
    pb_firmendaten.Refresh;
    Application.ProcessMessages;
  until
    q_Firmendaten.EOF;

l_firmendaten ist mein Label. Und das müsste eigentlich seine Bezeichnung ändern. Tuts aber nicht, und ich weiss nicht warum. Hab schon alles durch, von Repaint bis Refresh des Labels und der Mainform. Jemand ne Idee?

[leddl]

Überleg mal, wie schnell so ein Schleifendurchlauf erledigt ist. Da kommt dein PC einfach nicht mit.
Bau in den Schleifendurchlauf ein Application.ProcessMessages() ein, dann sollte das funktionieren. Besser wäre es allerdings, das nur alle x Durchläufe (ca 100) aufzurufen.

[Tyler]

1. steht bei mir ein ProcessMessages
2. funktioniert das ganze aber tadellos wenn ich je schleifendurchlauf die caption der form ändern lasse
3. kommt der PC ja auch mit der aktualisierung der processbar hinterher

Danke trotzdem