Das ist doch nicht dein Ernst?
oder hab ich was übersehen?
Delphi-Quellcode:
procedure TFrmHpt.ProceedSections(Ini: TIniFile; const IniName: string);
var
Sections: TStringlist;
i: integer;
begin
Sections := TStringlist.Create;
try
for i := 0 to Sections.Count - 1 do { sections ist leer! }
ProceedSectionValues(Ini, Sections[i], IniName);
finally
Sections.Free;
end;
end;
Da fehlt doch noch ein
ReadSections
Gruß
K-H