ÌÔ±¦Æ½Ì¨¿ª·¢ delphi ʾÀý
	
    
    
	ÌÔ±¦¿ª·Åƽ̨µÄ¿ª·¢Àý×Ó´ó¶à¶¼ÊÇc#£¬php£¬javaµÈ£¬È±ÉÙPascalµÄÀý×Ó¡£
ÏÖÓÃdelphiдÁËÒ»¸öʾÀý£¬
¹Ø¼üµãÊÇÇ©ÃûµÄÉú³É£¬Ç©ÃûÐè°´key×Öĸ˳ÐòÅÅÐò£¬²¢È¥µôµÈÓںźóÊ×βÏàÁ¬¡£
¹Ø¼ü´úÂ룺
 memstr:= TMemoryStream.Create;
 //ÓÃÊÚȨÂë»ñÈ¡ session
  IdHTTP1.Get('http://container.api.tbsandbox.com/container?authcode='+memo1.Text,memstr);
  setlength(ss,memstr.Size);
  memstr.Position:= 0;
  memstr.Read(ss[1],memstr.Size);
   ss:= Utf8ToAnsi(ss);
  //ÇзÖsession top_session=282730527fc47c5e27838f5dd8aeb098afefd&top_sign=LiTSTYs/DQHpRAGA4OPEZA==
  ss:= copy(ss,pos('top_session=',ss)+12,255);
  ss:= copy(ss,1,pos('&',ss)-1);
  memo1.Lines.Add(ss);
  //ÖÆ×÷Ç©Ãû£¬ÏÂÁдúÂëÓÐÈßÓàµÄµ¥ÒýºÅ£¬Ö÷ÒªÊÇΪÁËÏÔʾÂß¼¹ØÏµ¡£
  ss2:=secrect_key+'app_key'+app_Key +
       'fields'+'tid,seller_nick,buyer_nick,status,orders.title,orders.price,orders.num'+
        'format'+ 'xml'+
       'method'+'taobao.trades.sold.get'+
        'session'+ss+
        'sign_method'+'md5'+
        'timestamp'+datetimetostr(now)+
       'v'+ '2.0'+ secrect_key;
     
  ss2:= UpperCase(StrMD5(ss2));    //Éú³ÉÇ©Ãûmd5
   //ºÏ³É²ÎÊý
      ss3:= 'app_key='+app_Key +
       '&fields='+'tid,seller_nick,buyer_nick,status,orders.title,orders.price,orders.num'+
        '&format='+ 'xml'+
       '&method='+'taobao.trades.sold.get'+
        '&session='+ss+
        '&sign_method='+'md5'+
        '×tamp='+ URLEncod
    
     
	
	
    
    
	Ïà¹ØÎĵµ£º
        
    
    unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
    private
    Connection: TADOConnection;
    Query: TADOQuery;
    Table: TADOTable;
    FConnectio ......
	
    
        
    
    function ExpCalc(exp: string): string;
var
  vScript: Variant;
begin
  vScript := CreateOleObject('ScriptControl');
  vScript.Language := 'VBScript';
  Result := vScript.Eval(exp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s:=ExpCalc('100 *4.17/0.5*(55. ......
	
    
        
    
    var
  ExcelFile:string;
  SourceRange,DesRange:Variant;
  Row,Column,i:integer;
begin
  if OpenDialog1.Execute then
  begin
    ExcelFile:=OpenDialog1.Files[0];
    if not FileExists(ExcelFile) then Exit;
  end
  else
  Exit;
  try
    ExcelApp:=CreateOleObject('Excel.Application');
   ......
	
    
        
    
    32λDelphi³ÌÐòÖпÉÀûÓÃTRegistry¶ÔÏóÀ´´æÈ¡×¢²á±íÎļþÖеÄÐÅÏ¢¡£ 
¡¡¡¡Ò»¡¢´´½¨ºÍÊÍ·ÅTRegistry¶ÔÏó 
¡¡¡¡1.´´½¨TRegistry¶ÔÏó¡£ÎªÁ˲Ù×÷×¢²á±í£¬Òª´´½¨Ò»¸öTRegistry¶ÔÏó£ºARegistry := TRegistry.Create£» 
¡¡¡¡2.ÊÍ·ÅTRegistry¶ÔÏó¡£¶Ô×¢²á±í²Ù×÷½áÊøºó£¬Ó¦ÊÍ·ÅTRegistry¶ÔÏóËùÕ¼Äڴ棺ARegistry.Destroy¡£ 
¡¡¡¡¶þ ......
	
    
        
    
    DelphiµÄ·½·¨ÀàÐÍÓУº
1.¾²Ì¬·½·¨ (Static) ĬÈÏÀàÐÍ£¬¿ÉÒÔÊ¡ÂԹؼü×Ö
2.ÐéÄâ·½·¨ (Virtual)
3.¶¯Ì¬·½·¨ (Dynamic)
4.ÏûÏ¢·½·¨ (Message)
5.³éÏó·¨·½ (Abstract)
=======================================================
1£©¾²Ì¬·½·¨[static]
¾²Ì¬·½·¨ÀàËÆÓÚͨ³£µÄ¹ý³ÌºÍº¯Êý£¬±àÒëÆ÷ÔÚ±àÒëʱ¾ÍÒÑÖ¸¶¨ÁËÊä³ö¸Ã·½· ......