Das interesaante dabei ist, dass die Stelle mit dem Lesen nur unter bestimmten bedingungen aufgerufen wird. Den Error bekomm ich aber schon, wenn diese bedingungen nicht erfüllt sind...
Hier trotzdem der Code zum Lesen der Ini-Datei
Delphi-Quellcode:
function Qx_Check (MaterialNr : Integer) : Integer;
var
Ini : TIniFile;
Zahl : Integer;
begin
Ini := TIniFile.Create(DATAPATH+'SPE4000.ini');
try
if ini.ValueExists('Qx_Check', IntToStr(MaterialNr)) then
begin
Zahl := ini.ReadInteger('Qx_Check', IntToStr(MaterialNr), 0);
end;
finally
Ini.Free;
end;
Result := Zahl;
end;
Mit Datapath ist das aktuelle Arbeitsverzeichnis gemeint. Dies ist korrekt und auch die ini-Datei ist darin vorhanden.