如何保存和读取窗体的字体设置
编号：QA001469
建立日期: 1999年8月5日 最后修改日期：1999年8月5日
所属类别：
djs:
Delphi4.0
pwin97
我用下列程序保存和读取窗体的字体设置:
var f:tfilestream;
begin
f := tfilestream.create('mm.dat', fmopenwrite or fmcreate);
f.write(form1.font, sizeof(form1.font));
f.free;
end;
var f:tfilestream;
begin
f := tfilestream.create('mm.dat', fmopenread);
f.read(form1.font, sizeof(form1.font));
f.free;
end;
文件是建立了,但读时不能编译。不知错在那里?
回答:
你不能使用这种方法保存字体。如果你打开mm.dat，你会发现字体并没有被保存，因为Font属性是TFont对象，它不单包括属性，而且包括方法，无法使用TFileStream保存。你只能保存TFont的属性，比如：
var f:tfilestream;
begin
f:=tfilestream.create('mm.dat', fmopenwrite or fmcreate);
f.write(form1.font.color, sizeof(form1.font.color));
f.free;
end;
var f:tfilestream;
c:longint;
begin
f:=tfilestream.create('mm.dat',fmopenread);
f.read(c, 4);
font.color := c;
f.free;
end;
此问题由李海回答。
| |
|
|
| |
|
|
