如何用INI文件记录程序设置？(40分)

uranium235 · 2002-09-30

请给出实例程序，谢谢——40分相送。

aizb · 2002-09-30

Uses inifiles; 例1、       Ini := TIniFile.Create(ParamStr(1));       try         OutputFileName := Ini.ReadString('System','Output File',''); {do not localize}       finally         Ini.Free;       end; 例2、   FIniFile := TIniFile.Create(IniFileName);   if ContentFile = '' then     ContentFile := FIniFile.ReadString('System', 'Content File', 'ContentFile');   if OutputFile = '' then     OutputFile := FIniFile.ReadString('System', 'Output File', 'OutputFile.html');   FIniFile.Free; 例3：   RSCON: TIniFile; begin  { the ReportSmith CON file is actually an INI file -- assumes in win dir}   RSCon := TIniFile.Create(TiniFilename);   TempStr := RSCon.ReadString(ConnectNamesSection, ConnectNamesKey, '');   { CON file contents differs for SQL connections }   if MastData.Database.IsSQLBased then   begin     if AnsiPos(SQLConTitle,TempStr) = 0 then     begin       if TempStr <> '' then         TempStr := TempStr + ',';       RSCon.WriteString(ConnectNamesSection, ConnectNamesKey, TempStr+SQLConTitle);     end;     RSCon.WriteInteger(MASTSQLSection, TypeKey, SQLTypeVal);     RSCon.WriteString(MASTSQLSection, SQLDataFilePathKey, DBpath);     RSCon.WriteString(MASTSQLSection, ServerKey, SQLServerVal);     RSCon.WriteString(MASTSQLSection, SQLUseridKey, SQLUseridVal);   end   else   begin     if AnsiPos(AppConTitle,TempStr) = 0 then     begin       if TempStr <> '' then         TempStr := TempStr + ',';       RSCon.WriteString(ConnectNamesSection, ConnectNamesKey, TempStr+AppConTitle);     end;     RSCon.WriteInteger(MASTAPPSection, TypeKey, TypeVal);     RSCon.WriteString(MASTAPPSection, DataFilePathKey, DBpath);     RSCon.WriteString(MASTAPPSection, ServerKey, ServerVal);   end;   RSCon.Free;

uranium235 · 2002-10-01

接受答案了.

如何用INI文件记录程序设置？(40分)

uranium235

Unregistered / Unconfirmed

aizb

Unregistered / Unconfirmed

uranium235

Unregistered / Unconfirmed

Similar threads