ne sorry b hab ich initialisier
mit b:=0 faengt er an
und ich habs hinbekommen
danke fuer die schnelle hilfe
hier der fertige Code
Delphi-Quellcode:
for row := 0 to StringGrid1.RowCount - 1 do
begin
if ListBox1.Items.IndexOf(StringGrid1.Cells[0,row]) = -1 then
ListBox1.Items.Add(StringGrid1.Cells[0, row]);
end;