Prozedur löst exception aus...

[malo]

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

[alcaeus]

Versuchs mal mit

Delphi-Quellcode:

for i := 0 to ndx-1 do

Greetz
alcaeus

[malo]

Zitat:

Zitat von alcaeus

Versuchs mal mit

Delphi-Quellcode:

for i := 0 to ndx-1 do

Greetz
alcaeus

Danke! :thumb:

[Muetze1]

Moin!

Dir ist auch bewusst, das du nach dem ersten Durchlauf die TIniFile Instanz freigegeben hast um danach noch weiterhin drauf zu zu greifen bei den weiteren Durchläufen? Ich hoffe doch...

MfG
Muetze1

[malo]

Zitat:

Zitat von Muetze1

Moin!

Dir ist auch bewusst, das du nach dem ersten Durchlauf die TIniFile Instanz freigegeben hast um danach noch weiterhin drauf zu zu greifen bei den weiteren Durchläufen? Ich hoffe doch...

MfG
Muetze1

:oops: Danke. Ich hab die Freigabe erst später eingefügt, weil ich das vorher vergessen hab (die Freigabe)... ;)