istediğim şey dallanmamış olan ilk verileri kullanarak çıkan verilerini onun altına eklemek istiyorum ama bunu sadece bir kere döndürebiliyorum kullandığım kod
Kod: Tümünü seç
procedure TForm1.Button2Click(Sender: TObject);
var
node:TTreeNode;
begin
if TreeView1.Items.Count = 0 then Exit;
Node := TreeView1.Items.GetFirstNode;
while Node <> nil do
begin
Application.ProcessMessages;
parcala((node.Text),node.Text);
// ShowMessage(Node.Text);
Node := node.getNextSibling;
end;
ShowMessage('Bitti');
end;
İlk olarak veriler bu halde
-AAA
-BBB
-CCC
İkinci olarak yukardıdaki kodla şu hale getirebiliyorum
-AAA
-1
-2
-3
-BBB
-1
-2
-3
-CCC
-1
-2
-3
ama üçüncü dallanmayı yapamıyorum bu dallanmaları otomatik olarak çoğaltmak istiyorum
-AAA
-1
***
****
-2
***
****
-3
***
****
-BBB
-1
***
****
-2
***
****
-3
***
****
-CCC
-1
***
****
-2
***
****
-3
***
****