Delphi-Quellcode:
var
Form4: TForm4;
Suchwort: String;
i: Integer;
l: Char;
procedure TForm4.BitBtnSucheClick(Sender: TObject);
begin
Suchwort:=EdSuchen.Text;
l:='';
if LaInXSuchen.Caption='In // Allgemeine Hilfe' then
begin
for i:=1 to Form6.ListBoxHilfeAllgemein.items.count-1 do
if pos(l+Suchwort+l, Form6.ListBoxHilfeAllgemein.items[i-1]) > 0 then
Label1.caption:=Form6.ListBoxHilfeAllgemein.items[i-1];
end;
end;
EDIT:OK das war mein Fehler -->(ich habs jetzt so gemach aber der findet dann nur was wenn die eingabe im Editfeld einen Buchstaben beträgt trotz STRING )geht jezt
nun möchte ich die gefundene zeile aber nicht in ein Label übernehmen sondern die zeile direkt in der ListBox zB Rot markiert haben
villt kannst du mir ja mit nem Ansatz helfen (wenigstens nem stückchen quellcode) =) danke