Eine gescheite Codeformatierung ist die halbe Miete:
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
var
prodl : TIniFile;
begin
prodl := TIniFile.Create('
produktliste.ini');
try
try
prodl.WriteString ('
cpu', '
name', cpu_amd_name[1] );
except
on E:
Exception do
ShowMessage(E.
Message);
end;
finally
prodl.Free;
end;
end;
Das mal exemplarisch. Ansonsten sollte dein Code auch schon funktionieren, wenn denn dein Windows in der Lage ist und errät in welchem Verzeichnis, sich die Ini-Datei befindet. Ich gehe mal davon aus, sie soll im Anwendungsverzeichnis liegen. Dann sollte das so aussehen:
prodl := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'produktliste.ini');