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