Delphi-Quellcode:
procedure TEventClass.LoadEventsFromFile;
var
i: integer;
ini: TIniFile;
begin
ini := TIniFile.Create(ExtractFilePath(Paramstr(0)) + 'Event.ini');
for i := 0 to ndx do
begin
try
Events[i].Name := ini.ReadString('Event' + IntToStr(i), 'Name', 'No Value');
Events[i].Description := ini.ReadString('Event' + IntToStr(i), 'Description', 'No Value');
Events[i].NotifyTime := ini.ReadInteger('Event' + IntToStr(i), 'NotifyTime', 0);
Events[i].EventDateTime := ini.ReadDate('Event' + IntToStr(i), 'EventDateTime', 0);
finally
ini.free;
end;
end;
end;
diese Prozedur gibt mir eine Zugriffsverletzung im Speicher, und ich weiß nicht, warum das passiert. Hat jemand eine Ahnung?
PS: Es liegt nicht am Aufruf. Den Fehler dort hab ich bereits beseitigt
