Hallo Leute
Wie könnt Ich das am einfachsten anstellen ?
Ich wollte mit unten stehenden Code einen Ordner mit Bildern umbenennen nur leider krieg ich das mit der Listbox nicht hin.
Die Bilder sollen in der gleichen Reihenfolge wie sie im Ordner sind erhalten bleiben da die Bilder aber zb. Bild0, Bild174, Bild934, Bild1054 heißen bringt mir die Listbox die Bilder Durcheinander also
Bild0 = Bild1
Bild1054 = Bild2
Bild174 = Bild3
Bild934 = Bild4
Vieleicht weiß einer von euch Rat.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.Button1Click(Sender: TObject);
var
x,i:Integer;
begin
x:=ListBox1.Items.Count;
for i := 0 to x-1 do
begin
Y:=Y+1;
RenameFile(Pfad+'\'+ListBox1.Items[i],Pfad+'\'+'Neu_'+IntTostr(Y)+'.jpg');
end;
end; |
