1.使用INI文件保存比较通用。
uses IniFiles
函数function ReadLogon:Boolean;
var
AFile:TIniFile;
MyPrice:double;
begin
aFile:=TIniFile.Create(GetAppPATH+'option.ini');
with aFile,Logon do
begin
Connected:=AFile.ReadFloat('Option','收费标准',0.5);
afile.free;
end;
写配置:
procedure WriteLogon;
var
aFile:TIniFile;
begin
aFile:=TIniFile.Create(GetAppPATH+IFileName);
with aFile,Logon do
begin
WriteInteger('Option','收费设置',myprice);
afile.free;
end;
ini可以使用记事本编辑
[opiton]
收费设置=0。5
或者保存到数据库里面。
你应该会了。不举例子了。