Listen&Umbenennen von Dateien

[nEmai]

Hallo,

ich möchte ein Programm schreiben, das zuerst die Namen von Dateien in einem Verzeichnis in einer Textdatei mit fortlaufender Nummer listet und dann den Dateien diese Nummer gibt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MySearchFile: TSearchRec;
  MyTextFile: TextFile;
  sDir: String;
  iTrue,
  iCounter: Integer;
begin
  sDir:= Edit1.Text;
  iCounter:= 1;
  AssignFile(MyTextFile, sDir+'neu.txt');
  ReWrite(MyTextFile);

  FindFirst(sDir+'*.*', faAnyFile-faDirectory, MySearchFile);
  repeat
    Memo1.Lines.Add(MySearchFile.Name);
    WriteLn(MyTextFile, FormatFloat('00#', iCounter)+' - '+MySearchFile.Name);
    RenameFile(sDir+MySearchFile.Name, sDir+FormatFloat('00#', iCounter)+'.'+//was?
    Inc(iCounter);
  until FindNext(MySearchFile)<>0;

  CloseFile(MyTextFile);
  FindClose(MySearchFile);
end;

So weit so gut, die Liste wird erstellt.
Allerdings häng ich am Umbenennen, gibt es eine Funktion um an die Endung der Datei zu kommen?
Bzw davor, stimmen meine Parameter an RenameFile überhaupt? Also vollständige Pfadangabe alt+neu.

Der Fragen noch nicht genug,
1. Muss ich MyTextFile wieder freigeben?
2. Was genau macht eigentlich ReWrite(..)? Die Delphi Hilfe kennt es nicht, aber ohne geht es nicht.

MfG. ^^

[Fussball-Robby]

Die Endung bekommst du mit ExtractFileExt(), ändern kannst du diese mit ChangeFileExt()

[dominikkv]

1. Nein
2. Mit AssignFile weist du deiner Variable einfach nur ein File zu. Darin kannst du aber noch nicht lesen/schreiben, du musst sie zuerst öffnen.
Es gibt 3 Möglichkeiten eine Datei zu öffnen:

• Reset: Öffnet eine bereits bestehende Datei. Du kannst lesen und schreiben.
• Rewrite: Legt eine neue Datei an und öffnet sie. Bereits existierende Dateien werden überschrieben! Du kannst lesen und schreiben
• Append: Öffnet eine existierende Datei und springt ans ENDE, du kannst also ganz einfach hinten drann weiterschreiben. Kann nur in Verbindung mit Textdateien verwendet werden

[nEmai]

Danke für die Antworten, funktioniert. ^^ (Solang der Deteiname nicht mit ner Zahl beginnt, aber das korrigier ich irgendwann, wenn ichs brauch..)