如何将TXT文件中指定的某行显示到memo上？(30分)

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #1

比如将A.TXT文件中第3行显示到memo上

 

P

pnljh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #2

mm:=TStringList.Create;
mm.LoadFile('c:/a.txt');
Memo1.lines.add(mm.strings[3]);//将第四行显示到memo上。
大致如此，可能有错，没开delphi。自己再试试吧

 

I

IT书生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #3

给你写个例子：
IQFile: TStringList;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
tmp:string;
begin
try
IQFile := TStringList.Create;
except
IQFile.Free;
end;
with IQFiledo
begin
IQFile.LoadFromFile('c:/A.txt');
for i:=0 to count-1do
begin
tmp:=Strings;
if i=2 then
begin
memo1.Lines.Clear;
memo1.Lines.Add(tmp);//增加文本文件的第三行内容。
end;
end;
end;
end;
呵呵，试试，行了吧。

 

R

raiseyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #4

同意

 

I

IT书生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #5

to pnljh:
我是通过代理上网，刷新老是有问题，没看到你的回答，否则也不来争分了，呵呵。。

 

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #6

对不起，我想说的是：这个TXT文件不是以txt为扩展名的，是随便一个扩展名比如：
abc.rtt,但它确实是由abc.txt改名得到的。如何读这样的文件？

 

P

pnljh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #7

IQFile.LoadFromFile('c:/A.txt');
此句可以改为IQFile.LoadFromFile('c:/abc.rtt');不就是你要的了？

 

W

wxf_wxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #8

同意pnljh的看法,只要文件格式一样就行!

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #9

有没有人用程序自己写过。
我老感觉TStringList速度不快~~~~~~~~~~~~~

 

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #10

to pnljh:
最初我也是改成*.rtt但没成功所以才发贴的，刚才一试又成功了，真气人！谢谢你。
我也关注一下Nizvoo的说法。又更快的方法吗？

 

B

beyondair

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #11

试试这个,我刚写的：
读取其中某一行：
procedure TForm1.LoadSomeLine(FileName:string;num:integer;
var Str:string);
var
MyTextFile:TextFile;
MyStr:string;
i:integer;
begin
i:=0;
AssignFile(MyTextFile,FileName);
Reset(MyTextFile);
While not Eof(MyTextFile)do
begin
i:=i+1;
Readln(MyTextFile,MyStr);
if i=num then
begin
Str:=MyStr;
exit;
end;
end;
end;
调用：
procedure TForm1.Button1Click(Sender: TObject);
var
num:integer;
Filename:string;
str:string;
begin
num:=2;
FileName:='d:/aa.txt';
LoadSomeLine(FileName,num,Str);
memo1.Lines.Add(Str)；
end;

 

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-24

• #12

多人接受答案了。