100分下班揭帖！求如何用delphi打开一个txt或doc并显示在memo中!

2003-08-25 11:37:04 181 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python4Delphi：在Delphi应用中嵌入Python解释器的完整指南在软件开发中，脚本语言嵌入是扩展原生应用能力的常见技术方案，其核心原理是通过桥接层在宿主进程中加载并控制外部解释器。这种技术能显著提升开发效率，允许开发者复用成熟的第三方生态库，实现“专业工具做专业事”的架构优势。Python作为当前最流行的胶水语言，拥有丰富的数据科学、机器学习与网络爬虫库，而Delphi则是经典的Windows原生应用开发平台。Python4Delphi（P4D）正是连接这两大生态的桥梁，它通过在Delphi进程中嵌入完整的Python解释器，让开发者能在保持VCL/FireMonkey 阅读详情

opendialog吗?就是要做个浏览的按钮,来找出文件!

...全文

Delphi Fastreport报表 Allowslip选True (跨页打印) MasterData1的Stretched设置为True;(设置对象可以拉伸) 所有Memo的StretchMode设置为smMaxHeight(自动拉伸到最高高度);WordWrap为True;(自动换行) FastReport调用Delphi中的人民币大写转换自定义函数 function TJzpzEdit1.Mone 阅读详情

yetti

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

duxin 2003-08-25

打赏
举报

曾分～～：）

myadvice 2003-08-25

打赏
举报

LoadFromFile这种方法看来还是用得比较多的

而huayuxing(huayuxing)、 fhuibo(Sailor) 两位兄才的方法还真不错

不信你试试

cnhgj 2003-08-25

打赏
举报

都答了！

pingshx 2003-08-25

打赏
举报

if opendialog1.execute() then
memo.Lines.LoadFromFile(opendialog1.filename);
这样还不行！！！！！！！！！！！！！！1

IORILI 2003-08-25

打赏
举报

memo1.Lines.LoadFromFile(opendialog1.filename);

tiexinliu 2003-08-25

打赏
举报

添加一个opendialog,在按钮的click下添加如下代码:
if opendialog1.execute then
memo.Lines.LoadFromFile(opendialog1.filename);

yetti 2003-08-25

打赏
举报

我要按钮打开文件夹,然后随便选一个txt文件,把其中的内容显示再memo中..

zhangheaaa 2003-08-25

打赏
举报

if opendialog1.execute() then
memo.Lines.LoadFromFile(opendialog1.filename);

fhuibo 2003-08-25

打赏
举报

var
FileName : TextFile;
Str,Tmp : String;
TStrList : TStringList;
i,k : Integer;
begin
TStrList := TStringList.Create;
TStrList.Clear;
if not (FileExists(GetNameDir(Application.ExeName)+'xuanhao.txt')) then
begin
Application.MessageBox('xuanhao.txt文件不存在，请先转出TXT文件','提示',MB_OK+MB_ICONSTOP);
Exit;
end;
AssignFile(FileName,GetNameDir(Application.ExeName) + 'xuanhao.txt');
Reset(FileName);
Readln(FileName,Str);
CloseFile(FileName);
if Str <> '' then
begin
i := pos(',',str);
while i > 0 do
begin
Tmp := copy(Str,1,i - 1);
TStrList.Add(Tmp);
Str := copy(Str,i + 1,length(Str)-i);
i := pos(',',Str);
end;
if Str <> '' then
begin
TStrList.Add(Str);
end;
end;

MichealLee 2003-08-25

打赏
举报

步骤：
1. opendialog 获得文件名
2. 根据文件名显示内容到memo: loadfromfile()

MaxPyne 2003-08-25

打赏
举报

memo.Lines.LoadFromFile(),我一直这样用。

mrtxc 2003-08-25

打赏
举报

memo.Lines.LoadFromFile(YourFileName);

qiujsh 2003-08-25

打赏
举报

没看懂问的什么问题，是要找到那个文件吗，用Opendialog就行了，然后取opendialog1.filename

huayuxing 2003-08-25

打赏
举报

教你一个方法，在内存中打开DOC文件，或者是TXT文件，把所有的内容复制一下，再粘贴一下到MEMO1中，，
procedure TFraDoc.TvDocClick(Sender: TObject);
var
Word:Variant;
begin
if Tvdoc.Selected=nil then exit;
if not FileExists(SPath+'doc\'+TvDoc.Selected.Text+'.doc') then
begin
application.MessageBox('无此文档存在！',AppName,Gstitle);
exit;
end;
try
Word:=CreateOLeObject('Word.application');
Word.visible:=false;
Word.documents.add;
begin
word.selection.insertfile(SPath+'doc\'+TvDoc.Selected.Text+'.doc');
word.Selection.WholeStory;
word.Selection.Copy;
Redt.Lines.Clear;
Redt.PasteFromClipboard;
end;
finally
word.quit(false);
end;
end;

lxpbuaa 2003-08-25

打赏
举报

memo.Lines.LoadFromFile()

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

yetti 2003-08-25

打赏
举报

干吗要设置过滤器,帮忙,我另外给分

shanlin 2003-08-25

打赏
举报

memo.Lines.LoadFromFile()
要把过滤器设为。txt和。doc等

CeleronII 2003-08-25

打赏
举报

yetti 2003-08-25

打赏
举报

if opendialog1.execute() then
memo.Lines.LoadFromFile(opendialog1.filename);

这样做,是把改文件的路径写到memo中啊!

yetti 2003-08-25

打赏
举报

我要显示的是.doc .txt的内容啊!

加载更多回复（1）

100分下班揭帖！求如何用delphi打开一个txt或doc并显示在memo中!

相关推荐