本文整理自网络，侵删。
使用Delphi?x取utf8格式?r需使用Tmeminifile，另外??B取得的?例。
VAR SYSINI: TMemIniFile; // ?x取utf8格式的ini需使用TMemIniFile
ts:tstringlist;
i:integer;
ApplicationPath:string;
begin
// 先取得目前?绦新??
ApplicationPath := ExtractFilePath(Application.exename);
if ApplicationPath[length(ApplicationPath)] = ‘\’ then
begin
ApplicationPath := copy(ApplicationPath, 1, length(ApplicationPath) ?C 1);
end;
// ?x取sys.ini?e的memberid?^?K?K?@示值
MEMO1.Lines.Clear;
ts:=tstringlist.Create;
SYSini := TMemIniFile.Create(ApplicationPath+’\sys.ini’,TEncoding.UTF8);
if NOT (SYSini = nil) then begin
sysini.ReadSection(‘memberid’,ts);
for I:=0 TO TS.Count-1 DO BEGIN
MEMO1.Lines.Add(TS[I]);
MEMO1.LINES.Add(sysini.ReadString(‘MEMBERID’,TS[I],"));
END;
end;
ts.Free;
end;
相关阅读 >>
Delphi simple resource api replacement
更多相关阅读请进入《Delphi》频道 >>
