Witam,
Poniższa procedura porównuje nazwę pliku z CheckListBoxa (np. c:test.txt; d:testtest.txt) Z wpisem w ListView. ListView składa się z dwóch kolumn nazwa i ścieżka. Jeżeli wpis (nazwa pliku) się dubluje to jest usuwany z ListView. Procedura ta szuka tylko w pierwszej kolumnie. Nie wiem w jaki sposób przeszukac druga kolumnę, tak aby porównać ścieżki.
Procedura:
procedure TForm1.Button15Click(Sender: TObject);
var
I: Integer;
FullName,FullPath: String;
begin
for I := 0 to CheckListBox2.Items.Count - 1 do
begin
FullName:= ExtractFileName(CheckListBox2.items[I]);
FullPath:= ExtractFilePath(CheckListBox2.items[I]);
with ListView1 do
for Index:=Items.Count -1 downto 0 do
begin
if Lstrcmpi(Pchar(Items.Item[Index].Caption),Pchar(fullname))
= 0 then
// porownaj
begin
Items.Delete(Index);
end;
end;
end;
end;
Co w tej procedurze należy zmodyfikować, aby były przeszukjiwane(porównywane) elementy z drugiej kolumny ListView?
Z góry dziękuję za wszystkie podpowiedzi,
Pozdrawiam,
Piotr Murawski