Sieht der Anfang der Routine auch wirklich
so aus?
Delphi-Quellcode:
procedure TFIni.SpeichernEinleiten(Sender: TObject);
var
Text : TStrings; // <<--- TStrings!
i, j : Integer;
begin
Text := TStringList.Create; // <<--- TStringList!
try
//Edit:
und SaveIni
so?
Delphi-Quellcode:
procedure TFIni.SaveIni(Text : TStrings); // <<--- TStrings!
begin
if SDSave.Execute then
Text.SaveToFile(SDSave.FileName);
end;