Не открывается файл

[Михаил Юрьевич]

Хочу открыть файл своим текстовым редактором,указываю на текстовый
файл через меню "открыть с помощью"и выбираю свою программу,кликаю
на текстовый файл ,моя программа открывается а текста в ней нет

[Air]

Смотри сдесь (сообщение #16)
http://www.programmersforum.ru/showt...t=14333&page=2

[Михаил Юрьевич]

Я сначала там посмотрел и попробовал а потом написал,у меня правда не Memo а RichEdit не знаю есть разница? Переставил вместо Memo RichEdit
все равно не открывает
И заодно попробовал в реестре сделать по умолчанию,все правильно прописалось ,сделал перезагрузку ,по умолчанию не работает

[vitalik007]

я конечно не уверен.Но этот текстовый файл передается exe через параметры!Я прав??

[Михаил Юрьевич]

Если можно напишите конкретный код

[Air]

Возможно не открылся потому что структура файла не как простого txt

{\rtf1\ansi\ansicpg1251\deff0\defla ng1049{\fonttbl{\f0\fnil arial;}{\f1\fswiss\fcharset0 Tahoma;}}
\viewkind4\uc1\pard\f0\fs16 REd1
\par \lang1033\f1 fdgsfgsdfgfgdfgdf
\par g
\par dfg
\par sdf
\par gsd
\par fg
\par dfgdfgsdfgsdfg
\par sdfgdf
\par gsdf
\par gdfgdfg\lang1049\f0
\par }

Здесь есть описание типов, шрифтов и т.д.

Однако, если Вы напишите что-нибудь в RichEdit и сохраните методом
"red1.Lines.SaveToFile('C:\1.txt'); " и после загрузите ("D:\Projects\Начальный проект\Project1.exe" c:\1.txt - это в ярлыке я прописывал), то файл загрузится.
RichEdit - создаёт что-то вроде "RTF"-файла.

P.S.
1. If (ParamCount > 0) and (FileExists(ParamStr(1))) then
2. memo2.Lines.LoadFromFile(ParamStr(1 ));
этот код поставь в FormCreate
Вместо memo2 свой RichEdit

[Михаил Юрьевич]

Вставил If (ParamCount > 0) and (FileExists(ParamStr(1))) then
RichEdit1.Lines.LoadFromFile(ParamS tr(1)); в FormCreate
Теперь когда открываю текстовый файл выскакивает окно с ошибкой-
Cannot focus a disabled or invisible window. в окне одна кнопка OK
нажимаю OK открывается моя программа и правильно все показывает

[Air]

У Вас какой Delphi?
~~~
Перевод такой "Не может сфокусировать выведенное из строя или невидимое окно"
~~~
Возможно он работает как-то быстрее что ли, эта ошибка похожа на то что происходит закрузка файла в не существующий компонент RichEdit1 или каких-то св-в.

Попробуйте поставить код загрузки в FormShow, если не прокатит попробуйте так:
Создайте таймер с задержкой 300-500 мкс в состояние True

...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If (ParamCount > 0) and (FileExists(ParamStr(1))) then
RichEdit1.Lines.LoadFromFile(ParamStr(1));
Timer1.Enabled:=false;
end;
...

Какой смысл?
- После загрузки проги в память и создания всех компонентов пройдёт 300-500 мкс, это даст фору проге перед загрузкой файла, я раньше так делал, когда приходилось работать с кучей форм.

[Михаил Юрьевич]

Спасибо большое за советы,оказалось все проще,код:# If (ParamCount > 0) and (FileExists(ParamStr(1))) then
# RichEdit1.Lines.LoadFromFile(ParamS tr(1)); я вставил не в FormCreate а в
TForm1.RichEdit1Change и все пошло,извините за надоедливость

[Air]

С кем не бывает, за этим форум и существует.