读写文件(文本文件)
type
cRecord3000 = Record
mNum : string;
mDate : Tdate;
mTime : Ttime;
mState : array[1..12, 1..3] of integer;
mdte : integer;
end;
有这样的一个记录,,在写进文件(文本文件) 和读出来
1。写文件,,如果写的时候文件不存在就自动创建
2。读文件,,可以,指定读哪一个记录
我用这样的方法
var
i : integer;
hfile : integer;
arecord : cRecord3000;
brecord : cRecord3000;
begin
arecord.GameNum :='ssssssdddd';
arecord.dte := 3;
for i := 1 to 12 do
begin
arecord.StakeState[i][1] :=i ;
end;
hfile:= fileopen('C:\My Documents\ddd\aaa.txt', fmOpenWrite or fmShareDenyNone);
filewrite(hfile,arecord,sizeof(cRecord3000));
fileread(hfile,brecord, sizeof(cRecord3000));
fileclose(hfile);
showmessage(brecord.mNum);
showmessage(inttostr(brecord.mdte ));
end;
写进去的是乱码,,读出来的也不是原来写进去的,,,,
而且 filewrite不能自动创建(如果文件不存在),,我也不知道什么指定读哪一条记录,,
哪位大虾帮一下忙