فراخوانی فایل های txt یا word در Memo

با سلام :
می خواستم محتویات یک فایل txt یا word رو در Memo نشان بدهم؟؟؟؟


با تشکر

نقل قول:

---

نوشته شده توسط فرزاد دلفی باز

با سلام :
می خواستم محتویات یک فایل txt یا word رو در Memo نشان بدهم؟؟؟؟


با تشکر

---

فایل Text رو که با دستور

Memo1.lines.loadfromfile( 'File Name' );

ولی برای فایلهای Word میگردم اگه چیزی پیدا کردم میگم
--------------------
اینو هم برای فایلهای Word پیدا کردم

...

wd: TWordDocument;

wa: TWordApplication;

...



 Memo1.Clear;

  FileName := 'c:\temp.doc';

  wa.Connect;

  wa.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam,

                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam

  );

  wa.Visible := True;

  wd.ConnectTo(wa.ActiveDocument);

  wd.Select;

  Memo1.Lines.Add(wd.Range.Text);

  wa.Visible := False;

  wa.Disconnect;

آقا ممنون لطف کردی.....

قابل نداشت...

نقل قول:

---

آقا ممنون لطف کردی.....

---

لطفا بجاش از دکمه تشکر استفاده کنید.