Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.09 c
15-1137266260
Norm Iridium
2006-01-14 22:17
2006.02.12
Вот тут курсовую программу написал.


4-1133198140
volser
2005-11-28 20:15
2006.02.12
Hooks & COM


10-1113298915
xman
2005-04-12 13:41
2006.02.12
добавить строку в Excel


15-1138032107
Exciter
2006-01-23 19:01
2006.02.12
Есть ли XPMan для D5 ?


2-1138090132
Vitekkk
2006-01-24 11:08
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский