Hallo,

ich habe eine ComboBox, die über eine php-Datei gefüllt wird. Soweit funktioniert das auch.
Nun würde ich noch gerne eine Möglichkeit haben, in Abhängigkeit des ausgewählten Items eine bestimmte aktion auszuführen.

Bislang hätte ich das so gemacht:

markieren

Delphi-Quellcode:

if ComboBox1.Text = 'aktion1' then
        qrMain.SQL.Clear;
        qrMain.SQL.Text:= 'SELECT blablabla;';
        qrMain.Active:= True;
        qrMain.open;

Nun habe ich allerdings das Problem, dass die ComboBox sehr umfangreich geworden ist. Mit den If-Abfragen komm ich da natürlich
nicht weit, da so in jedem Fall nur die letzte Aktion der ComboBox ausgeführt wird. Warum die IF-Abfrage übergangen wird, weiß ich nicht.
Wie könnte man noch abfragen, welches item ausgewählt wurde?

Liebe Grüße
Steffi

Über den ItemIndex evtl.?

Ok, bei 25 Items dann am besten über eine case-Abfrage?
Entschuldigt bitte diese dummen Fragen, aber ich bin noch ziemlich neu und nicht so wirklich firm, was hier am schnellsten von der performance
her wäre...

Liebe Grüße
Steffi

Haargenau.

markieren

Delphi-Quellcode:

case ComboBox.ItemIndex of
  0: Machwas;
  1: MachwasAnderes;
  ...
end;

Hallo Steffi,

der IF-Abfrage folgt ein einzelnes Statement, da du den BEGIN-END-Block vergessen hast. Grundsätzlich sollte der Wechsel des Items in einer ComboBox keine Aktion auslösen, die einen spürbaren Zeitverbrauch mit sich bringt.

Grüße vom marabu

Hi marabu,

so gut gemeint und richtig Dein Rat auch ist, ich habe nirgends lesen können, dass sie direkt im OnChange-Ereignis eine Aktion auslösen möchte.

Zitat von DeddyH:

Hi marabu,

so gut gemeint und richtig Dein Rat auch ist, ich habe nirgends lesen können, dass sie direkt im OnChange-Ereignis eine Aktion auslösen möchte.

Ich denke mal, dass marabu drauf hinweisen wollte, Detlef. Weil aus Steffis Beschreibung etwas derartiges beschreibt.

Kann ich bei in Delphi bei der Case-Abfrage immer nur eine Aktion pro item durchführen?
Also:

markieren

Delphi-Quellcode:

case ComboBox.ItemIndex of
  0: eineAktion;
  1: eineAktion;
  ...
end;

Was mache ich dann, wenn ich aber soetwas brauche?

zusammenfalten · markieren

Delphi-Quellcode:

case ComboBox1.ItemIndex of
      0:qrMain.SQL.Clear;
        qrMain.SQL.Text:= 'SELECT blabla1;';
        qrMain.Active:= True;
        qrMain.open;
        brake;
      1:qrMain.SQL.Clear;
        qrMain.SQL.Text:= 'SELECT blabla2;';
        qrMain.ParamByName('jahr').asString := Jahr;
        qrMain.Active:= True;
        qrMain.open;

Letzte Doofi-Frage für heute...

Liebe Grüße
Steffi

Hi Steffi,

nein, Du kannst natürlich auch mehr ausführen:

markieren

Delphi-Quellcode:

case ComboBox1.ItemIndex of
      0:
        begin
         { Dein Code } 
        end;
      1:
        begin
         { Dein Code } 
        end;
...

zusammenfalten · markieren

Delphi-Quellcode:

case ComboBox.ItemIndex of
  0: begin
       eineAktion;
       nochneAktion;
     end;
  1: begin
       eineAktion;
       nochneAktion;
     end;
  ...
end;

[edit] Die Kuh war schneller [/edit]