
نوشته شده توسط
فرزاد دلفی باز
با سلام :
می خواستم محتویات یک فایل 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;