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]

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

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

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

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