Richtig debuggen..

[corpsman]

Guten Morgen,

Ich habe da mal eine Frage,...

Ich nutze ja nun auch Lazarus, und bin von Früher ( Delphi5 ) schon ein klein wenig verwöhnt.

Es geht um das Debuggen von Sourcode wie :

Code: Alles auswählen

Procedure TForm1.Button1Click(Sender: TObject);
Type
  Tarr = Array Of Integer;
  TBlub = Record
    x, y: Integer;
  End;
 
Var
  a: Array Of integer;
  b: TArr;
  c: Array[0..9] Of Integer;
  d, i: Integer;
  e: TBlub;
Begin
  e.x := 1;
  e.y := 2;
  setlength(a, 10);
  setlength(b, 10);
  For i := 0 To 9 Do Begin
    a[i] := i;
    d := a[i];
    b[i] := a[i] + i;
    d := b[i];
    c[i] := b[i] + i;
    d := c[i];
  End;
  showmessage(inttostr(c[9]) + inttostr(e.x));
End;

Weder a,b,c noch e sind "Anschaubar" es steht immer <incomplete type> dran, wenn ich mittels debugger mir die Werte anschauen will.

Gibts da nen Trick, oder mus man das immer so machen wie man hier mittels "d" sehen kann ?

[Scotty]

Wenn du dereferenzierst (a^ statt a) siehst du den Inhalt - aber nur unter Windows. Unter Linux bleibt's dunkel

[corpsman]

Ich bin Linux User, Kubuntu Jaunty !!

d.h. für Linux gibts keine Lösung ?

Das kann ich mir irgendwie nicht vorstellen, ???

[Targion]

Also mir ist für Arrays keine Lösung bekannt... Hast du mal die Mailing-Listen durchsucht?

[corpsman]

Was für Mailinglisten ??

[mse]

Ich vermute, dass der Compiler für lokale array type Definitionen keine korrekte debug info anlegt, mit globalen Definitionen funktioniert es. Bitte schreibe einen Bugreport wenn es nicht bereits gemeldet ist.
http://bugs.freepascal.org/my_view_page.php

[corpsman]

Also du scheinst recht zu haben, wenn man

Code: Alles auswählen

var
  f: Array Of Integer;
 
Procedure TForm1.Button1Click(Sender: TObject);
Type
  Tarr = Array Of Integer;
  TBlub = Record
    x, y: Integer;
  End;
 
Var
  a: Array Of integer;
  b: TArr;
  c: Array[0..9] Of Integer;
  d, i: Integer;
  e: TBlub;
Begin
  e.x := 1;
  e.y := 2;
  setlength(a, 10);
  setlength(b, 10);
  setlength(f, 10);
  For i := 0 To 9 Do Begin
    a[i] := i;
    d := a[i];
    b[i] := a[i] + i;
    d := b[i];
    c[i] := b[i] + i;
    d := c[i];
    f[i] := c[i] + i;
    d := f[i];
  End;
  showmessage(inttostr(c[9]) + inttostr(e.x));
End;

schreibt, kann der Debugger zumindest das 1. Element von f anzeigen, mittels

f[i]^ zeigt er mir aber nur das 1. Element an, die anderen kann ich nicht anzeigen lassen, oder mus ich da noch mal anders derefenenzieren ?

So nen Bugreport, kann man anscheinend nur schreiben, wenn man da Member ist, das bin ich nicht.

[pluto]

Bis der BUG behoben ist könntest du innerhalb der For schleife einfach per writeln die werte ausgeben lassen:
writeln(array[i].Feld);
Allerdings musst du unter Start\Start Paramenter\Start Programm aktivieren.
Das ist zwar eine unschöne Lösung geht aber. Wobei die writeln Funktion schon sehr viele Praktische sachen beinhaltet wie z.b.
writeln(boolvar,'\', intvar, '\',stringvar);
würde alles gehen, ohne [] und ohne die Variablen zu Casten.

[corpsman]

Hmm, ist zwar ein Hack, aber wenns nicht anders geht, ists immer noch besser wie nichts,

Danke.

[Euklid]

Zur Zeit scheint es bezüglich des Debuggens von Arrays keine andere Lösung zu geben. Kann mir aber vorstellen, dass sich daran was ändert, sollte der FPC eines Tages mal einen eigenen Debugger bekommen.

Ich regel das ähnlich wie Pluto, manchmal mit debugln oder gar mit showmessage.

Viele Grüße, Euklid

[corpsman]

diese Antwort, ist zwar nicht was ich hören wollte.

Trotzdem danke, so kann ich mich drauf einstellen, und entsprechend handeln.

[mse]

diese Antwort, ist zwar nicht was ich hören wollte.

Trotzdem danke, so kann ich mich drauf einstellen, und entsprechend handeln.

MSEide kann dynamische Arrays anzeigen, für lokale Typ-Definitionen und für manche Klassen Array-Elemente funktionierts aber auch nicht , da FPC ungenügende Debuginfo erzeugt.