[romanzi]

Я хочу что-бы моя программа читала doc файлы, но у меня выдаёт ошибку в то время когда я хочу загрузить файл - выдаёт "Ошибка адреса" или, что-то такое!

Код:

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

var   Form5: TForm5;   MSWord : OleVariant;   implementation   {$R *.dfm}   procedure TForm5.Button1Click(Sender: TObject); begin  MSWord := CreateOleObject('Word.Application'); MSWord.Documents.Open(OpenDialog1.FileName); end;   end.

[Страдалецъ]

Код:

1 2 3 4 5 6

procedure TForm5.Button1Click(Sender: TObject); begin if not OpenDialog1.Execute then Exit; MSWord := CreateOleObject('Word.Application'); MSWord.Documents.Open(OpenDialog1.FileName); end;