[Evgen_rus]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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, поэтому просто так прочитать не удастся.
Читать можно примерно так:

Код:

1 2 3 4 5 6 7 8

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

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

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

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

[Evgen_rus]

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