Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Расширения файлов   Найти похожие ветки 

 
KreZ0n   (2003-08-14 22:50) [0]

Подскажит какой функцией или процедурой можно изменить расширение файла? Функции ChangeFileExt и ReplaceFileExt возвращают string. Что с ней делать?


 
SPeller ©   (2003-08-15 04:54) [1]

Что-то типа MoveFile( OldFileName, NewFileName );


 
KPP   (2003-08-15 10:30) [2]

Предположим у тебя файл C:\1111\Picture.ico
а тебе нужно изменить расширение на BMP

var
s:string;
begin
s:="C:\1111\Picture.ico";
s:=ChangeFileExt(s,".BMP");
end;

в результате  s="C:\1111\Picture.BMP"

посмотри хелп по ChangeFileExt function
там и пример есть


 
FoxBox   (2003-08-15 10:34) [3]

procedure Rename(var F; Newname:string);

Одно условие: если файл Newname сущствует, ничего не затрется, не переименуется. Так что проверяй, если существует файл с именем Newname, то... сам знаешь чего...


 
FoxBox   (2003-08-15 10:36) [4]

procedure Rename(var F; Newname:string);

Одно условие: если файл Newname сущствует, ничего не затрется, не переименуется. Так что проверяй, если существует файл с именем Newname, то... сам знаешь чего...


 
FoxBox   (2003-08-15 10:36) [5]

111


 
KreZ0n   (2003-08-16 00:11) [6]

KPP я знаю эту функцию, но что мне делать с твоим s?


 
SPeller ©   (2003-08-17 14:55) [7]


> var
> s:string;
> begin
> s:="C:\1111\Picture.ico";
> s:=ChangeFileExt(s,".BMP");
> end;
>
> в результате  s="C:\1111\Picture.BMP"

Точно? А мне кажется он на диске таким же и останется.


 
KreZ0n   (2003-08-17 22:59) [8]

Вот решение, короче.
FileName уже определено

var
s:string;
f:file;
begin
s:="C:\1111\Picture.ico";
s:=ChangeFileExt(s,".BMP");
Assign(f,FileName);
Rename(f,s);
end;


 
SPeller ©   (2003-08-18 03:03) [9]

s:=ChangeFileExt("C:\1111\Picture.ico",".BMP");
Assign(f,FileName);
Rename(f,s);

А так ещё короче :))


 
ORMADA ©   (2003-08-18 08:46) [10]

ChangeFileExt(ExtractFileName(Application.ExeName), "_")
смотри Help  в дельфях по ChangeFileExt ...


 
FoxBox   (2003-08-18 10:09) [11]


> KreZ0n

Не обязательно делать ASSIGN перед RENAME


 
SPeller ©   (2003-08-18 13:41) [12]

s := "C:\1111\Picture.ico";
MoveFile( PChar( s ), PChar( ChangeFileExt( s, ".bmp" ) ) );

И не надо изобретать велосипед.


 
Алекс   (2003-08-18 16:35) [13]

RenameFile("C:\1111\Picture.ico","C:\1111\Picture.bmp") возвращает Boolean


 
SPeller ©   (2003-08-19 05:05) [14]


> Алекс   (18.08.03 16:35) [13]

Во-первых, функции RenameFile в KOL нет, а во-вторых, взшляните на её реализацию из SysUtils:

function RenameFile(const OldName, NewName: string): Boolean;
begin
{$IFDEF MSWINDOWS}
 Result := MoveFile(PChar(OldName), PChar(NewName));
{$ENDIF}
{$IFDEF LINUX}
 Result := __rename(PChar(OldName), PChar(NewName)) = 0;
{$ENDIF}
end;



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.031 c
3-1079467510
malush
2004-03-16 23:05
2004.04.11
Помогите сделать вычеслимое поле!!!


7-1080576878
DelphiN!
2004-03-29 20:14
2004.04.11
Получить список расшаренных ресурсов на текущем компьютере


8-1072194231
Kein
2003-12-23 18:43
2004.04.11
Описание графических форматов


1-1080210217
SergP
2004-03-25 13:23
2004.04.11
Как запретить запуск нового процесса?


3-1081854163
Назаров Евгений
2004-04-13 15:02
2004.04.11
SQL