Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Matze,
13. Mai 2007
Ich habe es nicht getestet, aber es müsste so ungefähr ausschauen. Auf deinen Fehler kann man ohne Code natürlich nicht näher eingehen.
ProgressBar1.Max := ListBox1.Items.Count;
for i := 0 to Listbox1.Items.Count - 1 do
begin
CopyFile(IncludeTrailingPathDelimiter(ListBox1.Items) + ListBox2.Items, ...);
ProgressBar1.Position := i + 1;
Application.ProcessMessages; // evtl. hast...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Matze,
13. Mai 2007
Bitte nächstes mal ohne Aufforderung ein neues Thema erstellen, denn das hat mit der Ausgangsfragestellung nicht mehr viel gemeinsam, es sei denn, du passt das erste Thema und den Titel des Themas entsprechend an.
Progressbar initialisieren:
ProgressBar1.Max := ListBox1.Items.Count;
Dann in deiner Schleife:
ProgressBar1.Position := i + 1;
Application.ProcessMessages;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Matze,
13. Mai 2007
Das geht mit einer Schleife und CopyFile:
for i := 0 to Listbox1.Items.Count - 1 do
CopyFile(IncludeTrailingPathDelimiter(ListBox1.Items) + ListBox2.Items);
Schöner wäre es jedoch, wenn du die Pfade intern speicherst und damit arbeitest (Bsp: TStringList).
Aber bitte erstelle zukünftig pro Frage einen neuen Thread.
Schön wäre es auch, wenn du die Lösung zum ersten Problem noch posten...