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:
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?