gadlist is meine TStringlist und
pfad:= ExtractFilePath(Application.Exename);(dateipfad)
Speichern:
Delphi-Quellcode:
try
if not DirectoryExists(pfad+'System\Config\gads.cf') then
ForceDirectories(pfad+'System\Config');
gadlist.lines.SaveToFile(pfad+'System\Config\gads.cf');
except
end;
Laden:
Delphi-Quellcode:
try
gadlist.lines.loadfromFile(pfad+'System\Config\gads.cf');
except
end;