DelphiÖн¨ÒéʹÓõÄÓï¾ä

DelphiÖн¨ÒéʹÓõÄÓï¾ä
Â¥Ö÷zswang£¨°éË®ÇåÇå)(ר¼ÒÃÅÕïÇå½à¹¤£©2002-05-15 13:37:54 ÔÚ Delphi / VCL×é¼þ¿ª·¢¼°Ó¦Óà ÌáÎÊ
No.1   ÅжÏÂß¼­ÀàÐÍ  
  var   B:   Boolean;  
  begin  
      B   :=   Boolean(2);   //ÕâÑùÖ»ÊÇΪÁ˵÷ÊÔ//B   :=   True;  
      if   B   =   True   then   ShowMessage('B   =   True');   //²»½¨Òé//²»°²È«  
  ///////  
      if   B   then   ShowMessage('B');   //½¨Òé//¼ò¶Ì  
  end;  
   
  var   B:   Boolean;  
  begin  
      if   Edit1.Text   =   'ÊÇ'   then   //²»½¨Òé//·³Ëö  
          B   :=   True  
      else   B   :=   False;  
  ///////  
      B   :=   Edit1.Text   =   'ÊÇ';   //½¨Òé//¼ò¶Ì  
  end;  
   
  No.2   ÁÙʱSQL²éѯ  
  begin  
      QueryTemp.Close;  
      QueryTemp.SQL.Text   :=   'SELECT   SUM(½ð¶î)   AS   ºÏ¼Æ   from   ÏúÊÛ±í';  
      QueryTemp.Open;   //²»½¨Òé//Êý¾ÝûÓйرÕÔì³É×ÊÔ´ÀË·Ñ  
      ShowMessage(Query1.FieldByName('ºÏ¼Æ').AsString);  
  /////  
      QueryTemp.SQL.Text   :=   'SELECT   SUM(½ð¶î)   AS   ºÏ¼Æ   from   ÏúÊÛ±í';  
      QueryTemp.Open;  
      ShowMessage(Query1.FieldByName('ºÏ¼Æ').AsString);  
      QueryTemp.Close;   //½¨ÒéÓÃ//ʹÓÃÍê¾Í¹Ø±Õ  
  end;  
   
  No.3   »ñÈ¡¼Ç¼Êý  
  var  
  &n