tstringlist probleme mit find/indexof..

[agm65]

hallo leute, habe folgendes problem. ich habe eine stringliste mit sehr vielen einträgen, jetzt möchte ich bei einem bestimmten event aus meiner stringliste nur die werte mit dem string (pkw) bekommen und in eine combobox adden, ich dachte jetzt so:

Delphi-Quellcode:

while VehicleTypeKey.IndexOf('pkw') <> -1   do
begin
fmaddcars.cbFahrzeugart.Items.Add(VehicleTypeDe.Strings[VehicleTypeKey.IndexOf['pkw']);
end;

aber ich bekomme eine endlosschleife, hat da jemand eine lösung ? danke euch allen !

[Go2EITS]

@agm65
Einen Fehler konnte ich schon entdecken.

Du hast geschrieben:

Wenn
VehicleTypeKey.IndexOf('pkw') nicht -1 ist dann füge ... ein.
und wieder zu WENN
D. h. sobald sich ein Eintrag in der Liste befindet, läufst Du im Kreis.

Nimm ein

Delphi-Quellcode:

IF VehicleTypeKey.IndexOf('pkw') <> -1 then  
begin 
fmaddcars.cbFahrzeugart.Items.Add(VehicleTypeDe.Strings[VehicleTypeKey.IndexOf['pkw']); 
end;

Inwieweit weitere Fehler, insbesondere auf das Indexof['pkw']) vorhanden sind, kann ich nicht beurteilen. Ich sehe auch kein Combobox1.Add o.s.ä.

Sollte es nicht funzen, bitte mehr Code für uns.

Beste Grüße
Go2EITS

[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.

[agm65]

geht leider beides nicht

[kolbaschedder]

eine etwas genauere Fehlerbeschreibung würde helfen.

[Go2EITS]

@agm65

Wenn wir Dir helfen sollen, zeig mal den Code in der Funktion/Procedure.
Wir lachen auch nicht! Aber wenn Du uns weder Code noch die detailierte Fehlermeldung zeigst bzw. mitteilst können wir Dir nicht weiterhelfen.

Mit der Vorschau kannst Du Deinen Beitrag sehen und solange verbessern, bis es Dir gefällt.
[Nachtrag]
527 Beiträge... na jetzt aber! [\Nachtrag]

[agm65]

also ich erklärs euch mal, ich hab 2 stringlisten

die eine (VehicleTypeKey) enthält ,pkw ,lkw & rad
dazu gibts in der stringliste2 (VehicleTypeDe) die entsprechenden namen der fahrzeuge.

jetzt möchte ich diese namen aus stringliste2 in einer combobox anzeigen lassen. mit den indexwerten die alle einträge aus stringlist1 haben (alle pkws).

deswegen dachte ich:

Delphi-Quellcode:

// also solange ich pkw als string in der liste1 habe nimm alle werte aus stringlist2 die den gleichen index haben

while VehicleTypeKey.indexof('pkw') <> -1 do
begin
combobox.Items.Add(VehicleTypeDe.strings[VehicleTypeKey.indexof('pkw') ]  );  
end;

[hoika]

Hallo,

wieso gehst du über den IndexOf ?
Ich verstehe deine Herangehensweise überhaupt nicht.

> jetzt möchte ich diese namen aus stringliste2 in einer combobox
> anzeigen lassen. mit den indexwerten die alle einträge aus stringlist1 haben (alle pkws).

Wo ist denn in stringlist2 eine Referenz auf die stringlist1 ?

Vielleicht gehst du mal von StringList weg und
baust dir eine richtige Liste auf.

Delphi-Quellcode:

type
  TVehicleTypeKey = class
    iVehicleTypeKeyId: Integer;
    sVehicleTypeKeyName: String;
  end;

type
  TVehicle = class
    iVehicleId: Integer;
    sVehicleName: String;
    VehicleType: TVehicleTypeKey
  end;

Heiko

[Go2EITS]

Jetzt ist es schon konkreter aber ich muss passen, mangels Fachwissen. Klaus01 würde es wissen.
Aber der ist nicht online.

[agm65]

jo schon okay, das geht leider auch nicht . damn