读文本文件(20分)

D

dbf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #1

请问：怎么用Delphi程序读一个文本文件里的内容？

 

桦

桦树皮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #2

F: file;
Size: Integer;
Buffer: PChar;
begin
AssignFile(F, 'test.txt');//test.txt是你的文本文件
Reset(F, 1);
try
Size := FileSize(F);
GetMem(Buffer, Size);
try
BlockRead(F, Buffer^, Size);
memo1.text:=buffer;
finally
FreeMem(Buffer);
end;
finally
CloseFile(F);
end;
end;

 

L

leway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #3

var
FS: TFileStream;
begin
FS:=TFileStream.create(FileName,fmOpenRead);
try
fianlly
FS.Free;
end;
end;

 

D

dbf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #4

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

 

M

MYSBS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #5

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;

然后在你的事件里面调用该函数,例如：
Edit1.Text:=LoadFromTxt('C:/My.Txt');

 

S

skywander

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #6

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

• #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;

 

D

dbf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #8

谢谢

 

D

dbf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #9

谢谢