tstringlist probleme mit find/indexof..

[Go2EITS]

den Eintrag 'pkw' wirst Du über .find finden:

Siehe mal in die Hilfe:

Delphi-Quellcode:

Zu diesem Beispiel gehören eine Liste und eine Beschriftung (Label). Nach dem Start der Anwendung wird eine Stringliste erzeugt und mit drei Strings gefüllt. Die Methode Find durchsucht die Strings nach dem Vorkommen des Strings 'Blumen'. Wenn dieser String gefunden werden kann, wird die komplette Stringliste in das Listenfeld eingefügt, und der Indexwert von 'Blumen' erscheint als Beschriftungstext.

procedure TForm1.FormCreate(Sender: TObject);

var
  MyList: TStringList;
  Index: Integer;
begin
  MyList := TStringList.Create;
  try
    MyList.Add('Animals');
    MyList.Add('Flowers');

    MyList.Add('Cars');

    MyList.Sort;   { Find funktioniert nur für sortierte Listen! }
    if MyList.Find('Flowers', Index) then
    begin
      ListBox1.Items.AddStrings(MyList);
      Label1.Caption := 'Flowers has an index value of ' + IntToStr(Index);
    end;
  finally
    MyList.Free;
  end;
end;

Insbesondere der Abschnitt ist für Dich interessant:

Delphi-Quellcode:

    MyList.Sort;   { Find funktioniert nur für sortierte Listen! }
    if MyList.Find('Flowers', Index) then
    begin
      ListBox1.Items.AddStrings(MyList);
      Label1.Caption := 'Flowers has an index value of ' + IntToStr(Index);
    end;

Jetzt müsstet Du es aber schaffen...