case of mit for schleife verbinden

[herrentor]

tag zusammen,

ich möchte case of mit einer for schleife verbinden. er soll für die itemindex 1 bis controlcount einer combobox eine funktion ausführen. also für alle bis auf itemindex=0.

case combobox not
0:

gibt es ja nicht.

Delphi-Quellcode:

for i:=0 to combobox.ControlCount do
 begin
 case combobox.ItemIndex of
  i: begin
     showmessage('');
     end;

[shmia]

Zitat von herrentor:

ich möchte case of mit einer for schleife verbinden. er soll für die itemindex 1 bis controlcount einer combobox eine funktion ausführen. also für alle bis auf itemindex=0.

case combobox not
0:

gibt es ja nicht.

Delphi-Quellcode:

for i:=0 to combobox.ControlCount do
 begin
 case combobox.ItemIndex of
  i: begin
     showmessage('');
     end;

Bei Case gibt es auch einen Else Teil!

Delphi-Quellcode:

for i:=0 to combobox.ControlCount do
 begin
 case combobox.ItemIndex of
    0: ;  // nix zu tun
  else
     begin
     showmessageFmt('i=%d', [i]);
     end; 
  end;

Das Beispiel ist aber ziemlich sinnfrei, da combobox.ControlCount immer 0 ist.

Du musst zurück an den Anfang und uns erklären, was du eigentlich erreichen möchtest;
dann kann dir geholfen werden.

[jim_raynor]

Zitat von herrentor:

tag zusammen,

ich möchte case of mit einer for schleife verbinden. er soll für die itemindex 1 bis controlcount einer combobox eine funktion ausführen. also für alle bis auf itemindex=0.

case combobox not
0:

gibt es ja nicht.

Delphi-Quellcode:

for i:=0 to combobox.ControlCount do
 begin
 case combobox.ItemIndex of
  i: begin
     showmessage('');
     end;

1. Was machst du da?
2. Was willst du?
3. ComboBox und ControlCount?

Ohne zu wissen was du wirklich machen möchtest:

Delphi-Quellcode:

for i:=1 to Combobox.Items.Count-1 do
begin
  showMessage(ComboBox.Items[i]);
end;

Beginn deine Schleife bei 1. ControlCount gibt es doch bei der Combobox und wenn ja, ist es nicht das was du möchtest. Items ist eine StringList mit allen Einträgen der Combobox. Count-1 weil die Indizierung bei 0 beginnt.

[Steve]

Hi,

was ist denn nun Deine Frage?

Möchtest Du von 1 bis x immer das Gleiche tun? FOR i:=1 TO x DO ... Möchtest Du jedesmal was anderes tun?

Delphi-Quellcode:

FOR i:=1 TO x DO
CASE i OF
  1 : ...
  2 : ...
  ...
  ELSE ...
END; { Case }
...

Gruß
Stephan

[herrentor]

ich möchte das er für jede auswahl außer 0 was tut. ich hatte bei combobox die items vergessen. da es aber ja eine else anweisung gibt, ist mir schon geholfen. danke