Mehrspaltige ComboBox?

[Borschti]

Hi,

also Ich habe ein kleines Problem mit FAlters Code. Und zwar versuche Ich gerade in die ComboBox Zeilen hinzuzufügen, das versuche ich durch ein ButtonClick Ereignis, also wie in dem Code von Torry.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
with VisiCombobox2.Items do
  begin
    Add('"Spalte 1","Spalte 2","Spalte 3"');
    Add('"Hallo Welt",NurEinWort,42');
    Add('Leer,,"<-- war leer"');
  end;
end;

Wenn Ich dann allerdings die ComboBox aufklappe wird mir eine Fehlermeldung angezeigt "Division by Zero".

Diese Zeile wird mir rot markiert und der Zeiger steht am anfang:

W := (Rect.Right - Rect.Left) div Item.Count; Liegt das an der Art wie Ich die Strings der ComboBox hinzufüge oder liegt das am Code?

mfg
Bossi