blazingfire的专栏

开始写BLOG

2008年05月26日

如何把一个Word文档流直接加载到OleContainer中？

procedure LoadOleCtnrFromStream(OleContainer: TOleContainer; Stream: TStream);
const
DataFormatCount =2;
StreamSignature =阅读全文>

发表于 @ 2008年05月26日 17:28:00|评论(loading...)|编辑|举报|收藏

2008年05月21日

高效率从数据库提取数据，创建树形结构图

procedure BuildTree(TreeView: TTreeView; DataSet: TDataSet;
KeyField, ParentField, TitleField: string);
{ 高效建树过程　by blazingfire 2008-05-21 }
type
PNodeData = ^TNodeData;
TNodeData = record
    Key: Integer;
    Parent: Integer;
    Title: string;
    Node: TTreeNode;
end;
function CompareKey(Item1, Item2: Pointer): Integer;
begin
阅读全文>

发表于 @ 2008年05月21日 14:21:00|评论(loading...)|编辑|举报|收藏