So, ich hoffe das ist jetzt mein letztes Problem...
Ich habe ne Treeview in etwa so:
Code:
Thema 1
Unterpunkt1
Unterpunkt2
Thema2
Unterpunkt1
Unterpunkt2
Jetzt brauche ich ne Schleife die den Unterpunkten ein Stateindex zuweist so:
Punk1 = 1
Punk2 = 2
Punk1 = 1
Punkt = 2
Also in jedem Thema von neuem Zählt.
Habs schon versucht, bekomms aber nicht hin!
Gruß
Muetzi
Delphi-Quellcode:
case zahl of
1 : begin form1.tv1.Items.AddChild(form1.tv1.Items[0],str1);
form1.tv1.Items[ia[8]].Item[ia[1]].StateIndex := ia[1] + 1;
ia[1]:= ia[1] + 1;
inc(ia[8]);
end;
2 : begin form1.tv1.Items.AddChild(form1.tv1.Items[0],str1);
form1.tv1.Items[ia[8]].Item[ia[2]].StateIndex := ia[2] + 1;
ia[2]:= ia[2] + 1;
inc(ia[8]);
end;
3 : begin form1.tv1.Items.AddChild(form1.tv1.Items[0],str1);
form1.tv1.Items[ia[8]].Item[ia[3]].StateIndex := ia[3] + 1;
ia[3]:= ia[3] + 1;
inc(ia[8]);
end;
4 : begin form1.tv1.Items.AddChild(form1.tv1.Items[0],str1);
form1.tv1.Items[ia[8]].Item[ia[4]].StateIndex := ia[4] + 1;
ia[4]:= ia[4] + 1;
inc(ia[8]);
end;
5 : begin form1.tv1.Items.AddChild(form1.tv1.Items[0],str1);
form1.tv1.Items[ia[8]].Item[ia[5]].StateIndex := ia[5] + 1;
ia[5]:= ia[5] + 1;
inc(ia[8]);
end;
6 : begin form1.tv1.Items.AddChild(form1.tv1.Items[0],str1);
form1.tv1.Items[ia[8]].Item[ia[6]].StateIndex := ia[6] + 1;
ia[6]:= ia[6] + 1;
inc(ia[8]);
end;
7 : begin form1.tv1.Items.AddChild(form1.tv1.Items[6],str1);
form1.tv1.Items[ia[8]].Item[ia[7]].StateIndex := ia[7] + 1;
ia[7]:= ia[7] + 1;
inc(ia[8]);
end;
end;