L
lisam
Unregistered / Unconfirmed
GUEST, unregistred user!
请问Delphi中如何读取纯文本文件，并保存到变量（string类型）中？
张
张无忌
Unregistered / Unconfirmed
GUEST, unregistred user!
用文件流就OK
或者直接用textfile也可以
或者直接用textfile也可以
C
cgh0717
Unregistered / Unconfirmed
GUEST, unregistred user!
//大概是这样吧。N久没有写过Pascal的代码了，有错自己改一下[
]
var file:textfile;
var filepath:string;
var temp:string;
var stroe:string;
begin
assign(f,filepath);
reset(f);
while not eof(f) do
begin
readln(f,temp);
stroe:=stroe+#13+temp;
end;
close(f);
end;
]var file:textfile;
var filepath:string;
var temp:string;
var stroe:string;
begin
assign(f,filepath);
reset(f);
while not eof(f) do
begin
readln(f,temp);
stroe:=stroe+#13+temp;
end;
close(f);
end;
硬
硬木花椒
Unregistered / Unconfirmed
GUEST, unregistred user!
声明tstring类型变量 ，使用她的方法loadfromfile();
然后.text属性就是string了
然后.text属性就是string了
W
wlmmlw
Unregistered / Unconfirmed
GUEST, unregistred user!
var
ts: TStringList;
begin
ts := TStringList.Create;
try
ts.LoadFromFile(FileName);
// do what you want
finally
ts.Clear;
ts.Free;
end;
end;
ts: TStringList;
begin
ts := TStringList.Create;
try
ts.LoadFromFile(FileName);
// do what you want
finally
ts.Clear;
ts.Free;
end;
end;
吉
吉祥鸟
Unregistered / Unconfirmed
GUEST, unregistred user!
Function GetFiledata(FileName: String): String;
Var
r: String;
f: TFileStream;
Begin
Try
result := '';
F := TFileStream.Create(FileName, fmOpenRead Or fmShareDenyNone);
Try
setlength(r, f.size);
F.Read(r[1], f.size);
Finally
F.Free;
End;
result := r;
Except
End;
End;
Var
r: String;
f: TFileStream;
Begin
Try
result := '';
F := TFileStream.Create(FileName, fmOpenRead Or fmShareDenyNone);
Try
setlength(r, f.size);
F.Read(r[1], f.size);
Finally
F.Free;
End;
result := r;
Except
End;
End;
盛
盛利
Unregistered / Unconfirmed
GUEST, unregistred user!
wlmmlw,同意
小
小城月光
Unregistered / Unconfirmed
GUEST, unregistred user!
兄弟:
这样的问题任何一本delphi书都有的.你应该看看那些书!!!
这样的问题任何一本delphi书都有的.你应该看看那些书!!!
W
woshilu
Unregistered / Unconfirmed
GUEST, unregistred user!
wlmmlv的方法不错！支持
J
jameschin
Unregistered / Unconfirmed
GUEST, unregistred user!
wlmmlw的方法很好。
实在不会，用memo控件最简单，
实在不会，用memo控件最简单，
Y
yangjinrui
Unregistered / Unconfirmed
GUEST, unregistred user!
试过了wlmmlw的方法好用
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
补充一下：
var
ts: TStringList;
s:string;
begin
ts := TStringList.Create;
try
ts.LoadFromFile(FileName);
s:=ts.text;
// do what you want
finally
ts.Free;
end;
end;
var
ts: TStringList;
s:string;
begin
ts := TStringList.Create;
try
ts.LoadFromFile(FileName);
s:=ts.text;
// do what you want
finally
ts.Free;
end;
end;
X
xujia
Unregistered / Unconfirmed
GUEST, unregistred user!
var
ts: TStringList;
begin
ts := TStringList.Create;
try
ts.LoadFromFile(FileName);
// do what you want
finally
ts.Clear;
ts.Free;
end;
end;
ts: TStringList;
begin
ts := TStringList.Create;
try
ts.LoadFromFile(FileName);
// do what you want
finally
ts.Clear;
ts.Free;
end;
end;