IniFile - Auslesen funktioniert nicht

[Cyberbob]

Hallo, ich habe ein Problem mit IniFiles. Ich möchte einen Wert in einer Sektion auslesen, das funktioniert allerdings nicht.

Mein Code:

Delphi-Quellcode:

try
  IniDatei := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  len := IniDatei.ReadInteger('Global', 'EQ', 0);
  ShowMessage(IntToStr(len));
finally
  IniDatei.Free;
end;

Die IniDatei sieht vollgendermassen aus:

Delphi-Quellcode:

[Global]
EQ=1

Weiss einer Rat, alle Variablen sind Deklariert doch in len steht immer 0 (Null)!

Was mach ich falsch, ich wüsste nicht, was ich anderst gemacht haben sollte als sonst...

[Daniel B]

Das Create vor dem try setzen und Inifile muss als TIniFile deklariert sein in der Prozedur bei den variablen. Besser im Finally ein FreeAndNil(IniFile).

[Balu der Bär]

Deine Code funktioniert fehlerfrei.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 iniDatei : TIniFile;
 len : Integer;
begin
try
  IniDatei := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  len := IniDatei.ReadInteger('Global', 'EQ', 0);
  ShowMessage(IntToStr(len));
finally
  IniDatei.Free;
end;
end;

Könnte es sein das es an dieser Zeile liegt:

Delphi-Quellcode:

IniDatei := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));

ChangeFileExt(ParamStr(0)) ändert den Dateinamen der Exe (also z.B. Projekt1.exe) in Projekt1.ini. Bist du sicher das diese Datei existiert?

[Daniel B]

Da soll er natürlich ExtractFilePath nehmen, dennoch gehört das Create nicht ins try...

[mkinzler]

Zitat:

dennoch gehört das Create nicht ins try...

Warum nicht ?

[Balu der Bär]

Zitat:

Zitat von Daniel B

Da soll er natürlich ExtractFilePath nehmen, dennoch gehört das Create nicht ins try...

Ich hab auch nie das Gegenteil behauptet. ;)

[Khabarakh]

Zitat:

Zitat von mkinzler

Zitat:

dennoch gehört das Create nicht ins try...

Warum nicht ?

Weil's keinen Sinn ergibt?
Überleg doch mal, was passiert, sollte eine Exception im ctor ausgelöst werden. Der Ini-Variablen wird kein Pointer zugewiesen, da der Code sofort ins Finally springt. Und da Delphi keinen lokalen Variablen initialisiert, knallt es höchstwahrscheinlich dann beim Aufruf von Free, weil IniDatei sonstwohin zeigen kann.

[Klaus01]

Zitat:

Zitat von Balu der Bär

Könnte es sein das es an dieser Zeile liegt:

Delphi-Quellcode:

IniDatei := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));

ChangeFileExt(ParamStr(0)) ändert den Dateinamen der Exe (also z.B. Projekt1.exe) in Projekt1.ini. Bist du sicher das diese Datei existiert?

Das tut es mitnichten, es ändert die Extension des übergebenen Dateinamen, aber ändert nicht
den Dateinamen auf der HD.

Aber wie wieter oben schon einmal bemerkt ist es wohl besser dies zu nehmen:

Delphi-Quellcode:

IniDatei := TIniFile.Create(ExtractfilePath(ParamStr(0))+ChangeFileExt(ParamStr(0), '.ini'));

Funktioniert aber nur wenn Deine ini Datei auch im Verzeichnis der exe liegt.

Grüße
Klaus

[Hawkeye219]

Klaus, hast du deinen Vorschlag einmal getestet?

Gruß Hawkeye

[Klaus01]

@Hawkeye

nein :o( aber jetzt schon
und da ist etwas dopplet gemoppelt.
In ChangeFileExt ist der komplette Pfad schon enthalten.
Daher kann der Vorschlag vergessen werden.

Danke und Grüße
Klaus