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

[فرزاد دلفی باز]

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


با تشکر

[vesal]

با سلام :
می خواستم محتویات یک فایل 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;

[فرزاد دلفی باز]

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

[vesal]

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

[vcldeveloper]

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

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