OpenDialog nonvcl

[EWeiss]

Mit Breakpoint tut sich leider nichts..
Aber nach der Meldung wenn ich weiter klicke steht er in dieser Zeile.

TrackerFile := '';
Deshalb denke ich das es nur am Dialog liegen kann.
Zumal vorheriges Laden bei jeder Datei erfolgreich ist.
Solange ich nicht eine andere oder die selbe nochmal einlade.

gruss

[EWeiss]

Was bin ich doch manchmal was von blöd

Delphi-Quellcode:

  try
     if (not assigned(myList)) then
       myList := TstringList.Create;

    ClearGrids;
    ParsetoMidiTracker(TrackerFile, ExtractFilePath(ParamStr(0)), myList);
  finally
    myList.Free;
    mylist := nil; //<<<< Dachte immer ein Free genügt ? Anscheinend nicht!
  end;

Das war der Fehler.
Die hInstance kann ich ja noch russchmeißen wenn sie nicht benötigt wird.

gruss Danke für die hilfe.

[Luckie]

Free löscht nur die Objekte hinter dem Zeiger, setzt den Zeiger aber nicht auf Nil. So das ein Assigned() immer noch true liefert, da der Zeiger immer noch eine gültige Adresse beinhaltet. deswegen habe ich mir angewöhnt die Prozedur FreeAndNil zu verwenden.

[EWeiss]

Zitat von Luckie:

Free löscht nur die Objekte hinter dem Zeiger, setzt den Zeiger aber nicht auf Nil. So das ein Assigned() immer noch true liefert, da der Zeiger immer noch eine gültige Adresse beinhaltet. deswegen habe ich mir angewöhnt die Prozedur FreeAndNil zu verwenden.

Werde ich mir merken ..
Danke

gruss