Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#28

Re: IniFile wird nicht erstellt

  Alt 5. Jan 2009, 15:52
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.
  Mit Zitat antworten Zitat