Problem beim Vergleich verschiedener ListBox-Einträge

[St.Pauli]

Hi,
ich will die Einträge der ListBox4 mit den Einträgen der ListBox2 vergleichen. Die Doppelten Einträge werden dann immer in der LB 4 gelöscht.

Delphi-Quellcode:

  hilfs := ListBox4.Items.Count;

for i := ListBox4.Items.Count -1 downto 0 do
  ProgressBar1.Position := hilfs-i;
    begin
      for i2 := ListBox2.Items.Count - 1 downto 0 do
        begin
          s1 := ListBox4.Items[i];
          s2 := ListBox2.Items[i2];
          if (s1 = s2) then
            begin
              ListBox4.Items.Delete(i);
            end;
        end;
    end;

Nur leider kommt immer die Meldung

Zitat:

[Warning] Unit1.pas(82): Symbol 'FindData' is specific to a platform
[Warning] Unit1.pas(82): Symbol 'FindData' is specific to a platform

Was kann/muss ich machen?

[semo]

sorry, aber ich kann in dem geposteten Quelltext "FindData" nicht lokalisieren?!
postest du evtl. mal den ganzen Quelltext bzw den Auszug wo dieses "FindData" auftaucht?

[alcaeus]

Zitat:

[Warning] Unit1.pas(82): Symbol 'FindData' is specific to a platform
[Warning] Unit1.pas(82): Symbol 'FindData' is specific to a platform

Solange du den Code nicht auf andere Plattformen portieren musst, kannst du die Warnungen getrost ignorieren. Der Code laeuft ja, oder?

Greetz
alcaeus

[St.Pauli]

nein, läuft nicht...
hier mal der ganze code....

Delphi-Quellcode:

 GetFilesInDirectory('C:\', '*.*', ListBox1.Items, True, False);
  GetFilesInDirectory('C:\', '*.*', ListBox3.Items, True, False);

  ProgressBar1.Min := 0;
  ProgressBar1.Max := ListBox1.Items.Count;

  for i := 0 to ListBox1.Items.Count -1 do
    begin
      ProgressBar1.Position := i;
      ListBox2.Items.Add(ExtractFileName(ListBox1.Items[i]));
    end;

  for i := 0 to ListBox3.Items.Count -1 do
    begin
      ProgressBar1.Position := i;
      ListBox4.Items.Add(ExtractFileName(ListBox3.Items[i]));
    end;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := ListBox4.Items.Count;

  hilfs := ListBox4.ITems.Count;

  for i := ListBox4.Items.Count -1 downto 0 do
  ProgressBar1.Position := hilfs-i;
    begin
      for i2 := ListBox2.Items.Count - 1 downto 0 do
        begin
          s1 := ListBox4.Items[i];
          s2 := ListBox2.Items[i2];
          if (s1 = s2) then
            begin
              ListBox5.Items.Add(ListBox3.Items[i]);
              ListBox3.Items.Delete(i);
              ListBox4.ITems.Delete(i);
            end;
        end;
    end;

Dient zur suche doppelter dateien - ich weiss, im moment macht das ganze noch keinen sinn, wollte aber erstmal, das der code steht.

[SirThornberry]

Zitat:

Zitat von St.Pauli

nein, läuft nicht...

was heißt: "Läuft nicht"? kommt ein Fehler, wird nur nicht das gemacht was passieren soll. Lässt sich das ganze nicht kompilieren? eine Fehlerbeschreibung wäre hilfreich

Fehler liegt auch hier

Delphi-Quellcode:

for i := ListBox4.Items.Count -1 downto 0 do
  ProgressBar1.Position := hilfs-i; 
  begin 
  [...]

du musst das progressbar1.position hinter das begin packen. Ansonsten gilt die vorschleife nur für die Zeile

Delphi-Quellcode:

ProgressBar1.Position := hilfs-i;

und das darunter hat nix mehr mit der schleife zu tun

[semo]

was steht in der methode Getfilesindirectory?

[sniper_w]

Zitat:

du musst das progressbar1.position hinter das begin packen. Ansonsten gilt die vorschleife nur für die Zeile

:thumb: Genau. Am sonsten sollte es gehen.

[St.Pauli]

OK, hab jetzt die ProgressBar in das begin getan. War ein Flüchitgkeitsfehler. Hatte mich bei der Fehlersuche zu stark auf

Delphi-Quellcode:

  s1 := ListBox4.Items[i];
          s2 := ListBox2.Items[i2];
          if (s1 = s2) then

konzentriert....

[SirThornberry]

und funktionierts jetzt so wie du es wolltest?

[St.Pauli]

Ja, THX!!! :thumb: :thumb: :thumb: