[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

18.05.2007, 19:20

~~Piflit~~

Banned

Регистрация: 11.08.2006

Сообщений: 1,522

Провел на форуме:
5128756

Репутация: 2032

Отправить сообщение для Piflit с помощью ICQ

и первый вопрос. создание блокнота. какой должен быть тип возвращаемого функцией значения, если функция сохраняет файл?
второй вопрос: если создан новый текстовой файл (а не открыт существующий), то при попытке save

Код:

MainMemo.Lines.SaveToFile(FName);

вылетает ошибка. FName появляется после использования OpenDialog.

Код:

if OpenDialog1.Execute then
begin      
   FName:=OpenDialog1.FileName; 
   MainMemo.Lines.LoadFromFile(FName);    
end;

я хочу решить эту проблему с помощью проверки на существование FName и функции, сделанной из обработчика SaveDialog

Код:

begin 
   SaveDialog1.FileName:=FName;  
   if SaveDialog1.Execute then    
      begin      
         FName:=SaveDialog1.FileName; 
         MainMemo.Lines.SaveToFile(FName);    
      end;  
end;

может есть какое-то более правильное решение? если да, на вопрос номер 1 просьба все равно ответить.
ЗЫ помогаюсь книжкой Архангельского "100 компонентов общего назначения библиотеки Delphi 5"
ЗЫЫ to begin end