Jetzt mal Q&D Cpy&Paste-Programming:
Delphi-Quellcode:
var
Count: Array of Cardinal;
begin
setlength(Count, ComboBox1.ItemCount);
Count[Combobox1.ItemIndex] := Count[Combobox1.ItemIndex] + 1;
Count[Combobox2.ItemIndex] := Count[Combobox2.ItemIndex] + 1;
Count[Combobox3.ItemIndex] := Count[Combobox3.ItemIndex] + 1;
Count[Combobox4.ItemIndex] := Count[Combobox4.ItemIndex] + 1;
Count[Combobox5.ItemIndex] := Count[Combobox5.ItemIndex] + 1;
Count[Combobox6.ItemIndex] := Count[Combobox6.ItemIndex] + 1;
Count[Combobox7.ItemIndex] := Count[Combobox7.ItemIndex] + 1;
Count[Combobox8.ItemIndex] := Count[Combobox8.ItemIndex] + 1;
Count[Combobox9.ItemIndex] := Count[Combobox9.ItemIndex] + 1;
Count[Combobox10.ItemIndex] := Count[Combobox10.ItemIndex] + 1;
Count[Combobox11.ItemIndex] := Count[Combobox11.ItemIndex] + 1;
Count[Combobox12.ItemIndex] := Count[Combobox12.ItemIndex] + 1;
Count[Combobox13.ItemIndex] := Count[Combobox13.ItemIndex] + 1;
Count[Combobox14.ItemIndex] := Count[Combobox14.ItemIndex] + 1;
end;
Es bietet sich natürlich ein Array und eine Schleife an
P.S.: Nur weil man etwas in Delphi machen kann, heißt das nicht dass es die beste Lösung ist