读书人

怎样将文件内容读到一个字符串中呢?解

发布时间: 2012-02-08 19:52:21 作者: rapoo

怎样将文件内容读到一个字符串中呢?
要借助控件来实现吗?

[解决办法]
不需要用控件啊,用Delphi自带的函数/过程就可以实现了,以下演示的是读取C:\win.ini 文件的第一行。

procedure TForm1.Button1Click(Sender: TObject);
var
txtFile:TextFile;
aStr:String;
begin
AssignFile(txtFile, 'C:\windows\win.ini ');
reset(txtFile);
readln(txtFile,aStr);
CloseFile(txtFile);
ShowMessage(aStr);
end;

[解决办法]
procedure TForm2.Button1Click(Sender: TObject);
var
S: string;
begin
if OpenDialog1.Execute then
with TFileStream.Create(OpenDialog1.FileName, fmOpenRead) do
try
SetLength(S, Size);
Read(pointer(@S[1])^, Size); //读入到S
Showmessage(S);
finally
Free;
end;
end;

读书人网 >.NET

热点推荐