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

Вниз

SaveDialog.FileName := OpenDialogFileName .....   Найти похожие ветки 

 
Tatyana   (2004-02-28 23:14) [0]

Как сохранить файл с тем же именем, что был открыт, но с другим расширением?


 
YurikGl ©   (2004-02-28 23:19) [1]

SaveDialog.defaultext попробуй


 
Palladin ©   (2004-02-28 23:26) [2]

ChangeFileExt


 
jack128 ©   (2004-02-28 23:29) [3]

function ReplaceFileExt(filename: string; NewExt: string): string;
begin
for i := Length(FileName) downto 2 do
if FileName[i] = "." then
begin
Result := Copy(FileName, 1, i - 1) + NewExt;
Exit;
end;
Result := FileName + NewExt;
end;

NewFileName := ReplaceFileExt(OldFileName, NewExt);


 
uUnknown   (2004-02-28 23:33) [4]

Unit

SysUtils

Category

file name utilities

Delphi syntax:

function ChangeFileExt(const FileName, Extension: string): string;

Бывает и такое.)


 
uUnknown   (2004-02-28 23:40) [5]


> Palladin © (28.02.04 23:26) [2]

Пошел-ка я спать...)


 
jack128 ©   (2004-02-28 23:41) [6]

Да, а моем примере ошибочка
if FileName[i] = "." then
begin
Result := Copy(FileName, 1, i - 1) + NewExt;
Exit;
end
else
if FileName[i] = "\" then Break;


 
YurikGl ©   (2004-02-28 23:43) [7]

Re [6] Еще надо бы обработать ситуацию отсутствия расширения :)


 
jack128 ©   (2004-02-28 23:47) [8]


> YurikGl © (28.02.04 23:43) [7]
последняя строчка функции, что по твоему делает? ;-)


 
YurikGl ©   (2004-02-28 23:49) [9]

Дык при отсутсвии расширения, можно бы к нему новое и прибавить.


 
jack128 ©   (2004-02-28 23:52) [10]


> Дык при отсутсвии расширения, можно бы к нему новое и прибавить.
именно это последняя строка и делает.


 
YurikGl ©   (2004-02-28 23:55) [11]

пардон, невнимательно код смотрел :)



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

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

Наверх




Память: 0.48 MB
Время: 0.019 c
1-43641
Мыш
2004-03-02 11:43
2004.03.14
TChart, как задать нач. и конечное значение горизонтальной оси?


1-43624
Vanja
2004-03-01 19:00
2004.03.14
как программно удалить папку?


7-43908
_shark_
2003-12-23 12:14
2004.03.14
Как сделать так чтобы программа запускалась под всеми учетными


3-43267
ki2000
2004-02-11 20:23
2004.03.14
Проблемы с Lookup


6-43741
Филипп
2004-01-08 12:13
2004.03.14
Скачивание файлов - Delphi6