пишу текстовик. как открыть файл на лету?

[Deceased]

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

просто открытии?)
чисто ЕХЕшника, без файлов?)

если просто - то ошибка cannot open file "". the system can not find file path specified.
если блокнот открывать с помощью эезешника - то всё окей.


а вот если с уловием if ParamCount>0 then то просто открытие экзешника происходит успешно, а при открытии текстового файла экзешником он не вводит содержимое файла в мемо, но всё без ошибок.



что дают try и except?
попробовал - при таком использовании как вы писали - та же самая ошибка..

[KORN]

if (ParamCount > 0) and FileExists(ParamStr(1)) then
memo1.Lines.LoadFromFile(ParamStr(1));

[Granus]

if ParamCount>0 ставь только при запуске))
а когда уже юзер через меню открывает файл, тут не надо)

[Deceased]

KORN, ваш вариант тоже не работает.
программа работает и компилируется нормально, но при открытии с пом. неё содержимое текстовика не переносится в мемо1.

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

if ParamCount>0 ставь только при запуске))
а когда уже юзер через меню открывает файл, тут не надо)

я так и делаю

[KORN]

значит ты что то не так делаешь.. у меня все прекрасно работает

[Granus]

омг
ниче не понимаю
по идее должно пахать
напиши так

procedure TForm1.FormCreate(Sender: TObject);
begin
  try
  memo1.Lines.LoadFromFile(paramstr(1));
  except
  end;
end;

в делфе будет ошибка, так и должно быть
занеси это в коммент штоб не раздражало, потом откроешь

[Jeni]

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

Исходники прилагаю, но там ничего интересного...

Ошибаешься, там есть кое-что интересное. Ты объявил свою собственную переменную ParamCount, а потом удивляешься что проверка if ParamCount > 0 then не работает!
Эта переменная уже определена в модуле system и она автоматически устанавливается при запуске программы, как и массив параметров. А ты используешь свою локальную переменную и притом нигде не устанавливаешь её значение.

[Deceased]

Jeni, точно. Теперь всё заработало по вышеописанным советам. Я, не зная этого, сделал так, как прочитал в одном из примеров (не здесь).