Moin, ihr Delphianer!

Erstmal hoffe ich, in die richtige Kategorie gepostet zu haben, bin grad erst dazugekommen.

Hier mein Problem:

Mein Programm läuft und funktioniert, aber sobald ich es beende, erzeugt es einen Invalid Pointer-Error. Ich habe mir "Memcheck" heruntergeladen und herausgefunden, dass es irgendwo an den Stringlists hängt (Bericht ist im Archiv). Weiß aber nicht, woran es eigentlich hängt.

Zum Programm: Es soll ein/mehrere Verzeichnis(se) nach doppelten Dateien gescannt werden, anhand von Hash-Werten, die in "ahashlist" gespeichert werden. Da es aber jetzt schon Probleme bereitet, bin ich noch nicht sehr weit.

Wenn ihr könnt, bitte helft mir!

Danke schon mal im Voraus.

eine "Invalid Pointer" Exception kommt unter anderem wenn vesucht wird etwas freizugeben was schon freigeben ist. Wenn du also mit Dispose etc. speicher freizugeben der bereits freigegeben wurde oder nie angefordert wurde. Gibst du eventuell irgendwas bei der Stringliste frei was zu Stringliste gehört. Dann könnte es zu dem Fehler kommen wenn du das Destroy der Stringlist aufrufst.

zu deinem Source:

zusammenfalten · markieren

Delphi-Quellcode:

[...]
var
  Form1: TForm1;
  alist:TStringList;//<<--
  ahashlist: Tstringlist;//<<--


implementation
[...]
procedure TForm1.FormCreate(Sender: TObject);
begin
 MemChk;
 alist:=TStringList.Create;//<<--
 ahashlist:=TStringList.Create;//<<--
end;

Das ist einfach nur gruselig. Wenn du die Stringlist in der Klasse TForm1 erzeugst etc. dann packe die declaration doch auch in die Klasse (in den Private bereich, oder in den Public wenn anderen klassen etc. auch darauf zugreifen)

also so

zusammenfalten · markieren

Delphi-Quellcode:

  TForm1 = class(TForm)
[...]
  private
    alist:TStringList;//<<--
    ahashlist: Tstringlist;//<<--
  public
  published
    procedure finddoubles(pfad: string);
    { Public-Deklarationen }
  end;
[...]