Sorry, aber deine Funktion liefert eine Zugriffsverletzung zurück. Kann auch sein, dass es mein Fehler ist... Habe den Code so verändert:
Delphi-Quellcode:
procedure TForm2.SucheText(SuchText: String);
var
bFound: Boolean;
[b]bMatch: Boolean;[/b]
NewItem: TListItem;
[b]i,j:Integer;[/b]
begin
for i := 0 to [b]Form2.ListView1.Items.Count-1[/b] do
begin
with Form2.ListView1.Items[i] do
begin
bMatch := False;
if Pos(LowerCase(Suchtext),LowerCase(Caption)) > 0 then
bMatch := True;
for j := 0 to SubItems.Count-1 do
begin
if Pos(LowerCase(Suchtext),LowerCase(SubItems[j])) > 0 then
bMatch := True;
end;
if bMatch then
begin
Form2.ListView1.ItemFocused.Caption:=SuchText;
end;
end;
end;
end;
und dies ist mein Aufruf:
SucheText(Finddialog1.FindText);
Habe ich da was falsch gemacht?