[Evgen_rus]

Здравствуйте! Прошу помочь в загрузке текста из файла с расширением .doc в memo1 по нажатию кнопки. Вот текст процедуры:

Код:

 if OpenDialog1.Execute then
     begin
      AssignFile(F, OpenDialog1.FileName);
      FName:=OpenDialog1.FileName;
      Reset (F);
      Readln (F,S);
      Memo1.Text :=S;
      CloseFile (F);
     end;
   end
   else ShowMessage ('  ');

Админ: Пользуемся тегами!

В результате в Memo1 вместо текста, который находится в файле появляются какие то символы((

Заранее спасибо, тем кто ответил, с Уважением Евгений.

[v1s2222]

Это потому, что DOC формат - это не txt или rtf, поэтому просто так прочитать не удастся.
Читать можно примерно так:

Код:

var
  w: Variant;
...
if Dialog.Execute then
  begin
  w:=CreateOleObject('Word.Application');
  w.documents.Open(Dialog.FileName);
  end;

И работай с переменной "w", как с TOLEContainer, в ней и будет весь текст файла храниться.

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

В общем-то v1s2222 прав, если это у вас действительно вордовский файл. Но расширение файла doc еще не гарантирует что там именно документ ворд. Возможно, что там текстовый документ в досовской кодировке и тогда решение уже будет другим.

[Evgen_rus]

Спасибо за помощь