Zur Info:
Ich hab mir vor kurzer Zeit eine Komponente zum Splitten und Zusammenfügen von
Dateien installiert.
Will man eine Datei zusammenfügen, so wird die zusammengefügte Datei mit der Dateiendung XXX gespeichert.
Ich habe die Dateiendung der "noch guten" Datei via Record in eine Datei gespeichert.
(OpenDialog, dann wird die zusammen mit der Datei zum "Wiedervereinen" gespeichert).
Die Dateiendung IM PROGRAMM SELBST aus der Datei auszulesen ist kein Problem.
Es sind die ersten 3 Zeichen in der Datei, die hole ich mir wie folgt:
Ex := copy(ExString, 0, 3);
Ok.
Dass die Datei mit XXX gespeichert wird, steht in einer anderen
Unit (FileSplitter.pas von der Komponente)
Wie kann ich dieses Problem lösen?
Die wichtigen Zeilen in dieser
Unit sind:
Delphi-Quellcode:
begin
if FileExists(FSplitFileName) then
begin
{ Make sure the filename is correct }
if FFileName = '' then
FFileName := ChangeFileExt(FSplitFileName, 'XXX'); // Hier müsste der Inhalt von "Ex" rein
Aber ich kann ja nicht 'XXX' durch Ex ersetzen. (In Ex ist die Dateiendung gespeichert).