Brr das ist ja kurz vor Spaghetti....
Wo kommen eigentlich die "Sections" her?
gleiches gilt für "NamesValues" und "Values".
Und diese
Delphi-Quellcode:
procedure TFrmHpt.EditingInis(IniPfade: TStringList);
var ini: TIniFile;
i,s,v, suchPunkt, searchChar: Integer;
Modul, fullFileName, IniName: String;
begin
try
Unart ist auch nicht auszurotten.
wie wäre es hiermit:
Delphi-Quellcode:
procedure TFrmHpt.EditingInis(IniPfade: TStringList);
var
ini: TIniFile;
i,
s,
v,
suchPunkt,
searchChar : Integer;
Modul,
fullFileName,
IniName : String;
begin
try
Zumindestens "Sections" sollte nicht von außen kommen, sondern in dieser Prozedur definiert, initialisiert und wieder freigegeben werden.
Dann ist auch die Fehlersuche etwas einfacher.
Gruß
K-H