Главная страница
    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.47 MB
Время: 0.065 c
15-1137394603
Nic
2006-01-16 09:56
2006.02.12
Чё-то с погодой не то...


11-1118179095
Thaddy
2005-06-08 01:18
2006.02.12
Interested in KOL+ Wine?


1-1137173195
nordic3
2006-01-13 20:26
2006.02.12
Срочно помогите!


1-1137267609
Alex17
2006-01-14 22:40
2006.02.12
Как это выгледит в Дельфи


2-1138020724
md
2006-01-23 15:52
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский