Hallo,
vorab: ich habe mit 2 Dateien kopiert um diese Funktion zu testen, hab jetzt
also 2 doppelte Dateien.
Mit unten stehendem Code bringt er mal gar kein Ergebnis, mal nur die 2. doppelte Datei
mal korrekt beide doppelte Dateien und mdann auch noch beim ersten Click die 2. Kopie und beim nochmaligem Click beide Kopien.
Woran liegts? Ich kann es nicht erkennen.
ps:
Die Funktion CompareFile ist hier aus dem Forum von negaH
Delphi-Quellcode:
procedure TForm1.Button18Click(Sender: TObject);
var
i: integer;
FileName1, FileName2: string;
begin
Gauge1.MaxValue := lvOrganisation.Items.Count - 1;
for i := 0 to lvOrganisation.Items.Count - 1 do
begin
if i = lvOrganisation.Items.Count -1 then exit;
FileName1 := lvOrganisation.Items[i].SubItems[0] + lvOrganisation.Items[i].SubItems[1];
FileName2 := lvOrganisation.Items[i+1].SubItems[0] + lvOrganisation.Items[i+1].SubItems[1];
if CompareFile(FileName1, FileName2) = True then ListBox1.Items.Add('doppelt?: ' + FileName1);
Application.ProcessMessages;
Gauge1.Progress := i;
end; // i
end;
Gruß
ereetzer