TTreeView ed eliminazione TTreeNode

[Fabio]

Ho una TTreeView che popolo senza problemi, ma quando vado per eliminare un elemnto mi va in errore dicendo

<progetto> raised exception class 'external: sigsegv'.

E mi si ferma alla riga 392 di treeview.inc

Codice: [Seleziona]

Result:=NodeState in FStates;

Il codice di eliminazione è il seguente che l'ho trovato sul wiki:

Codice: [Seleziona]

procedure TfrmMain.btnDelHostClick(Sender: TObject);
  Procedure DeleteNode(Node:TTreeNode);
  begin
    while Node.HasChildren do DeleteNode(Node.GetLastChild);
    lstHosts.Items.Delete(Node);
  end;
begin
  if lstHosts.Selected = nil then exit;
  If lstHosts.Selected.HasChildren then
    if MessageDlg('Delete node and all children ?',mtConfirmation,
                 [mbYes,mbNo],0) <> mrYes then exit;
  DeleteNode(lstHosts.Selected);
end;

Debuggando va in crash alla riga

Codice: [Seleziona]

lstHosts.Items.Delete(Node);

Idee?

[xinyiman]

Non ho lazarus sotto mano per provare, ma sei sicuro che stai cancellando un nodo? Magari si tratta di un figlio del nodo e mi sembra che vada identificato come DeleteSubNode

Ma ripeto, vado a memoria. Non prendere per oro colato. Fammi sapere se risolvi

[Fabio]

Ti dico ho ripreso lo stesso esempio del wiki e poi ho provato sia su un nodo root senza figli che su un nodo figlio che su un nodo root con figli, in tutti e tre i casi sempre stesso errore.

[Legolas]

A me l'esempio funziona senza problemi. Non è che hai qualche oggetto appeso al nodo?

Edit: 'spetta, ho detto una boiata, gli oggetti appesi chiaramente non c'entrano niente 

Quell'errore viene fuori quando provi a cancellare un nodo che non esiste. Non è che per qualche motivo la procedura di cancellazione viene chiamata due volte?

[Fabio]

Rispondo solo ora che il progetto l'ho in ufficio e nel weekend non potevo provare.

Sul tuo appunto ho provato a fare un debug passo passo e l'errore esce prima ancora che cominci a eliminare il nodo, sembra quasi non riesca a leggere il lstHosts.Selected

Confermo è quello, ho forzato un

Codice: [Seleziona]

DeleteNode(lstHosts.Items[1]);

E li l'errore non esce

Ehm ... aggiornamento ... io mi sto perdendo, ha funzionato una volta e poi ora da errore anche così.

[xinyiman]

Scusa ma che versione di Lazarus usi?!

[Fabio]

0.9.30

[xinyiman]

Hai provato ad installare una snapshot 0.9.31?! Magari così risolvi la problematica.

[Fabio]

Aggiungo una nota, se prima della cancellazione provo a leggere il nodo quello va senza problemi

Codice: [Seleziona]

ShowMessage(Node.Text);
lstHosts.Items.Delete(Node);

Lo shomessage mi mostra correttamente il testo del nodo ma poi al delete va in errore.

No, non ho provato lo snapshot, se a voi funziona con la stessa versione è qualcosa che sbaglio, devo cercare di capire cos'è.

[xinyiman]

Bho, a me funziona ma uso la 0.9.31

[Fabio]

La cosa si infittisce, ho creato un progetto nuovo, ho messo una treeview e un pulsante.

Ho popolato a runtime i nodi e inserito le stesse funzioni del wiki e dell'altro progetto al pulsante.

Qui li cancella senza problemi.

[xinyiman]

Veramente molto strano!

[Fabio]

Ho trovato il barbatrucco, il pulsante che uso per eliminare la voce è disabilitato di default, nell'evento selectionchanged della treeview ho aggiunto il codice per abilitarmi il pulsante solo se in precedenza ho selezionato una voce
Remmando questo comando e lasciando il pulsante abilitato di default tutto funziona correttamente senza errori.

Se avete voglia di ripetere la situazione per vedere se anche a voi esce l'errore basta che fate un nuovo progetto, aggiungete un controllo treeview e un pulsante che sia disabilitato di default, nell'evento create del form popolate la treeview con dei dati a casa

Codice: [Seleziona]

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  lstHosts.Items.Add(nil, 'uno');
  lstHosts.Items.Add(nil, 'due');
  lstHosts.Items.Add(nil, 'tre');
  lstHosts.Items.Add(nil, 'quattro');
  lstHosts.Items.Add(nil, 'cinque');
end;

Ora nell'evento selectionchanged della treeview mettete l'abilitazione del pulsante

Codice: [Seleziona]

procedure TfrmMain.lstHostsSelectionChanged(Sender: TObject);
begin
  btnDeleteItem.Enabled:=lstHosts.Selected.Selected;
end;

E infine la funzione al pulsante di eliminazione

Codice: [Seleziona]

procedure TfrmMain.btnDeleteItemClick(Sender: TObject);
  procedure DeleteNode(Node:TTreeNode);
  begin
    while Node.HasChildren do DeleteNode(Node.GetLastChild);
    lstHosts.Items.Delete(Node);
  end;
begin
  if lstHosts.Selected = nil then exit;
  If lstHosts.Selected.HasChildren then
    if MessageDlg('Delete node and all children ?', mtConfirmation
       , [mbYes,mbNo], 0) <> mrYes then exit;
  DeleteNode(lstHosts.Selected);
end;

Eseuite e provate a eliminare una voce, se vi crasha anche a voi remmate l'istruzione nel selectionchanged e abilitate di default il pulsante e riprovate ora non da + errori e cancella giusto.

Qualcuno sa spiegarmi come mai ?

[Fabio]

Intando ho trovato come farlo funzionare ugualmente anche con l'abilitazione del pulsante anche se ancora non capisco il perchè nell'altra maniera non vada e faccia crashare tutto:

Codice: [Seleziona]

procedure TfrmMain.lstHostsSelectionChanged(Sender: TObject);
begin
  btnDeleteItem.Enabled:=not(lstHosts.Selected = nil);
end;

[Legolas]

Perché con lstHosts.Selected.selected fai riferimento ad un oggetto (lstHosts.Selected) che hai appena cancellato

Probabilmente potresti anche fare qualcosa del tipo:

Codice: [Seleziona]

procedure TfrmMain.lstHostsSelectionChanged(Sender: TObject);
begin
  btnDeleteItem.Enabled := lstHosts.items.SelectionCount > 0; 
end;