Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
29. Apr 2009
Hallo,
@nahpets:
Habe einige Zeitmessungen gemacht und es ist eindeutig der Befehl:
Open;
Alle anderen Befehle und die Schleife verbrauchen kaum Zeit.
Der Startwert ist 0, der Endwert wird normalerweise nicht erricht. Wenn das Programm im Debugger-Modus (F7) wird die Gauge korrekt angezeigt.
@sirius:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
27. Apr 2009
Hallo,
procedure TAbtfrageClass.MSErmitteln;
var
I: integer;
begin
with FpFIBDataSetAbfrage do
begin
Close;
SelectSQL.Text:= 'SELECT DISTINCT mw_msid FROM mw_tabelle';
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
27. Apr 2009
Hallo,
Wie?
@Hobby-Programmierer: der Timer ist richtig mit dem OnTimer-Event verbunden, mit verschiedenen Intervallen versucht, kein Ergebnis.
Bis bald Chemiker
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
27. Apr 2009
Hallo,
@Valle:
mit FAbfrageClass.MSErmitteln wird eine Datenbankabfrage durchgeführt und weil das solange dauert, sollte ein Formular einen Warnhinweis ausgeben und Gauge weiter gezählt werden.
@Hobby-Programmierer:
mehre Stellen probiert, leider kein Effekt.
Bis bald Chemiker
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
27. Apr 2009
Hallo,
procedure TfrmExcelDateiExportieren.btPivotTabelleZeigenClick(Sender: TObject);
begin
Timer1.Enabled:= TRUE;
frmWarnhinweis.frmWarnung.Show;
frmWarnhinweis.frmWarnung.Refresh;
FAbfrageClass.MSId:= '%';
FAbfrageClass.MSErmitteln;
Timer1.Enabled:= FALSE;