如和把记录文件读出写入文本文件(50分)

5

518ktv

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #1

急...

 

P

panyongze

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #2

创建一个TStringList实例，把数据写到TStringList，再保存。
procedure TForm1.Button1Click(Sender: TObject);
var
SL:TStringList;
begin
SL := TStringList.Create;
SL.Add('第一条记录');
SL.Add('第二条记录');
SL.Add('第三条记录');
SL.SaveToFile('c:/a.txt');
SL.Free;
end;

 

X

xinglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #3

还有读取记录
procedure TForm1.Button1Click(Sender: TObject);
var
SL:TStringList;
i: integer;
begin
SL := TStringList.Create;
SL..LoadFromFile('c:/a.txt');
if TL.Count > 0 then
begin
for i:=0 to SL.Count -1 do
... := SL;//读记录，
end;
SL.Free;
end;

 

X

xinglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #4

>> if TL.Count > 0 then
打错了“TL”为“SL”

 

Z

zeewoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #5

用pascal的方法...
type
TMyRec = Record
i : integer;
s : string;
End;

var
MyRec : TMyRec;
fp : file of TMyRec;

begin
//写入文件
assignfile(fp,'文件路径');
rewrite(fp);
write(fp,myrec);
closefile(fp);
//读出文件
assignfile(fp,'文件路径');
reset(fp);
read(fp,myrec);
closefile(fp);
end;

 

Z

zeewoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #6

用delphi的TFileStream类
type
TMyRec = Record
i : integer;
s : string[6];
End;

var
MyRec : TMyRec;
fp : TFileStream;

begin
//读出...
fp := TFileStream.Create('文件路径',fmOpenRead);
while fp.position < fp.size do
begin
fp.read(MyRec,8);
// ^^ 8是指一个记录的字节数
end;
fp.free;

//写入,看一下TFileStream的帮助就可以了，差不多的...

end;

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #7

看Memo控件帮助

 

5

518ktv

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #8

多人接受答案了。