写 var inif:Tinifile; begin inif:=Tinifile.Create('E:\Colors.ini'); inif.WriteInteger('Option','FontColor',label1.font.color); end;读 var inif:Tinifile; begin inif:=Tinifile.Create('E:\Colors.ini'); label1.font.color:=inif.ReadInteger('Option','FontColor',clBlack); end;
var
inif:Tinifile;
begin
inif:=Tinifile.Create('E:\Colors.ini');
inif.WriteInteger('Option','FontColor',label1.font.color);
end;读
var
inif:Tinifile;
begin
inif:=Tinifile.Create('E:\Colors.ini');
label1.font.color:=inif.ReadInteger('Option','FontColor',clBlack);
end;