Ich versuche die ganze Zeit ein bestimmtes Wort in der ListBox zu suchen und zwar so
Delphi-Quellcode:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i:integer;
s,sText:string;
slTemp: TStringList;
begin
try
for i := 0 to lbAusgabe.Items.Count -1 do
begin
slTemp := TStringList.Create;
slTemp.Clear();
sText := '';
//in lbAusgabe Strings[i] wird nach dem Wort was in eSearch.Text steht gesucht funktioniert aber leider nicht
//sText := lbAusgabe.Items.Strings[i];
//in edit1 wird nach dem Wort was in eSearch.Text steht gesucht das funktioniert sehr gut
sText := Edit1.Text;
s := eSearch.Text;
//warum funktioniert die Suche nur in Edit1 ? und nicht in lbAusgabe Strings[i] ?
while pos(s,sText) <> 0 do
begin
slTemp.Add(copy(sText,1,pos(s,sText)-1));
delete(sText,1,pos(s,sText));
end;
slTemp.Add(sText);
if slTemp.Strings[i] = sText Then
begin
// nichts tun
end
else
begin
MessageDlg('gesuchte Wort gefunden',mtInformation, [mbOK], 0);
//wenn gefunden dann alle gefundenen Wörter farblich darstellen
end;//if
end;//schleife
except
//Exit;
end; //try
end;
oder bin ich völlig auf dem Holzweg ?
Gruß
Holger