Debugen nicht möglich

[Edelfix]

Hallo,

ich kämpfe schon seit ein paar Tagen (mit Unterbrechungen) an einem unlösbarem Problem.

Nach dem Klick auf einen Button läuft die dazugehörige Funktion bis zur einer Zeile an der es zu einer „ACCESS_VIOLATION“ kommt.

Ab da ist mein Programm und die Die nicht mehr bedienbar. Eingefroren. Mein Programm kann dann über den Task Manager killen und die Die ist wieder bedienbar.

Aber so ist natürlich das Debugen nicht möglich. Ein Try Except um die Stelle hilft leider auch nicht.

Was kann ich noch machen?

Die Stelle:

Delphi-Quellcode:

  If K<SS.Count Then
  begin
   TS.Free;
   TS := nil;
   TS := TStringList.Create;
   //--
   TS.CommaText := '0,0,0,0,0,0'; // hier knallt es
   //--
   TS.CommaText := SS.Strings[k]; // original version
   //--
   for L:=0 to TS.Count-1 do
    If L<=High(VK) Then
     VK[L] := StrToFloatDef(TS.Strings[L],0);
  end;

[Edelfix]

Die Meldung

[himitsu]

Wo knallt es denn jetzt?
Original oder beim 0,0,0,0

Und sicher, dass es wirklich in dieser Zeile knallt?

PS:

Zitat:

Delphi-Quellcode:

  for L:=0 to TS.Count-1 do
    If L<=High(VK) Then

for L := 0 to Min(TS.Count-1, High(VK)) do

[stahli]

Verwende mal testweise die Eigenschaft "Text".
Ich denke, dass es da auch ein Problem gibt.

Die Variable TS scheint nicht instanziiert zu sein (wobei das nach Deinem Quellenauszug nicht nachvollziehbar ist).

Hast Du irgendwelche Threads in Verwendung?

Wird das Projekt korrekt erzeugt? Hast Du vor jeder Zeile einen blauen Punkt?
(Es kann z.B. probleme bereiten, wenn man einen Projektordner kopiert, dann stimmt manchmal der Codeeditor nicht mehr mit dem compilierten Code überein.)

Versuche ggf. mal eine Projktbereinigung neu Neuerzeugung.

Hast Du mal einen Haltepunkt gesetzt und die Methode schrittweise debuggt?

[Edelfix]

Danke für die Hilfe. Habe aber schon alle deine Punkte abgearbeitet.

[Uwe Raabe]

Dann können wir ohne den vollständigen Code wohl erstmal nicht viel weiterhelfen. Die gezeigte Code-Sequenz ist sicher nicht für das Problem verantwortlich, wobei ja aber auch nicht alles zu sehen ist, was für ein Compilieren notwendig ist. Da musst du wohl noch etwas mehr liefern.

[hoika]

Hallo,

Delphi-Quellcode:

  TS := TStringList.Create;

   //--

  TS.CommaText := '0,0,0,0,0,0'; // hier knallt es

Und genau das hier //-- "verschweigst Du?

Was genau passiert dort.

Du könntest einen Watchpoint "TS.CommaText" setzen und dann schrittweise debuggen.

[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!

[himitsu]

FreeAndNil anstatt manuell Free und Nil.

Aber ja, egal was man macht, es muß vorher natürlich sichergestellt sein, dass immer entweder NIL oder eine Objektinstanz in der Variable steht.
Free hat zwar ein If-Assigned integriert (if Assigned(Self) then Self.Destroy; ), aber das kann natürlich keine "ungültigen" Variableninhalte verarbeiten.

[haentschman]

Moin...

Wenn wir schon am meckern sind...

Delphi-Quellcode:

TS.Free;
TS := nil;
TS := TStringList.Create;

...halte ich, unabhängig der Bedenken der Vorposter wie FreeAndNil(), für keine gute Idee. Du erzeugst die Liste, füllst sie mit Inhalt und diese bleibt bis zum nächsten Aufruf (Free) im Arbeitsspeicher!

Wäre nicht besser:

Delphi-Quellcode:

TS := TStringList.Create;
try
....Arbeit
finally
  TS.Free;
end;

PS: Der Zusammenhang, wo die Liste dann in deinem Code letztendlich freigegeben wird, ist für uns nicht ersichtbar.