[Ogurcofff]

Задача передать содержимое txt файла в memo. Знаю что обмусолено все миллион раз.
Предлагается пользоваться:

Код:

1	Mmo1.lines.LoadFromFile('file.txt')

Но возникла проблема. Не выводится блин. Открываю файл через opendialog.
Далее содержимое файла должно передаться в memo выше описанным путем. Но memo остается пустым. Может что то еще надо дописать?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.btn1Click(Sender: TObject);     begin      q:=0;      dlgOpen1.Execute;      Edit1.Text := dlgOpen1 .FileName;      SProg := dlgOpen1 .FileName ;      btn2.Visible := True;      end;     procedure TForm1.btn2Click(Sender: TObject);      begin         <b><font color="Red">Mmo1.lines.LoadFromFile(SProg);</font></b>         i:=mmo1.Lines.Count;         V:=mmo1.Text;     end;

[Glob]

Странные у тебя пробелы тут

dlgOpen1 .FileName ;

[Ogurcofff]

Да пробелы тут не при делах, я так понимаю. Может в свойствах самого memo намудрил что?

[Glob]

А так заработает?

Код:

1	if dlgOpen1.Execute then SProg:=OpenDialog1.FileName;

[Ogurcofff]

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

А так заработает?

Код:

Нет, все по прежнему.

[M.A.D.M.A.N.]

Код:

1 2	if <b>not</b> dlgOpen1.Execute then   Exit;

[Ogurcofff]

Заработало. Спасибо всем большое!!! Век живи век учись, все равно дураком останешься