问题解决了哈,用很笨的办法解决了哈!
我分别定义几个小节,然后用函数一个一个的读哈
procedure ReadQDMSini(AItems : Tstrings;S : string);
var
i : integer;
begin
AItems.Clear;
AItems.Delimiter := ',';
AItems.DelimitedText := S;
if AItems.Count > 0 then begin
cbbQD.Items.AddStrings(AItems);
end;
end;
ss := TStringList.Create;
SS1 := TStringList.Create;
SysIni.OpenFile(SysDir.System + 'JlmsInfo.Def');
i := 0;
try
SysIni.ReadSection('QDMS', ss);
s1 := SysIni.ReadString('QDMS', ss[i], '');
ReadQDMSIni(SS1,S1);
就这样问题基本解决,但是我想有没有更好的办法啊~