Hai,
ich versuche mein Programm beim starten die Height und Width aus einer INI Datei zu lesen...
Leider bekomme ich immer eine EAccessViolation...
Warum?

Code:

markieren

Delphi-Quellcode:

  ForceDirectories(ExtractFilePath(ParamStr(0))+'Settings');
  ini.Create(ExtractFilePath(ParamStr(0))+'Settings'+'config.ini'); //create iniFile
 try
  Form1.Width := ini.ReadInteger('POSITION', 'WIDTH', 0); //load form settings
  Form1.Height := ini.ReadInteger('POSITION', 'HEIGHT', 0); //load form settings
 finally
  ini.Free;

Gruß Philipp

Hai m0zZzI,

so wie ich es sehe machst Du einen Fehler beim erzeugen deiner Instanz von TIniFiles.

es muss
  ini := TIniFile.Create(); und nicht
ini.Create(); heissen.

EDIT
Und Du solltest auch mal prüfen wie Du den Pfad zu deiner INI zusammen setzt

*monstermäßig auf kopf hau*

Stimmt ja!! thx Sharky

Und den Namen deiner Ini-Datei bildest du falsch:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ForceDirectories(ExtractFilePath(ParamStr(0))+'Settings');
  with TIniFile.Create(ExtractFilePath(ParamStr(0))+'Settings\config.ini') do
  try
    Width := {ini.}ReadInteger('POSITION', 'WIDTH', Width);
    Height := {ini.}ReadInteger('POSITION', 'HEIGHT', Height);
  finally
    Free;
  end;
end;

Grüße vom marabu

EDIT: ini muss weg bei meiner Schreibweise - aber der Default-Wert ist wichtig...

Leider bringt er immer noch die Fehlermeldung

markieren

Delphi-Quellcode:

var ini: TIniFile;
begin
  ForceDirectories(ExtractFilePath(ParamStr(0))+'Settings');
  with TiniFile.Create(ExtractFilePath(ParamStr(0))+'Settings\'+'config.dat') do //create iniFile
 try
  Form1.Width := ini.ReadInteger('POSITION', 'WIDTH', 0); //load form settings
  Form1.Height := ini.ReadInteger('POSITION', 'HEIGHT', 0); //load form settings
 finally
  ini.Free;
end;

Das war jetzt ein bisschen Mischmasch

markieren

Delphi-Quellcode:

begin
  ForceDirectories(ExtractFilePath(ParamStr(0))+'Settings');
  with TiniFile.Create(ExtractFilePath(ParamStr(0))+'Settings\'+'config.dat') do //create iniFile
    try
      Form1.Width := ReadInteger('POSITION', 'WIDTH', 0); //load form settings
      Form1.Height := ReadInteger('POSITION', 'HEIGHT', 0); //load form settings
    finally
      Free;
    end;
end;

oder besser:

zusammenfalten · markieren

Delphi-Quellcode:

var ini: TIniFile;
begin
  ForceDirectories(ExtractFilePath(ParamStr(0))+'Settings');
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Settings\'+'config.dat');
  with ini do
    try
      Form1.Width := ReadInteger('POSITION', 'WIDTH', 0); //load form settings
      Form1.Height := ReadInteger('POSITION', 'HEIGHT', 0); //load form settings
    finally
      Free;
    end;
end;

Gruß,
ManuMF

´Dank sei´ ManuMF
Klappt!! Thx