Einzelnen Beitrag anzeigen

Benutzerbild von implementation
implementation

Registriert seit: 5. Mai 2008
940 Beiträge
 
FreePascal / Lazarus
 
#20

Re: IniFile wird nicht erstellt

  Alt 5. Jan 2009, 14:19
Delphi-Quellcode:
initialization
  Ini := TIniFile.Create(ExtractFilePath(Application.Exename) + 'Config.ini');
  ShowMessage(ExtractFilePath(Application.Exename) + 'Config.ini');
  try
    Workspace := Ini.ReadInteger('Colors', 'Workspace', PaintGreen);
  finally
    FreeAndNil(Ini);
  end;
finalization
  Ini := TIniFile.Create(ExtractFilePath(Application.Exename) + 'Config.ini');
  try
    Ini.WriteInteger('Colors', 'Workspace', Workspace);
  finally
    FreeAndNil(Ini);
  end;
end.
Marvin
  Mit Zitat antworten Zitat