Debugen nicht möglich

[peterbelow]

Zitat von Edelfix:

Delphi-Quellcode:

  If K<SS.Count Then
  begin
   TS.Free;
   TS := nil;

Das TS.Free kann eine access violation auslösen wen TS weder Nil noch eine Referenz auf ein valides Objekt ist, d.h. irgendwelchen Müll enthält. Falls TS eine lokale Variable ist muss sie in irgend einer Weise initialisiert worden sein bevor Du Free gefahrlos darauf anwenden kannst. Der Compiler macht das nicht für dich!