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

Вниз

Как сохранять файлы   Найти похожие ветки 

 
Dormidont ©   (2006-01-21 22:31) [0]

Я только начал писать на дельфи. Мне срочно надо написать программу на основе текстового редактора. Но у меня возникло пару вопросов.
1. При сохранении файла не возникает сообщения о перезаписи файла.
2. Файл может быть сохранен с различными разрешениями, возможные разрешения я описал, выбираю разрешение, но файл все-равно сохраняется без разрешения.
Буду рад за подсказку или ссылку на литературу.


 
з. танька   (2006-01-21 22:52) [1]


> 1. При сохранении файла не возникает сообщения о перезаписи
> файла.
используй функцию FileExists (она проверяет существует ли файл с таким путём)
> 2. Файл может быть сохранен с различными разрешениями, возможные
> разрешения я описал, выбираю разрешение, но файл все-равно
> сохраняется без разрешения.

ээ наверно не "разрешение" а "расширение"...
если у тебя используется TSaveDialog, задавай ему DefaultExt..


 
MBo ©   (2006-01-21 22:52) [2]

1. В Options у  SaveDialog установи PromptForOverwrite
2. Если у SaveDialog есть список расширений, одно из них выбрано, имя задано, то SaveDialog.FileName содержит полное имя, с расширением


 
Dormidont ©   (2006-01-21 23:46) [3]

У меня в поле Filter для TSaveDialog задано несколько расширений.
Я выбираю одно из них, но файл сохраняется без расширения.


 
Dormidont ©   (2006-01-21 23:52) [4]

В поле диалога Имя файла я задаю имя файла без расширения, подразумевается, что расширение берется из поля Тип файла. Не получается.


 
GuAV ©   (2006-01-22 00:11) [5]

задай defaultext равное расширению по умолчанию и при старте делай чтобы имя было без расширения (или вообще пустое). Тогда если юзер не будет выбирать тип, к имени добавится defaultext, если будет, то расширение, соответствующее типу


 
Dormidont ©   (2006-01-22 00:27) [6]

Нет вопрос немного сложнее, я хочу задавать имя файла (без расширения) в строке диалога Имя файла, а расширение выбирать в строке Тип файла.


 
Dormidont ©   (2006-01-22 01:15) [7]

С предыдущим разобрался. Новый вопрос. Нельзя сохранить подряд два файла с одинаковыми именами и разными расширениями, при сохранении второго, он использует расширение первого и предлагает его перезаписать.


 
GuAV ©   (2006-01-22 02:49) [8]


> Нельзя сохранить подряд два файла с одинаковыми
> именами и разными расширениями, при сохранении
> второго, он использует расширение первого и предлагает
> его перезаписать.

Перед открытием диалога (onBeforeExecute или как-то так) убирай расширение. Простой (хотя и не самый эффективный) способ - SetLength(FN, Length(FN) - Length(ExtractFileExt(FN)));


 
GuAV ©   (2006-01-22 02:52) [9]


> SetLength(FN, Length(FN) - Length(ExtractFileExt(FN)));

Здемь подразумевается FN - переменная с именем файла. Или так with SaveDialog do FileName := Copy(FileName, 1, Length(ExtractFileExt(FileName)));


 
Германн ©   (2006-01-22 02:59) [10]

А TSaveDialog.OnTypeChange не поможет?



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

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

Наверх




Память: 0.46 MB
Время: 0.025 c
2-1138276359
dabreezy
2006-01-26 14:52
2006.02.12
В чем ошибка FindComponent


2-1138190213
Scavenger
2006-01-25 14:56
2006.02.12
Панель задач.


5-1124617599
capkoh
2005-08-21 13:46
2006.02.12
Обновить одновременно?


2-1138270311
Alex7
2006-01-26 13:11
2006.02.12
Функция Locate


15-1137839821
щелкунчик
2006-01-21 13:37
2006.02.12
Как найти мышиную нору?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский