16,748
社区成员
发帖
与我相关
我的任务
分享
procedure Tform1.Readlist();
var
Inilist:Tinifile;
s:TStringList;//<--------------这个是重点,也是我不会用的地方
begin
if FileExists(ExtractFilePath(Application.ExeName)+'Run.ini') then
begin
s:=Tstringlist.Create;
Inilist:=Tinifile.Create(ExtractFilepath(application.ExeName)+'Run.ini');
s:=inilist.ReadSections;//<--------------这个也是重点,也是我不会用的地方,不知道为啥,没搞过数组定义
end
else
rzlabel1.Caption:='暂无启动项目,请添加!';
end;