Suchen eines Eintrages aus einer Stringlist

[alexkoe]

Hello again!!
wir haben schon wieder ein Problem.Diesmal handelt es sich um eine Stringlist. Wir wollen nach einem Eintreg suchen und haben dafür folgende Prozedur verwendet:

Delphi-Quellcode:

suche:=edit1.text;
sl:=TStringList.Create;
sl.LoadFromFile('D:\155th\autos.txt');
for zeilennr:=0 to sl.Count do begin
if sl[zeilennr]=suche then

jetzt bringt das Programm aber immer die Meldung das der Eintrag angeblich nicht vorhanden sei, obwohl er vorhanden ist und auch die Schreibweise korrekt ist.

danke und mfg alex

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[mkinzler]

Achtung obere Grenze muß Count-1 sein.

Aber warum verwendest du nicht IndexOf?

[TeronG]

hi .. mach doch mal

Code:

[delphi][/delphi]

um deinen Code rum

dann kannste dir ja mal Tstringlist.Find, Tstringlist.IndexOf & Pos anschauen.

[Klaus01]

Delphi-Quellcode:

for zeilennr:=0 to sl.Count do begin 
  if sl[zeilennr]=suche then

Hier prüfst Du ob die Zeile gleich dem Suchstring ist.
ich weiß nicht ob das so beabsichtigt ist.
Normalerweise wird geprüft ob der Suchstring
in der Zeile enthalten ist.

Wie das geht wurde schon in diesem Thread geschrieben.

Grüße
Klaus

[alexkoe]

wir haben das problem in der zwischenzeit mit

var i: integer;
Wort: string;
begin
for i:=0 to ListBox.Items.Count-1 do
begin
if pos(Wort,ListBox.Items[i])>0 then
//ergebnise auflisten o.ä.
end;
end;

probiert.das funktioniert jedoch nur für den wert wenn er in der1. zeile ist.woran könnte das liegen?

mfg alex

[Chris P]

Hi,

wieviel Einträge hast du in der Listbox?

[alexkoe]

naja mehrere halt.wir habne zusätzlich eine funktion eingebaut mit der man die stringlist erweitern kann

[Chris P]

Hast du der Variable Wort einen Wert zugewiesen?
Sonst suchst du ja nach einem leeren String.

[smudo]

Hallo,

wie oben schon geschrieben, ist es übersichtlicher hier im Forum für Delphi-Code die Tags zu verwenden. Dann kommt man besser mit der Frage klar.

Es ist wirklich am Besten IndexOf zu verwenden.

Delphi-Quellcode:

Wort:='TestText';
if sl.IndexOf(Wort)>-1 then Gefunden:=True;

[alexkoe]

es funktioniert jetzt da wir es anders geschachtelt haben.
trotzdem danke
p.s:das forum ist großartig
mfg alex