Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiµÝ¹é¼ÓÔØÊ÷ÐΣ¨TreeView£©Áбí

//²ÉÓõݹ鷽·¨£¬D7±àÒëµ÷ÊÔͨ¹ý¡£
//Êý¾Ý²ÉÓÃADOQuery¶ÁÈ¡£¬²¢½«Êý¾ÝÔÝ´æÔÚÒ»¸ö¶¯Ì¬Êý×éÖУ¬Ê÷ÐÎÁÐ±í¿Ø¼þΪTreeView¡£
procedure TForm1.LoadTreeInfo;
type
  TInfo = record
    ID,      //´úÂë      
    Name,    //Ãû³Æ
    SuperID  //Éϼ¶´úÂë              
      : string;
    //¸½¼Ó×Ö¶ÎËæÐèÌí¼Ó
  end;
var
  sql: string;
  i, nCount: Integer;
  arrInfo: array of TInfo;
  NewNode: TTreeNode;
  //¼ÓÔØÒ»¸ö½Úµã
  procedure InitOneNode(ANode: TTreeNode; AId: string);
  var
    k: Integer;
  begin
    for k := 0 to length(arrInfo) - 1 do
      if arrInfo[k].SuperID = AId then
      begin
        NewNode := TreeView1.Items.AddChild(ANode, arrInfo[k].Name);
        InitOneNode(NewNode, arrInfo[k].ID);
      end;
  end;
begin
  TreeView1.Items.BeginUpdate;
  TreeView1.Items.Clear;
  sql := 'select ID, Name, SuperID from DictionaryTable order by ID';
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := sql;
  ADOQuery1.Open;
  nCount := ADOQuery1.RecordCount;
  if nCount > 0 then
  begin
    SetLength(arrInfo, nCount);
    for i := 0 to nCount - 1 do
      with arrInfo[i] do
      begin
        ID := Trim(ADOQuery1.FieldByName('ID').AsString);
        Name := Trim(ADOQuery1.FieldByName('Name').AsString);
        SuperID := Trim(ADOQuery1.FieldByName('SuperID').AsString);  //ÎÞûÓдË×ֶΣ¬¿É¸ù¾ÝÉÏϼ¶±àÂë¹æÔò¸³Öµ
        ADOQuery1.Next;
      end;
  end;
  ADOQuery1.Close;
  if nCount > 0 then
&nb


Ïà¹ØÎĵµ£º

DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ


DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ
 
»ù±¾°²×°
1¡¢¶ÔÓÚµ¥¸ö¿Ø¼þ£¬Componet-->install component..-->PAS»òDCUÎļþ-->install;
2¡¢¶ÔÓÚ´ø*.dpkÎļþµÄ¿Ø¼þ°ü£¬File-->Open(ÏÂÀ­Áбí¿òÖÐÑ¡*.dpk)-->install¼´¿É£»
3¡¢¶ÔÓÚ´ø*.bplÎļþµÄ¿Ø¼þ°ü£¬Install Packages-->Add-->bplÎļþÃû¼´¿É£»
4¡¢Èç¹ ......

DelphiÖС°Á÷¡±µÄÀûÓà EXE¼ÓÃÜ|µç×Ӻؿ¨


Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷   
ÔÚDelphiÖУ¬ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀ࣬ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£   
TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏ£º   
1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£   
2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖà ......

Delphi ͨ¹ýMSHTMLʵÏÖÒ»¸öHTML½âÎöÀà

×î½ü¾­³£»áÄ£ÄâÍøÒ³Ìá½»·µ»ØÍøÒ³Ô´Â룬Ȼºó»ñµÃÍøÒ³ÖÐÏàÓ¦µÄÔªËØ£¬ÓÚÊÇÐèÒª³£³£½âÎöHtmlÖÐÏàÓ¦µÄ¸÷ÖÖÔªËØ£¬ÍøÂçÊǸöºÃ¶«Î÷£¬ËÑË÷Ò»·¬£¬¾ÍÕÒµ½ÁË
ºÃ¼¸¸öDelphi°æ±¾µÄHtmlParserµÄÀà¿â£¬ÊÔ×ÅʹÓÃÁ˼¸¸ö£¬·¢ÏÖ½âÎöÆðÀ´¶¼²»ÍêÕû£¬»ò¶à»òÉٵĻسöÏÖһЩÎÊÌ⣡ÓÚÊÇÏëµ½ÁËÈç¹û½çÃæÉÏÓÐÒ»¸öä¯
ÀÀÆ÷£¬ÎÒÃÇ¿ÉÒÔͨ¹ýWebBrowserµÄDocu ......

delphi¿ª·¢ocx¿Ø¼þ¿ª·¢±Ê¼Ç£¨Ò»£©

      ÓÉÓÚÏîÄ¿µÄÐèÒª£¬½üÆÚ¿ªÊ¼Ñ§Ï°ÓÃdelphi¿ª·¢Ò»¸öÈíµç»°¿Ø¼þ¡£
      ÒÔǰ½Ó´¥¹ýһЩdelphi¿ª·¢·½ÃæµÄ¶«Î÷£¨µ±È»¶¼ÊÇЩƤëÀ²£©£¬µ«Ã»½Ó´¥¹ýocx¿Ø¼þµÄ¿ª·¢£¬Ôڴ˰ÑһЩ¼òµ¥µÄ¶«Î÷¼ÇÏÂÀ´£¬Ò»·½ÃæÒÔºó×Ô¼º¿ÉÒÔÔÙѧϰ£¬ÁíÒ»·½ÃæÏ£Íû¶Ô¸Õ¸Õѧϰdelphi¿ª·¢ocx¿Ø¼þµÄ³õѧ ......

Delphi×Ö·û´®º¯Êý´óÈ«

Delphi×Ö·û´®º¯Êý´óÈ«
uses StrUtils;
¡¾×Ö·û´®º¯Êý´óÈ«¡¿
      Êײ¿ function AnsiResemblesText(const AText, AOther: string): Boolean;
      $[StrUtils.pas
      ¹¦ÄÜ ·µ»ØÁ½¸ö×Ö·û´®ÊÇ·ñÏàËÆ
      ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ