Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var settings: TIniFile;
begin
settings := TIniFile.Create(ExtractFilePath(paramstr(0))+'settings.ini');
Try
edit1.Text := settings.ReadString('Nick', 'nickname', '');
finally
FreeAndNil(settings);
end;
end;
Läßt sich ohne Fehler kompilieren. Geh erst mal schlafen.