Текстовый редактор

[:: K@PyShOn xD ::]

В общем дело такое я сделал текстовый редактор, но проблема в том что когда я открываю какой-та текстовый файл с помощью этой программы то программа тупо запускается, а не выводит содержимое файла
Итак вопрос что надо писать в OnCreate ?

[Hacker19_90]

Потому что программа файл и не открывает!
проверяйте входные параметры!

[Triplecool]

Добавьте компонент OpenDialog. Вот процедура кнопки которая открывает файл

procedure ...
begin
if OpenDialog1.Execute then
begin
Memo1.Clear;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;

[Hacker19_90]

Какой опендиалог?
если он открывает с помошью!
Ключевое слово здесь "Открыть с помощью..."
При таком методе нужно проверять входные параметры!
Диалоги не причём тут!

[Человек_Борща]

Ну как-то так, нужно читать первый параметр командной строки.
Именно туда идет путь к файлу который передают с помощью "открыть с помощью" либо тупо бросив файл на exe.

Метод OnCreate у формы
..
if ParamCount > 0 then
ВашКласс.LoadFromFile(ParamStr(1));

[Triplecool]

procedure TForm1.onCreate();
begin
Memo1.Lines.LoadFromFile(extractFilePath(Application.ExeName)+'text.txt');
end;

[Triplecool]

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

Какой опендиалог?
если он открывает с помошью!
Ключевое слово здесь "Открыть с помощью..."
При таком методе нужно проверять входные параметры!
Диалоги не причём тут!

Я невнимательно прочитал вопрос.

[Hacker19_90]

Я невнимательно прочитал вопрос.

Да ничего бывает!
Вот вам +1 к внимательности!

[:: K@PyShOn xD ::]

Ну я делал до этого так
----------------
var
FileName:string;
begin
FileName:=ParamStr(1);
RichEdit1.Lines.LoadFromFile(FileNa me);
end;
----------------
Всё нормально открывается вот тока когда не файл, а саму программу врубаеш она ошибку выдаёт всё равно запускается но с ошибкой

[Hacker19_90]

Всё нормально открывается вот тока когда не файл, а саму программу врубаеш она ошибку выдаёт всё равно запускается но с ошибкой

Вы внимательно читали пост Человек_Борща ?
Где у вас проверка на количество параметров передаваемых программе?

if ParamCount > 0 then