OnTimer wird nicht ausgelöst

[Chemiker]

Hallo,

Delphi-Quellcode:

procedure TAbtfrageClass.MSErmitteln;
var
  I: integer;
begin
  with FpFIBDataSetAbfrage do
  begin
    Close;
    SelectSQL.Text:= 'SELECT DISTINCT mw_msid FROM mw_tabelle';
    GenerateSQLs;
    Open;    
    while not EOF do
    begin
        // Die MSId-Bezeichnung aus der Datenbank wird in einer StringList
        // gespeichert. Diese Bezeichung ist auch gleichzeitig die Spalten-
        // bezeichnung für die PIVOT-Tabelle.
      FMSListe.add(FieldByName('mw_msid').AsString); 
      next;       
    end; 
  end;
end;

das ist die Procedure. Damit werden alle Datensätze durchlaufen und das kostet Zeit. Das ist der Grund warum ein Fenster mit einer Gauge angezeigt werden soll.

Bis bald Chemiker