Як відкрити готовий word в delphi

як відкрити готовий word в Delphi

Допоможіть будь ласка ще разок.
я вписав код: # XA0;
procedure TForm1.RadioButton1Click (Sender: TObject);
# XA0; var Word: variant;
begin
if RadioButton1.Checked = True then
Word: = CreateOleObject ( "Word.Application");
Word.Documents.Open ( "L: \ ДИПЛОМ \ test.doc");
end;
а він при запуску видає не може знайти файл. не зрозумію в чому справа

Навіщо воно тобі, це програмування?

procedure DoOpenWordDoc (FileName: string);
var
# XA0; w: Variant;
begin
# XA0; w: = CreateOleObject ( "Word.Application"); # XA0; // # XA0;<- сюда бряк и смотреть, что в FN пришло
# XA0; w.Documents.Open (FileName);
end;

procedure TForm1.RadioButton1Click (Sender: TObject);
begin
# XA0; if RadioButton1.Checked then
# XA0; # XA0; with TOpenDialog.Create (nil) do
# XA0; # XA0; try
# XA0; # XA0; # XA0; if Execute then
# XA0; # XA0; # XA0; # XA0; DoOpenWordDoc (FileName);
# XA0; # XA0; finally
# XA0; # XA0; # XA0; Free;
# XA0; # XA0; end;
end;

> "L: \ ДИПЛОМ \ test.doc"


> Зовнішній жорсткий \ ДИПЛОМ \ Дипломний проект

ти не врахував цю папку

> Не може знайти файл

в Делфі існують функція fileexists, яку непогано було б використовувати до спроби відкриття, а також є діалогові всякі фігні, типу TOpenDialog, які дозволяють вибрати файл, і автоматом генерує шлях до нього.
та й питання Плохиша тож має сенс обдумати.

Пам'ять: 0.72 MB
Час: 0.02 c