怎么读文本文件(20分)

D

dbf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #1

请问：怎么用Delphi程序读一个文本文件里的内容？
假设文本文件名为：ddd.txt
其内容为：1111111111
那么我怎么在程序执行的时候，把ddd.txt中的1111111111赋值给Edit1.text呢？？

 

H

HAZL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #2

用Tstringlist的loadfromfile就行了。

 

M

MYSBS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #3

Function LoadFromTxt(MyFileName:String):String;
Var
S:TStringList;
begin
Result:='';
S:=TStringList.Create;
Try
S.LoadFromFile(MyFileName);
Result:=S.Text;
Finally
S.Free;
End;
End;

 

D

DINGHELLO

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #4

太簡單了

 

D

dwj_dd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #5

顶，是不是可以用其他控件的loadfromfile方法。

 

S

sql1981

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #6

tmemo

 

D

dbf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #7

F: textfile;
s: string;
begin
AssignFile(F, 'test.txt');//test.txt是你的文本文件
Reset(F);
try
readln(f,s);
edit1.text:=s;
finally
closefile(f);
end;
end;

 

冰

冰凝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #8

F: textfile;
s: string;
begin
AssignFile(F, 'test.txt');//test.txt是你的文本文件
Reset(F);
try
readln(f,s);
edit1.text:=s;
finally
closefile(f);
end;
end;

 

D

dbf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #9

谢谢

 

D

dbf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #10

谢谢

 

D

dongxiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #11

Function LoadFromTxt(MyFileName:String):String;
Var
S:TStringList;
begin
Result:='';
S:=TStringList.Create;
Try
S.LoadFromFile(MyFileName);
Result:=S.Text;
Finally
S.Free;
End;
End //这样简便

//或者先assignfile，在readln 也行