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

Delphi to Excel һЩ·½·¨

Ò»)   ʹÓö¯Ì¬´´½¨µÄ·½·¨   
  
  Ê×ÏÈ´´½¨   Excel   ¶ÔÏó£¬Ê¹ÓÃComObj: 
  var   ExcelApp:   Variant; 
  ExcelApp   :=   CreateOleObject(   'Excel.Application'   ); 
  
  1)   ÏÔʾµ±Ç°´°¿Ú£º 
  ExcelApp.Visible   :=   True; 
  
  2)   ¸ü¸Ä   Excel   ±êÌâÀ¸£º 
  ExcelApp.Caption   :=   'Ó¦ÓóÌÐòµ÷Óà  Microsoft   Excel'; 
  
  3)   Ìí¼Óй¤×÷²¾£º 
  ExcelApp.WorkBooks.Add; 
  
  4)   ´ò¿ªÒÑ´æÔڵŤ×÷²¾£º 
  ExcelApp.WorkBooks.Open(   'C:\Excel\Demo.xls'   ); 
  
  5)   ÉèÖõÚ2¸ö¹¤×÷±íΪ»î¶¯¹¤×÷±í£º 
  ExcelApp.WorkSheets[2].Activate;   
  »ò   
  ExcelApp.WorksSheets[   'Sheet2'   ].Activate; 
  
  6)   ¸øµ¥Ôª¸ñ¸³Öµ£º 
  ExcelApp.Cells[1,4].Value   :=   'µÚÒ»ÐеÚËÄÁÐ'; 
  
  7)   ÉèÖÃÖ¸¶¨ÁеĿí¶È£¨µ¥Î»£º×Ö·û¸öÊý£©£¬ÒÔµÚÒ»ÁÐΪÀý£º 
  ExcelApp.ActiveSheet.Columns[1].ColumnsWidth   :=   5; 
  
  8)   ÉèÖÃÖ¸¶¨Ðеĸ߶ȣ¨µ¥Î»£º°õ£©£¨1°õ£½0.035ÀåÃ×£©£¬ÒÔµÚ¶þÐÐΪÀý£º 
  ExcelApp.ActiveSheet.Rows[2].RowHeight   :=   1/0.035;   //   1ÀåÃ× 
  
  9)   ÔÚµÚ8ÐÐ֮ǰ²åÈë·ÖÒ³·û£º 
  ExcelApp.WorkSheets[1].Rows.PageBreak   :=   1; 
  
  10)   ÔÚµÚ8ÁÐ֮ǰɾ³ý·ÖÒ³·û£º 
  ExcelApp.ActiveSheet.Columns[4].PageBreak   := &


Ïà¹ØÎĵµ£º

Delphi±í´ïʽ

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. ......

delphi virtual dynamic

dynamic¾ÍÊÇËüÊǶ¯Ì¬·½·¨£¬Ã»Óо²Ì¬µØÖ·£¬ËùÒÔËÙ¶ÈÂýÒ»µã
virtualÊÇÐé·½·¨£¬Èç¹ûÔÚ»ùÀàÖв»ÉùÃ÷³ÉÐé·½·¨µÄ»°£¬¼Ì³Ðºó£¬¸Ã·½·¨»áÌáʾһ¾¯¸æÐÅÏ¢£¬°Ñ»ùÀàÖз½·¨ÆÁ±ÎµôÁË
---------------------------------------------------------------
¶¯Ì¬£¨Dynamic£©ºÍÐéÄ⣨Virtual£©ºó¶¼¿ÉÒÔʹÓÃOverride¹Ø¼ü×ÖÔÚÅÉÉúÀàÖжԶÔÓ¦ ......

ÌÔ±¦Æ½Ì¨¿ª·¢ delphi ʾÀý

ÌÔ±¦¿ª·Åƽ̨µÄ¿ª·¢Àý×Ó´ó¶à¶¼ÊÇc#£¬php£¬javaµÈ£¬È±ÉÙPascalµÄÀý×Ó¡£
ÏÖÓÃdelphiдÁËÒ»¸öʾÀý£¬
¹Ø¼üµãÊÇÇ©ÃûµÄÉú³É£¬Ç©ÃûÐè°´key×Öĸ˳ÐòÅÅÐò£¬²¢È¥µôµÈÓںźóÊ×βÏàÁ¬¡£
¹Ø¼ü´úÂ룺
 memstr:= TMemoryStream.Create;
 //ÓÃÊÚȨÂë»ñÈ¡ session
  IdHTTP1.Get('http://container.api.tbsandbox.com/c ......

ÔÚDelphiºÍVCÖд´½¨ºÍµ÷Óö¯Ì¬Á´½Ó¿â

´ó¼ÒÔÚÈí¼þ¿ª·¢Ê±¾­³£»áÓöµ½ÕâÑùµÄÇé¿ö£¬ÔÚ²»Í¬µÄ¿ª·¢»·¾³ÖÐΪʵÏÖһЩ¹¦ÄÜÏàͬµÄ¹ý³Ì£¬ÓÉÓÚ¿ª·¢ËùʹÓõÄÉè¼ÆÓïÑÔ²»Í¬£¬Òò¶ø²»µÃ²»±àдÐí¶àÀàËÆµÄ´úÂ룬ÉõÖÁÓÐʱҪÔÚͬһ¸ö¿ª·¢»·¾³²»Í¬ÏîÄ¿ÖÐÖØÐ´´úÂ룬Õâ¾ÍÔì³ÉÁ˺ܴóµÄ×ÊÔ´ÀË·Ñ¡£¶¯Ì¬Á´½Ó¿âÄܽϺõĽâ¾öÕâ¸öÎÊÌâ£¬ÖØ¸´ÀûÓôúÂ뽫´ó´óÌá¸ßÁË¿ª·¢Ð§ÂÊ¡£Ò»°ã£¬Óû§ÔÚÓ¦ÓóÌÐò ......

Êý×Öת»»´óдÈËÃñ±ÒµÄdelphiʵÏÖ

ÎÄÕÂÀ´Ô´£ºIT¹¤³ÌÐÅÏ¢Íø  http://www.systhinker.com/html/09/n-12309.html
֮ǰÓÃAccess×÷Ò»¸öÓ¦Ó㬵«ÕÒ²»µ½»õ±Òת»»³É´óдÈËÃñ±ÒµÄ¹¦ÄÜ£¨µ±È»¿ÉÒÔͨ¹ýexcel ת»»£¬µ«²»ÔÚÒ»¸öÓ¦ÓÃÉÏ£¬·ÅÆú£©¡£ÒÔΪ±È½Ï¼òµ¥£¬×Ô¼ºÊÔд£¬Ë­ÖªÓÃÁËÁ½¸öÍíÉÏ£¬²Å»ù±¾ÊµÏÖ£¬µ«Ã»ÓÐСÊýµã£¨Ôª£©ÒÔÏ»õ±ÒµÄת»»¡£Ò²Ã»ÓÐÕ×µÄÅжϡ£¶øÇÒ¶Ô×Ö· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ