Die Zeile 321:
strListCalc := TStringList.Create;
Delphi-Quellcode:
procedure TForm1.alCalcExecute(Sender: TObject);
var
StrListCalc: TStringList;
begin
strListCalc := TStringList.Create;
ZeissCFG := TClassZeissCFG.Create;
StrListCalc := ZeissCFG.BuildNewFile(CFGValues, ValuesX, ValuesY, ValuesZ, DataLoaded);
if CheckForSelectedFiles() then
begin
if SaveDialog1.Execute then
begin
if SaveDialog1.FileName <> '' then
begin
StrListCalc.SaveToFile(SaveDialog1.FileName);
ShowMessage('Neue CFG Datei gespeichert!');
end;
end
else
begin
ShowMessage('Datei NICHT gespeichert!');
end;
end;
FreeAndNil(ZeissCFG);
FreeAndNil(strListCalc);
end;