スポンサーサイト

--------

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

BuildTreeFromDataSet

2009-07-17

procedure BuildTreeFromDataSet(TreeItem: ttreenodes; SourceDataSet: TDataset); //AION ネザカン RMT
i, Number: integer; //FF11 RMT
temptree, Temptree2: ttreenode; //aion rmt
begin //AION(アイオン) 溜まり場
Number := SourceDataSet.Recordcount; //aion

while (not SourceDataSet.IsEmpty)
and
(treeitem.Count < SourceDataSet.RecordCount)
and (Number > 0) do
begin
SourceDataSet.First;
for i := 1 to SourceDataSet.RecordCount do
begin
if FindNode(treeitem, SourceDataSet.fieldbyname('ID').AsInteger) = nil
then begin
if (SourceDataSet.fieldbyname('UpID').AsInteger = -1)
then begin
temptree2 := treeitem.Add(nil, SourceDataSet.fieldbyname('Name').AsString);
temptree2.data := pointer(SourceDataSet.fieldbyname('ID').asinteger);

end
else begin
temptree := FindNode(treeitem, SourceDataSet.fieldbyname('UpID').AsInteger);
if temptree <> nil
then begin
temptree2 := treeitem.AddChild(Temptree, SourceDataSet.fieldbyname('Name').AsString);
temptree2.data := pointer(SourceDataSet.fieldbyname('ID').asinteger);
end;
end;

end;
Sourcedataset.Next;
end;
number := number - 1;
end;
スポンサーサイト

トラックバック

コメントの投稿

非公開コメント

カテゴリ
最新記事
最新コメント
最新トラックバック
検索フォーム
ブロとも申請フォーム

この人とブロともになる

QRコード
QRコード
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。