ZSQLProcessor und ProgressBar

[Stevie]

Hi Gambit,

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ZSQLProcessor.Parse; // damit StatementCount das richtige Ergebnis liefert
  ProgressBar.Step := 1; // kann auch im OI eingestellt werden, da es sich ja nicht ändert
  ProgressBar.Position := 0; // Progressbar zurücksetzen
  ProgressBar.Max := ZSQLProcessor.StatementCount; // Anzahl der Statements
  ZSQLProcessor.Execute; // ausführen
end;

procedure TForm1.ZSQLProcessorAfterExecute(Processor: TZSQLProcessor;
  StatementIndex: Integer);
begin
  ProgressBar.StepIt; // wird bei jedem Statement aufgerufen...
end;

Die Hinweise beziehen sich auf die Version 6.5.1 ...

MfG
Stevie