Problem beim Laden mit Ini's

[mOzZzI]

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:

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

[Sharky]

Hai m0zZzI,

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

es muss

Delphi-Quellcode:

  ini := TIniFile.Create();

und nicht

Delphi-Quellcode:

ini.Create();

heissen.

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

[mOzZzI]

:wall: *monstermäßig auf kopf hau* :wall:

Stimmt ja!! thx Sharky

[marabu]

Und den Namen deiner Ini-Datei bildest du falsch:

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...

[mOzZzI]

Leider bringt er immer noch die Fehlermeldung :gruebel:

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;

[ManuMF]

Das war jetzt ein bisschen Mischmasch ;-)

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:

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

[mOzZzI]

´Dank sei´ ManuMF :wink:
Klappt!! Thx