znowu z tym _kopia.txt

Poprzednia funkcja

"Nowa_Nazwa:=ChangeFileExt(Stara_Nazwa, '_kopia.txt'); "

nie zdała egzaminu. A co jeśli został otwarty plik z inną końcówką niż TXT (np. index.htm). Wtedy powinno się zapisać jako "index_kopia.htm".

Proszę - pomóżcie.

Wydaje mi sie, ze zapisze podnazwa ta ktora podasz w nawiasie funckji ChageFileExit(); Ale pewny niejestem bo tej funkcji nie uzywam :P--Pozdrawiam wszystkich

Jakoś tak to szło:

var
filename, new_filename:string;

if not fileexists(filename) then
new_filename:=filename
else
new_filename:='kopia '+copy(extractfilename(filename), 1, length(extractfilename(filename))-length(extractfileext(filename)))+extractfileext(filename);---------------------------
Delphi 6

Pozdrówka

gizmo napisał:
"Nowa_Nazwa:=ChangeFileExt(Stara_Nazwa, '_kopia.txt'); "

To może:

Nowa_Nazwa:=ChangeFileExt(Stara_Nazwa, '_kopia' + ExtractFileExt(Stara_Nazwa))--Vogel [Delphi 6 PE]

Life is just a dream, you know...
[Cowboy Bebop]