Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от Piflit

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

У неё нет возвращяемого значения, это процедура. Для проверки на ошибку используй try except end;

Цитата:

Сообщение от Piflit

второй вопрос: если создан новый текстовой файл (а не открыт существующий), то при попытке save

Код:

var
  Form1: TForm1;
  FName : String = 'Untinled.txt';

Цитата:

Сообщение от anarсhist

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

стыдно, но до сих пор не наю как ето сделать =(

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FName:=ParamStr(1);
  if(FileExists(FName)) then MyNotepadOpenFile(FName);
end;