och neee leider zu früh gefreut denn wenn ich den quelltext gemau so einfüge steht auf der linken seite ein INTEGER und aud der rechten seite ein STRING ok ganz dumm bin ich auch nicht ich habe also einfach StrToInt (IntToStr geht nciht da sonst der linken seite nichts zugewiesen werden kann ) dann läüft da progi auch aber sobald ich auf suchen klicke steht da : "die zeile die ich markiert haben will" ist kein gültiger ineger wert also so -> : 'Option: Hier können Sie zusätzliche Einstellungen tätigen ' ist kein gültiger integer wert . Aber wenn ich nach zahlen suche klappt "nur" der zeilensprung zur markierten zeile leider
Delphi-Quellcode:
procedure TForm4.BitBtnSucheClick(Sender: TObject);
begin
Suchwort:=EdSuchen.Text;
if LaInXSuchen.Caption='In // Allgemeine Hilfe' then
begin
for i:=1 to Form6.ListBoxHilfeAllgemein.items.count-1 do
if pos(Suchwort, Form6.ListBoxHilfeAllgemein.items[i-1]) > 0 then
Form6.ListBoxHilfeAllgemein.ItemIndex := StrToInt(Form6.ListBoxHilfeAllgemein.items[i-1]);
Form6.ListBoxHilfeAllgemein.Tag := StrToInt(Form6.ListBoxHilfeAllgemein.items[i-1]);
Form6.ListBoxHilfeAllgemein.Visible:=true;
Form6.Visible:=true;
end;
end;