Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
ВнизСохранение Найти похожие ветки
← →
Triny (2003-12-02 13:13) [0]Ужо 3 часа маюсь с дельфи... надо для своехо блокнотика написать погу обычного сохранения...чтоб он не запрашивал куда сохранять.. а сохранял например в Мои документы... а он спрашивает....пожалуста помогите...
А ещё, как написать автосохранение например через каждые 5 минут...?
Зараниее пасибо...
← →
Тимохов (2003-12-02 13:16) [1]А что такое "необычное" сохранение?
(Не издеваюсь, просто вопрос уточняю, что Вам уже известно и на что отвечать уже не надо).
← →
Ru (2003-12-02 13:22) [2]>Triny (02.12.03 13:13)
если пользуешь TMemo то так:
Memo1.Lines.SaveToFile("C:\Мои документы\biliberda.txt");
← →
Triny (2003-12-02 13:31) [3]ну необычное, это - сохранить как...
← →
Тимохов (2003-12-02 13:33) [4]aaa...
Все-таки не совсем, наверное, корректный вопрос:
1. Не сказано чем Вы пользуетесь для написани блокнотика
2. Без ответа на п.1. не очень понятно, что значит "чтобы оне не запрашивал куда сохранять"
Проясните ситуацию...
← →
Triny (2003-12-02 13:36) [5]Не сказано чем Вы пользуетесь для написани блокнотика - а вот эту фразу я тоже не очень поняла
← →
Тимохов (2003-12-02 13:40) [6]Тогда спрошу: что такое "свой блокнотик"?
Как это понимать?
← →
Леприкон (2003-12-02 13:45) [7]
> Triny (02.12.03 13:36) [5]
Имеется в виду наверное, TMemo, TRichEdit или может вообще используется API.
Если он запрашивает, куда сохранять, значит у него есть TOpenDialog, я правильно понял? Что стоит, его отключить тогда?
← →
Ru (2003-12-02 13:45) [8]>Triny (02.12.03 13:36) [5]
компонент для отображения текста (Memo, RichEdit)
для открытия файла: TOpenDialog
для сохранения TSaveDialog
переменную для имени файла
переменную для того, чтобы помнить файл уже сохранён или как
В меню создать пункты:
- Сохранить
- Сохранить как ...
var
FileSaved:boolean;
EditFileName:string;
для сохранить обработчик:
if FileSaved then Memo.SaveToFile(EditFileName) else begin
if SaveDialog.Execute do begin
EditFileName:=SaveDialog.FileName; //запомним для последующего использования
Memo.SaveToFile(EditFileName);
FileSaved:=true;
end;//if SaveDialog.Execute do begin
end;//if FileSaved then Memo.SaveToFile(EditFileName) else begin
для сохранить как:
if SaveDialog.Execute do begin
EditFileName:=SaveDialog.FileName; //новое имя
Memo.SaveToFile(EditFileName);
FileSaved:=true;
end;//if SaveDialog.Execute do begin
← →
k-man (2003-12-02 13:53) [9]
> А ещё, как написать автосохранение например через каждые
> 5 минут...?
Таймер поставь
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c