[Ogurcofff]

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

Код:

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

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

Код:

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
        Mmo1.lines.LoadFromFile(SProg);
        i:=mmo1.Lines.Count; 
        V:=mmo1.Text;
    end;

[Glob]

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

dlgOpen1 .FileName ;

[Ogurcofff]

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

[Glob]

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

Код:

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

[Ogurcofff]

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

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

Код:

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

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

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

Код:

if not dlgOpen1.Execute then 
  Exit;

[Ogurcofff]

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