tstringlist probleme mit find/indexof..

[kolbaschedder]

indexof ist nicht geeignet um durch die Liste zu iterieren. du bekommst jedesmal den gleichen Eintrag.
Probier's mal mit :

Delphi-Quellcode:

for i:=0 to VehicleTypeKey.count-1 do
begin
  if ansipos('pkw', VehicleTypeKey[i])>=1 do  
    fmaddcars.cbFahrzeugart.Items.Add(VehicleTypeKey[i]);    
end;

Der Code ist ungetestet, aber so ungefähr sollte es tun.