调用已有的文件到一个memo中，如何做？

[45060203]

将一个已有的文件（word或txt）的内容读入form页面上的memo中如何做？（100分）

[windindance]

memo.Lines.LoadFromFile('file.txt');

RichEdit.Lines.LoadFromFile('file.rtf');

.doc??ê???óD°ì·¨?±?ó?áè?￡????éò?????ó?OLE.€???p8??紺€8?Hw0w?閖a閖 j▇遤珽
??t8?矯遭/爐鄇珽
锈/紺€8?閖x8?t8?<笲=p8??笺/(惋j?閖P笲=蹉/yw?P笲=劁/鹷*鴚桎/颈黽犮/?秀/禁x?0蹉/w般/H鎆=淬/M?襴H鎆=€€H鎆=H鎆=€劂/貺襴H鎆=€Hp?H鎆=€/侺襴H鎆=垘`€Hp?H鎆=€(?燛襴Hp?€鎆=H?*P?*?鴚h*`鐌=(?溴/鹷*鴚翦/颈黽h????p8 ??d?€ ?鹷*鴚间/?鴚?`[;斾/€~P?鹷*鴚`?颈黽?`鐌=H`鐌=??鴚 ??滗/€犳/鹷*鴚版/颈黽 `鐌=€`鐌=薅黽`?
?鴚?
t?8?翩/鹷*鴚?颈黽?`鐌=P:偊w薅黽h`鐌=村/3)鴚@鎆=愬/?D?鹷P)鴚T?薅黽hH鎆=ㄦ/缄/戽/uT觲,?`鐌=觲`鐌=??p$?┏觲,?*}€p????`[;`戽/鑢?鑢?0?鹷€&鴚ゆ/`3X'<襴T`鐌=?偊w個襴`鐌=Dr?`鐌=偊w躴?墟/燛襴鐌=r?DJ1M<諩醞拳 惌 L??偊wp?躴?`鐌== ?襴r?$t?r?`鐌=C偊w+遤湗醞=欋j惌 惌 jL?鍺:0?€扈/鹷*鴚/颈黽?`鐌=`鐌=ht?€偊w`鐌=扮/ 97uy?敺
茜/?7u樂
??x@溼/zhx惙
(k `?%?uP?(=u繇/8uP2A`??Expert_Reply床餵p?I2豾h拆jL?滆/3?鴚30?t?€#0?鹷*鴚惕/?鴚H豧よ/.`? ,鎗X蓓H蓓p?颈黽H鴍€鴍磓?磓??菿?菿???眞k遤<馘j葙錴@蓓鴍缄/棒`?d??鴚?燶D<?€/鹷*鴚?颈黽?]€鏈]?惌 棒犻/??T??犼/`?L?纏?p鉰f???鴚h胞?荛/橂/鹷*鴚/颈黽h€ ?H瑷w鴍4i/0族jX蓓鴍€??豧 €鴍€鴍€鴍x?鹷綮/鶰xa?囔/?綮/XLx.?囔/?(
?)
?)
x?$ ?,?,恌鴨胞?!`eS胞?S萿? h僞~€???€?~????^j(ixf€??,$?汝/须/痣/骢t鮰? 鹴<? 鹴恌?(
?)
説\"\燿7\P?(｜(｜x? 虻黽?洗黽P?8?y?L?^j(iX??i??x?8夈(`?x?Ci3%E犾/V%EP?8夈x?8夈x?0夈撵/甜/甜/P$Ej瑞/劝?碮?2p?!?pH| 5(H蘴,?rWx?w蘴?(
?)
?)
?5)
B?)H?癑藅)
A5)
6)
8)
t?譯藅? 悶?垶??i绊/(｜(键x?垶?悶???@??FH??(k +P2勵/锛7u|?`??A?HF榷`?x?榷?`?`?d?(k HF?P2搭/?8u榷`??痤/?7u祛/痤/37u榷`??0S(k 榷\??7u@.=uH|`?0??? `?.=u堬/= =u旓/?u?豲E旔/▔?田/撒/田/豲EL? =u燥/沎E??豲E旔/▔?田/n?悏?▔?榏EmWE`X?|??旔/▔?X?D?€B?n?悏?A?^j旔/蠥?????`X?Ci蹵?(TEP?撒/蹵?0?勒??勒A?堭/刘5L?^j(i痧/?i??w??`??Ci碮?2E`X?4??EP???8/???t?E8/?w繶????E`X?`X???\睧???橊/罂E??`X?€B?n??i40??i?E?@
%E1EE悏??€B?蠥?H???鴚撒/n?`X?lX??秉w?鑄0祢/?F 榗E+F愹/?E蠥??E蠥??Ed|??蹵?岕/撒/蹵? 濬n?d|??蠥?镑/赧/`X?u?@?
??@?
楨?G?
撒/蹵?圶?狊/?E狊/D?樻a<?d`鎍樻a爢F?/`鎍x
鵀w`8眞x???E?/`鎍0?oF撒/h鎍`鎍9獸/(?榗E蠥?紱w梏/dx槩u梏/p.?隔/瘀/ €岕/?F镑/?砌/蠥?镑/蠥?镑/CH蠥??pm?蠥? € € € ?ET/??El鎍h鎍h鎍堳/WF圔?蠥?F镑/€B?鑄 滣/迢/迢/赧/dE€B??Hpm?€B? `鎍孨鎤/?旜/蚌/O?8??鴚xP銘?€眺/鹷*鴚颈黽x鑄 楿?
鵀w楿? 吗<\0宣/?吗<`8眞H鹷撒/蹵?蹵?\?`聻u蠥?H3 镑/?眺/狑/pm?蠥?爑淯?h? ?萕?宣/1(T瀠X~?蠥?H3 镑/眺/狑/轩/ C?蠥?犷泈??62???菿憎/宣/w?
x?x8??F鳾??Fpm???X?A朒/ €<x /??/?漸 ? C?蠥?轩/ W2漸 C?蠥???鳾?澌/?漸 C?蠥???8*?伉/€旡/鹷*鴚/颈黽xEpm?橓?L位€?p8?\??鴚E?E€[?4?瘊/鹷*鴚澌/?o秉w??pm?鑊梩?垶??鳾???鳾?Jx7?蠥?葧0?圠?}漸 C?pm??]@*?圠??? 0?8位递???轩/pm?@?萨/?漸宣/02CV箾w瘊/Hh?瘊/€[??? 瘊/€?怑???灌?屧?o怑?$xx?贴/?漸pm? C?\垣鑜漸 C?(l漸8*?p,泃pm?滬/8*??窩
d鯘u?]鉦梩圗
圗
?]L??]帑/禶梩p,泃?鎤?]p,泃?鎤@*?/?]?/潆歵繹梩禧/M\梩(?Q梩L?'?旤/?dE
fH梩p?歄梩@*??旤/L??鎤?p,泃X?|P'圥'?]@*?傈/Lk梩@*??旤/餟?竷圗
dE
珽
€??@*?攸/q梩菿X??$?Z鏹
w餟?????D??葋遤 ?P?猾獁 e鴋P鏹餟?`鋔L?<"鴚????l??葋遤H??X?x?€w鴋P鏹餟?葋遤`鋔轧/3酣w鴋P鏹餟?葋遤?鴚?"鴚?鴚?"鴚t鋔8笲= @2=8笲=黣?,@2=黣??;鏹酤/嗠獁`鋔P鏹餟?葋遤怟3捩j`鋔P鏹餟?葋遤?鴚`鋔?鎗?鎗?/宁??怟?p\*? 魒 P?癨*爸妰B€]鬊€`S潈 諍?C€謯I`鴚#e鐆宁?宁???/<早wy鎤Xj宁?P|5纓狕? T嘬t 0@0 犨t €0

[imchk6]

memo1.Lines.LoadFromFile(filename)

[haishen]

同意楼上。

[dreamfan]

memo1.Lines.LoadFromFile(file1)；

[45060203]

这样做，只能读入txt文件，word文件根本读不进去。

[CeleronII]

那你就用RICHEDIT吧，那个可以的，同样的格式
或者你用OLECONTAINER吧，一定可以的MEMO是不可以的

[mingyeh]

if dlgOpen.Execute then
Memo1.Lines.LoadFromFile(dlgOpen.FileName);
不过只能读txt文件
word文件不行，即使用RichEdit也不行，会有兼容性问题

[mingyeh]

word文件也有办法
就象Richie Martin说的，OLE,OLE,OLE~~~~

[kesa]

没办法读word文档

[45060203]

原来用的就是ole，因为我想把数据以字符串的形式保寸到数据库中，ole只能以流的形式保存，请各位同仁帮忙！

[aspcomputer]

用Tolecontainer，再看看帮助！

[Birch]

关注！

[naughtyboy]

同意
word文档以及excel都可以用ole类来调用
tolecontainer

[ggdw]

memo1.Lines.LoadFromFile(filename)


================================================================
delphi菜鸟联盟 http://bbs.at.8800.org 欢迎你的到来！！！
我们是菜鸟，我们怕谁？？
大菜鸟（沉默的高羊）的QQ:16730133 Email：[e-mail]
╭══╮　
╭╯ΘΘ║　
╰⊙═⊙╯。oо○　
　　　　
delphi菜鸟联盟灌水专用！！！