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

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

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

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

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...)|编辑