TFileOpenDialog fürht zu kuriosem DBGrid-Verhalten

[Sir Rufo]

Und das

Delphi-Quellcode:

Application.ProcessMessages

kann man noch eliminieren, wenn man die Events

Delphi-Quellcode:

BeforeRefresh

und

Delphi-Quellcode:

AfterRefresh

geschickt bestückt.

[mariusbenz]

@ ConnorMcLeod: Hab es jetzt alles in die if-Abfrage gepackt. Hat zwar beim Abbrechen des OpenDialogs (noch) keine Fehler gemacht, aber sicher ist sicher.

Das SetSQLAndExecute ist eigentlich nicht sonderlich spektakulär

Code:

procedure SetSQLAndExecute(Que : TAdsQuery; SQL_Befehl : String);
  begin
    with Que do
      begin
        Close;
        SQL.Clear;
        SQL.Add(SQL_Befehl);
        ExecSQL;
      end;
  end;