открытие файла программой

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

Есть текстовый редактор,при открытии редактора файлом, нужно что бы он проверял расширение и если расширение txt ,то открывается в Richedit1,а
если ini , то в Richedit2
Написал вот так ,но открывается сразу в двух

procedure TForm1.FormCreate(Sender: TObject);
var
ten:string;
begin
ten := ExtractFileExt(ParamStr(1));
  delete(ten, 1, 1);
if ten='txt' then begin RichEdit1.Lines.LoadFromFile(ParamStr(1)); end;
if ten='ini' then begin RichEdit2.Lines.LoadFromFile(ParamStr(1)); end;
end;

[BuT@JL]

А если попробывать вот так

procedure TForm1.Button1Click(Sender: TObject);
begin

If FileExists('C:\1.txt') Then
Begin
RichEdit1.Lines.LoadFromFile('C:\1. txt');
End;

If FileExists('C:\1.ini') Then
begin
RichEdit2.Lines.LoadFromFile('C:\1. ini');
end;

end;

[uberchel]

Сообщение от Михаил Юрьевич

Есть текстовый редактор,при открытии редактора файлом, нужно что бы он проверял расширение и если расширение txt ,то открывается в Richedit1,а
если ini , то в Richedit2
Написал вот так ,но открывается сразу в двух

procedure TForm1.FormCreate(Sender: TObject);
var
ten:string;
begin
ten := ExtractFileExt(ParamStr(1));
  delete(ten, 1, 1);
if ten='txt' then begin RichEdit1.Lines.LoadFromFile(ParamStr(1)); end;
if ten='ini' then begin RichEdit2.Lines.LoadFromFile(ParamStr(1)); end;
end;

Код работает правильно, может просто глюки какие в Делфе ?

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

Вот так все работает если открывать через Opendialog,а нужно открывать файлом

procedure TForm1.Button1Click(Sender: TObject);
var
exten: string;

begin
if OpenDialog1.Execute then
begin
  exten := ExtractFileExt(OpenDialog1.FileName);
  delete(exten, 1, 1);

end;
if exten='txt' then begin RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); end;
if exten='ini' then begin RichEdit2.Lines.LoadFromFile(OpenDialog1.FileName); end;
end;

[SuperVisor]

А переменную ten отслеживать пробовали? )
И уберите Вы лишние endы beginы в условных операторах. )))

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

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

А переменную ten отслеживать пробовали? )
И уберите Вы лишние endы beginы в условных операторах. )))

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

[SuperVisor]

Дак и все-таки, какие значения принимает Ten? Что возвращает ParamStr(1)?
Может в коде есть еще функции, которые отрабатывают после открытия формы?
Если все не то - исходники в студию - разберемся ))

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

Всем спасибо ,сделал ten: string; в глобальную и все заработало