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?