Hi DJ-SPM,
ungetesteter Code:
Delphi-Quellcode:
procedure SucheText(SuchText: String);
var
bMatch: Boolean;
NewItem: TListItem;
i, j: Integer;
begin
for i := 0 to ListView1.Items.Count-1 do
begin
with 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
NewItem := ListView2.Items.Add;
NewItem.Caption := Caption;
for j := 0 to SubItems.Count-1 do
NewItem.SubItems.Add(SubItems[j]);
end;
end;
end;
end;
Erklärung: Der Code durchsucht alle Items und deren SubItems, und wenn der Suchbegriff enthalten ist (nicht case sensitive), so wird das Item in ListView2 hinzugefügt.
Greetz
alcaeus
PS: Code wurde nicht getestet oder compiliert.
[edit]da waren keine fehler im code[/edit]