P
pengd
Unregistered / Unconfirmed
GUEST, unregistred user!
自己定义的记录类型:
type
Tstudent=record
id:string;
name:string;
age:integer;
end;
利用Tmemorystream写入文件,文件的类型.dat:改操作成功
procedure TForm1.Button1Click(Sender: TObject);
VAR
Target:Tmemorystream;
student:Tstudent;
begin
with student do
begin
id:='100001';
name:='李小强';
age:=20;
end;
try
target:=tmemorystream.create;
target.Write(student,sizeof(student));
target.savetofile('c:/student.dat');
finally
target.free;
end;
end;
利用Tstringlist保存到另一个.dat文件:
procedure TForm1.Button2Click(Sender: TObject);
var
fstream:Tfilestream;
sl:Tstringlist;
begin
fstream:=Tfilestream.Create('c:/student.dat',fmopenread);
fstream.Position:=0;
sl:=Tstringlist.Create;
sl.LoadFromStream(fstream);
sl.SavetoFile('c:/temp.dat');
fstream.free;
sl.free;
end;
当打开temp.dat文件时,只是保存了原文件的一些,不能完全保存:当遇到student.dat
文件的不可见字符后面的内容就没有保存了,请问高手是什么原因?怎么解决?Thanks!!!
type
Tstudent=record
id:string;
name:string;
age:integer;
end;
利用Tmemorystream写入文件,文件的类型.dat:改操作成功
procedure TForm1.Button1Click(Sender: TObject);
VAR
Target:Tmemorystream;
student:Tstudent;
begin
with student do
begin
id:='100001';
name:='李小强';
age:=20;
end;
try
target:=tmemorystream.create;
target.Write(student,sizeof(student));
target.savetofile('c:/student.dat');
finally
target.free;
end;
end;
利用Tstringlist保存到另一个.dat文件:
procedure TForm1.Button2Click(Sender: TObject);
var
fstream:Tfilestream;
sl:Tstringlist;
begin
fstream:=Tfilestream.Create('c:/student.dat',fmopenread);
fstream.Position:=0;
sl:=Tstringlist.Create;
sl.LoadFromStream(fstream);
sl.SavetoFile('c:/temp.dat');
fstream.free;
sl.free;
end;
当打开temp.dat文件时,只是保存了原文件的一些,不能完全保存:当遇到student.dat
文件的不可见字符后面的内容就没有保存了,请问高手是什么原因?怎么解决?Thanks!!!