nach "enthaltenem Text" suchen

[maker]

Vielleicht ist dein Problem schon gelöst, wenn nicht, wir haben für unser teefonbuch folgenden quelltext verwendet der bisher immer funktioniert hat, jedenfalls wenn du eine List Box benutzt, anderfalls musstes anpassen, sollte aber klappen.

var i: Integer
f: Boolean
s: string

begin
s:=InputBox('Suche nach',
'Was wolen Sie suchen?','')

if s<>'' then
begin
f:=false;
i:=-1;
while (i<ListBox1.Items.Count-1) and not f do
begin
Inc(i) //Erhöht Variable i um eins//
if Pos(s,ListBox1.Items[i])>0 then :=True;
end;
if f then
ListBox1.ItemIndex:=i //Setzen des Markierungsbalken//
else
ShowMessage('Suchwort nicht gefunden');
end;


vielleicht hilfts dir ja ein bischen

mfg. maker
end;