Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.018 c