Forum: Algorithmen, Datenstrukturen und Klassendesign
by Rippo,
24. Apr 2015
function RegPath: String;
begin
Result := ExtractFileName(ChangeFileExt(ParamStr(0), '.ini'));
end;
diese
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Rippo,
24. Apr 2015
So
ich starte mein programm
wenn ich dann auf das formular klicke bekomme ich die fehlermeldung 'Zugriffsverletzung bei Adresse ...'
wenn ich es debugge kommt der fehler bei function ' Result := ...'
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Rippo,
24. Apr 2015
function RegPath: String;
begin
Result := ExtractFileName(ChangeFileExt(ParamStr(0), '.ini'));
end;
procedure SaveFormSettings(frmKonfig : TfrmKonfig);
var
RegIni: TRegIniFile;
begin
RegIni := TRegIniFile.Create(RegPath);