如何打开文本文件？ (50分)

大

大苹果

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #1

我现在需要读取一个文本文件里的信息！但这个文本文件又被其它的程序给打开了！请问
我该如何打开？如果用非文本方式可以打开！但如何处理回车及换行呢？
如能得到答案给100分！

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #2

t:Tstringlist;
begin
t:=tstringlist.create;
t.loadfromfile('C:/a.txt');
end;
把文本文件内容导入到t中，t.lines[0]就是文本内容了，回车换行其实还不是一样是由
字符控制？！字符串'#$0D'+'#$0A'就是回车换行控制了，哪里要换行加入该字符串就行了。
要不你把文件导入memo或是richedit中也可以直接编辑的。
richedit.lines.loadfromfile('c:/a.txt');
richedit.lines.savetofile('c:/a.txt');

 

太

太阳火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #3

memo1.lines.loadfromfile('Your File Name With Full Path');
请他的如richedit,tstringlist,tstrings都可以类似操作
或者用(记不太清了，自己在试一试）
var txtfile:text;

assign(txtfile,'路径＋文件名');
reset(txtfile)
然后用read一个个byte读,如果遇到#13字符表示是换行
最后不要忘掉 close(txtfile)

 

H

hgtzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #4

[blue]在Delphi6中，打开一个文件有多种方法，对于文本文件常用的方法是：先定义一个文本文件
变量，然后用AssignFile函数建立并联，以Reset函数打开文件并将指针放在文件头，最后用
Read或Readln函数逐行读出文件内容，并用EOF函数判断是否到达文件尾部。
例：
procedure OpenFile
var
txtfile:TextFile
//定义文本文件变量
s:string;
Begin
AssignFile(txtfile,'Example.txt')
//建立关联
While Not Eof(txtFile) do
begin
readln(txtFile,s);
memo1.lines.add(s);
end;
closeFile(txtFile);
END;
我手都打麻了，千万别忘了给我加分哟！！！！[[/blue]
[8D][8D][8D] hgtzy@21cn.com

 

大

大苹果

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #5

多人接受答案了。