Текущий архив: 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.46 MB
Время: 0.013 c
