Forum: Object-Pascal / Delphi-Language
Delphi
by St.Pauli,
20. Mär 2005
Ja, THX!!! :thumb: :thumb: :thumb:
Forum: Object-Pascal / Delphi-Language
Delphi
by St.Pauli,
20. Mär 2005
OK, hab jetzt die ProgressBar in das begin getan. War ein Flüchitgkeitsfehler. Hatte mich bei der Fehlersuche zu stark auf
s1 := ListBox4.Items;
s2 := ListBox2.Items;
if (s1 = s2) then
konzentriert....
Forum: Object-Pascal / Delphi-Language
Delphi
by St.Pauli,
20. Mär 2005
nein, läuft nicht...
hier mal der ganze code....
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
Forum: Object-Pascal / Delphi-Language
Delphi
by St.Pauli,
20. Mär 2005
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.
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