IOS UniDac While Schleife mit Progressbar

**oakley**

Hallo zusammen,

ich lese unter IOS via Unidac eine MySql Tabelle aus.
Dazu habe ich einen Fortschrittsbalken, der mit jedem Durchlauf der While Schleife weiter gefüllt werden soll.
Problem ist dass der Balken am Ende der Schleife direkt auf 100% springt und sich nicht "gemächlich" füllt obwohl der Vorgang einige Sekunden dauert.
Die Progressbar wird dynamisch erzeugt.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TSyncThread.Execute;

var 

  sqlstring : String;

begin

   SYNCQUERY.Close;

   SYNCQUERY.SQL.Text := 'SELECT * from table';

   SYNCQUERY.Execute;

   while not SNYCQUERY.Eof do

   begin

     //hier schreibe ich Daten aus der Tabelle in eine TStringlist

     TSyncThread.Queue(nil,

     procedure

     begin

       (Syncform.SB1.FindComponent('Progressbar1') as TProgressbar).value := (Syncform.SB1.FindComponent('Progressbar1') as TProgressbar).value + 1;

     end);     

     SYNCQUERY.Next;

   end;

LG

Mirko

IOS UniDac While Schleife mit Progressbar

IOS UniDac While Schleife mit Progressbar

Forumregeln