当前位置：首页 > news >正文

Delphi Ini文件对UTF8支持不爽的极简替代方案

news 2025/4/26 15:36:13

如题，没太多废话，直接复制走即可。

unit uConfig;interfaceuses classes, Sysutils;typeTConfig = class
privateFFileName: String;FConfig:TStringList;
protectedpublicconstructor Create(ConfigFile:String);destructor Destroy;property  FileName:String read FFileName write FFileName;function  Read(AName:String;Default:String):String;overload;function  Read(AName:String;Default:Integer):Integer;overload;function  Read(AName:String;Default:Single):Single;overload;procedure Write(AName:String;AValue:String); overload;procedure Write(AName:String;AValue:Integer); overload;procedure Write(AName:String;AValue:Single); overload;publishedend;implementation{ TConfig }constructor TConfig.Create(ConfigFile:String);
beginFConfig:= TStringList.Create;FFileName:=ConfigFile;if FileExists(ConfigFile) thenFConfig.LoadFromFile(FFileName,TEncoding.UTF8)elseFConfig.SaveToFile(FFileName,TEncoding.UTF8);
end;destructor TConfig.Destroy;
beginFConfig.Free;
end;function TConfig.Read(AName, Default: String): String;
var Idx:Integer;
beginIdx := FConfig.IndexOfName(aName);if Idx>-1 thenresult:= FConfig.ValueFromIndex[Idx]elseresult:=Default;
end;function TConfig.Read(AName: String; Default: Single): Single;
beginif not TryStrToFloat(Read(AName,Default.ToString),result) thenresult := Default;
end;function TConfig.Read(AName: String; Default: Integer): Integer;
beginif not TryStrToInt(Read(AName,Default.ToString),result) thenresult := Default;
end;procedure TConfig.Write(AName, AValue: String);
var Idx:Integer;
beginIdx := FConfig.IndexOfName(aName);if Idx>-1 thenFConfig.ValueFromIndex[Idx]:=AValueelseFConfig.AddPair(AName,aValue);FConfig.SaveToFile(ExtractFilePath(ParamStr(0))+'Config',TEncoding.UTF8);
end;procedure TConfig.Write(AName: String; AValue: Integer);
beginWrite(AName,AValue.ToString);
end;procedure TConfig.Write(AName: String; AValue: Single);
beginWrite(AName,AValue.ToString);
end;end.
在这里插入代码片