[xzhoper]

Доброго всем времени суток. Помогите, пожалуйсто, с решением задачи.
В программирование первый год, учусь. Дали задание, нашол подобный код моей задачи. Он работает.
Необходимо переделать одну продцедуру.

Код:

procedure SendToWord(const aStrFileName : String; aLog : TStrings);
begin
  //Если к Ворду еще не подключены, то подключаемся к нему.
  //При этом MS Word запускается.
  if TVarData(MSWord).VDispatch = nil then begin
    MSWord := CreateOleObject('Word.Application');
    //Делаем видимым окно MS Word.
    MSWord.Visible := true;
    //Запись в журнал.
    aLog.Add('Запуск MS Word...');
  end;
  //Открываем в MS Word заданный файл.
  MSWord.Application.Documents.Open(FileName := aStrFileName);
  //Запись в журнал.
  aLog.Add('Файл открыт в MS Word.');
end;

Admin: Пользуемся тегами для оформления кода!

Она открывет заданный файл в ворде, а мне нужно чтобы процедура загоняла путь к этому файлу в Tmemo.

ShowMessage( aStrFileName); вместо MSWord.Application.Documents.Open(FileName := aStrFileName); получается путь в окне с кнопкой ок. Обясните как в мемо закидывать?

[roamer]

> ... процедура загоняла путь к этому файлу в Tmemo.

--- Это-то просто :

Memo1.Lines.Add(ExtractFilePath(MyFileName));

Но (скорее всего) Вам что-то иное надо ...