Aktion entsprechend ComboBox...

[Sharky]

Hai Steffi,

ich habe noch eine Anmerkung zu deinem Code.
Du solltest versuchen in dem Caseblock keinen redundanten Code verwenden. Zum eines sparst Du einige Zeilen und zum anderen wird der Code übersichtlicher.

Delphi-Quellcode:

begin
  qrMain.Close;
  qrMail.SQL.Clear; // Wenn sichergestellt ist das immer ein SQL.Text := kommt muss man das Statment nicht vorher löschen.
  case ComboBox1.ItemIndex of
      0: qrMain.SQL.Text := 'SELECT blabla1;';
      1: begin
          qrMain.SQL.Text := 'SELECT blabla2;';
          qrMain.ParamByName('jahr').asString := Jahr;
         end;
  end;
  if (qrMain.SQL.Text <> '') then // und kann sich dann auch diese Abfrage sparen.
  begin
    qrMain.Open;
  end;