Discussion :

[ulysse_31]

Bonjour,

Savez-vous s'il est est possible d'obtenir des infos de débogage plus précises, pendant l’exécution pas a pas ?

Je m'explique :

Lors de l’exécution pas a pas de ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
// On parcourt tous les éléments cochés dans IHM
elements_checked := TStringList.Create;
for i := 0 to TIHM_FORM_FenetrePrincipale.TIHM_Checklistbox1.Items.Count -1 do
begin
  elements_checked.Add(TIHM_FORM_FenetrePrincipale.TIHM_Checklistbox1.Items[i]);
end;

En Delphi (que je n'ai plus / et pas utilisé depuis des années) j'aurais obtenu des infos précises lors du débogage :
i := 7
TIHM_Checklistbox1.Items.Count := 18
TIHM_FORM_FenetrePrincipale.TIHM_Checklistbox1.Items := 'tintin'

Sous Lazarus, en l’état actuel de mes connaissances je n'obtiens que ceci
i := 7
TIHM_Checklistbox1.Items.Count := ... (vagues infos)
TIHM_FORM_FenetrePrincipale.TIHM_Checklistbox1.Items := ... (vagues infos)

Je comprendrai qu'il n'y ai pas de solution à mon problème
A ++

[Ph. B.]

Bonjour,

Vous retrouvez les mêmes principes qu'avec Delphi
F4 pour exécuter jusqu'au curseur
F5 pour les points d'arrêt
F7 pour le débogage pas à pas en profondeur
F8 pour le débogage pas à pas
Ctrl+F7 pour évaluer et faire du suivi
etc, etc.
Par contre, il faut que le code que vous voulez inspecter soit compilé avec les options idoines.
Il y a un article sur le wiki à ce sujet : Lazarus debugger setup

[ulysse_31]

Merci Ph. B. pour votre réponse

Tout ce que je cherche a faire c'est comme avec Delphi a l'époque ; pendant l’exécution pas à pas avec Lazarus, et lorsque je survole avec la souris une variable pendant le debogage, il me donne la valeur exacte (et non des infos de structure)

Voici des exemples (j'ai mis en souligné mon pointeur de souris).
Exemple 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for i := 0 to TIHM_FORM_FenetrePrincipale.TIHM_ELEMENTS_Checklistbox.Items.Count -1 do

Ici Lazarus me donne i=0 , TIHM_ELEMENTS_Checklistbox.Items.Count class has no component count
Avec Delphi j'aurai obtenu i=0 , TIHM_ELEMENTS_Checklistbox.Items.Count = 28




Exemple 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
while not TIHM_FORM_FenetrePrincipale.TIHM_DB_DbSqliteQuery.EOF do
  begin
    SetLength(elements_in_db,i+1,2);
    elements_in_db[i,0] := TIHM_FORM_FenetrePrincipale.TIHM_DB_DbSqliteQuery.FieldByName('Nom').AsString;

Avec Delphi j'aurai obtenu elements_in_db = toutes les valeurs du tableau
elements_in_db[i,0] = valeur de ce tableau
TIHM_DB_DbSqliteQuery.FieldByName('Nom').AsString = 'tintin'



Je suis toujours en train de me documenter.
Mais je ne comprend vraiment pas grand chose

Je sens que ce post va être compliqué / ou tomber dans les oubliettes

[Jazz77]

Bonjour

Je n'ai pas trouvé non plus, mais pour l'évaluation j'utilise des variables intermédiaires

par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Var intCount : integer;
 
 
intCount := TIHM_FORM_FenetrePrincipale.TIHM_ELEMENTS_Checklistbox.Items.Count;
 
for i := 0 to intCount -1 do
...

Je sais que ce n'est pas très élégant, mais cela me permet de contourner le problème, tout du moins partiellement.

Jazz

[ulysse_31]

Pas bête le coup des variables intermédiaires

Je continue à me documenter sur les options de débogage.
Notamment sur -> Ctrl+F7 pour évaluer et faire du suivi

Sujet résolu !
Merci de votre aide à tous les 2.

[Nullosse]

Bonjour,
effectivement le debug ce n'est pas le point fort de lazarus. Souvent on n'arrive pas à lire le contenu de propriétés de composants ou les valeurs de structure ou d'objets. Il y a quelques astuces pour pouvoir les lire en passant par des pointeurs (^) mais comme l'indique Jazz77 la solution la plus sûre est de passer par des variables intermédiaires.

J.P