D2009 Exception

[EWeiss]

Mir ist kein anderen threadnamen eingefallen.

Meine Funktion welche ich hier schonmal gepostet habe verursacht in D2009 beim 2 Aufruf ein
Exception Exception in "blaaa, blaa" aufgetreten.

Delphi-Quellcode:

procedure TSkinConfig.AppendToLinkedList(nReading: Integer; sBuffer: string);
begin

  New(FPBuffer);

  if nReading = 0 then
  Begin
    New(FToPBuffer);
    LineStart := FToPBuffer;
  end;

  FPBuffer^.Nr    := nReading;
  FPBuffer^.Str   := sBuffer;
  LineStart^.Max  := nReading;
  FToPBuffer^.Ptr := FPBuffer;
  FToPBuffer      := FPBuffer;

end;

procedure TSkinConfig.FBuffin(FileName: string);
var
  sBuffer: string;

begin

  if not FExist(FileName) then
    Exit;
  try
    try
      Assignfile(ParseFile, FileName);
      reset(ParseFile);

      while not eof(ParseFile) do
      begin
        ReadLN(ParseFile, sBuffer);
        AppendToLinkedList(nReading, sBuffer);
        inc(nReading);
      end;
    except
      raise Exception.Create(SysErrorMessage(GetLastError));
    end;
  finally
    nReading := 0;
    CloseFile(ParseFile);
  end;

end;

und zwar wenn das zweitemal
New(FPBuffer);
aufgerufen wird.
Beim Awendungsfenster tritt das problem nicht auf nur beim
Modal erstellten Window.

In D2006 gibt es keine probleme diesbezüglich.
Mit Exception Exception kann ich nichts anfangen keine Nummer nix wird zurückgegeben.

gruss Emil

[WM_CLOSE]

GIbst du den speicher auch irgendwo frei? und mit Dispose? Außerdem würde ich das AssignFile über das try-finally setzen, da im Fehlerfall versucht wird eine Datei, die nicht geoffnet ist zu schließen.

[EWeiss]

Zitat von WM_CLOSE:

GIbst du den speicher auch irgendwo frei? und mit Dispose? Außerdem würde ich das AssignFile über das try-finally setzen, da im Fehlerfall versucht wird eine Datei, die nicht geoffnet ist zu schließen.

Im Fehlerfall springt er in except nicht in finally.

Nach dem erstellung des HauptFenster werden die Resourcen wieder freigegeben.

Delphi-Quellcode:

  // Resourcen Freigeben
  FPBuffer := nil;
  Result := True;

sowie das TextFile
CloseFile(ParseFile);
gruss

[mkinzler]

Zitat:

Im Fehlerfall springt er in except nicht in finally.

In finally, sollte er auf jeden Fall verzweigen

[EWeiss]

Zitat von mkinzler:

Zitat:

Im Fehlerfall springt er in except nicht in finally.

In finally, sollte er auf jeden Fall verzweigen

Habe es jetzt so umgelegt das er hineinspringt.
Und das AssignFile über try (finally gesetzt)

Ändert aber nichts an meinem problem.

Reicht ein
FPBuffer := nil;
nicht aus? Nachdem das Hauptfenster erstellt wurde?
Warum dann noch ein Dispose?

gruss

[WM_CLOSE]

Es gibt leider keinen Garbage Collector in Delphi:
Man muss den Speicher, den man allokiert (mit new) wieder Freigeben(mit Dispose). Das nilen des Pointers reicht da nicht aus, da der Wert dahinter immer noch existiert.

Normalerweise ist sowas "nur" ein Speicherleck und sollte keine Exception werfen, aber wer weiss.
Vielleicht liegt der Fehler wo ganz anders