Hallo,
was wird denn hier ausgegeben?
Delphi-Quellcode:
initialization
Ini := TIniFile.Create(ExtractFilePath(Application.Exename) + '
Config.ini');
ShowMessage(ExtractFilePath(Application.Exename) + '
Config.ini');
try
try
Workspace := Ini.ReadInteger('
Colors', '
Workspace', PaintGreen);
ShowMessage('
Workspace ist: ' + IntToStr(Workspace));
except
on e :
Exception do begin
ShowMessage('
Es ist ein Fehler beim Lesen aufgetreten: ' + e.
Message);
end;
end;
finally
FreeAndNil(Ini);
end;
finalization
Ini := TIniFile.Create(ExtractFilePath(Application.Exename) + '
Config.ini');
try
Try
Ini.WriteInteger('
Colors', '
Workspace', Workspace);
ShowMessage('
Workspace ist: ' + IntToStr(Workspace));
except
on e :
Exception do begin
ShowMessage('
Es ist ein Fehler beim Schreiben aufgetreten: ' + e.
Message);
end;
end;
finally
FreeAndNil(Ini);
end;
end.