Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄÈ¡Õûº¯Êýround¡¢trunc¡¢ceilºÍfloor

1.Round£¨ËÄÉáÁùÈëÎåÁôË«£©
¹¦ÄÜ˵Ã÷£º¶ÔÒ»¸öʵÊý½øÐÐËÄÉáÎåÈë¡£(°´ÕÕÒøÐмÒËã·¨)
Àý£º
var
i, j: Integer;
begin
i := Round(1.5); // iµÈÓÚ2
j := Round(2.5); // jµÈÓÚ2
end;
ÔÚDelphiÖÐʹÓÃRoundº¯ÊýµÃµ½µÄ´ð°¸ÓÐʱÓëÎÒÃÇËùÔ¤ÆÚµÄ»á²»Ì«Ò»Ñù£º²ÉÓõÄÊÇËÄÉáÁùÈëÎåÁôË«¡£¼´µ±Éá»òÈëλ´óÓÚ»òСÓÚÎåÊ ......

Delphiµ÷ÓÃVC++6.0±àдµÄDll

ÓÃVC++6.0±àдÁËÒ»¸ö¼òµ¥µÄdll£¬ÀïÃæ°üº¬Ò»¸ö¼õ·¨º¯Êýsubtract(int a,int b)£¬DllÃüÃûΪff.Dll
´úÂëÈçÏ£º
1.ff.cpp:
// ff.cpp : Defines the entry point for the DLL application.
//
#include "StdAfx.h"
#include "ff.h"
BOOL APIENTRY DllMain( HANDLE hModule,
        ......

DelphiµÄSocket±à³ÌÒª·Ö¼¸²½£¿

DelphiµÄSocket±à³ÌÒª·Ö¼¸²½£¿
2008-12-20 02:03:24
¡¡±êÇ©£ºDelphi Socket ±à³Ì¡¡¡¡¡¡[ÍÆË͵½¼¼ÊõȦ]
ClientSocket ºÍServerSocket
¼¸¸öÖØÒªµÄÊôÐÔ:   
1.clientºÍserver¶¼ÓÐportÊôÐÔ£¬ÐèÒªÒ»Ö²ÅÄÜ»¥ÏàͨÐÅ   
2.clientÓÐAddressÊôÐÔ,ʹÓÃʱÌîд¶Ô·½(server)µÄIPµØÖ·  & ......

Delphi ÖÐµÄ Var buffer ¿ªÀàÐͲÎÊý

ÒÔÏÂÊÇÔÚÍøÉÏÊÕ¼¯µÄһЩ¶ÔÎÞÀàÐͲÎÊýµÄ˵Ã÷.¸öÈËÀí½âÎÞÀàÐͱäÁ¿¾ÍÊÇÒ»¸öÖ¸Õë.
ÏóDelphiÖÐfunction   Read(var   Buffer;   Count:   Longint):   Longint;   override;ÏóBufferÕâÑùûÓÐÀàÐ͵IJÎÊý¾¿¾¹Ó¦¸ÃÔõô¸ø²ÎÊý£¿£¿£¿£¿  
  Õâ˵Ã÷BufferÊÇͨ¹ýµØÖ··½Ê½´«µÝµÄ£¬Ò»°ã˵À´Ö» ......

delphiÈÕÆÚº¯Êý


  
Day ¿ªÍ·µÄº¯Êý
¡ñ
Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
ÃèÊö
ʹÓà DateOf º¯ÊýÓÃÀ´°ÑÒ»¸ö TDateTime ÀàÐ͵ıäÁ¿×ª±ä³ÉÒ»¸ö
Ö»´øÓÐÈÕÆÚµÄ TDateTime ÀàÐͱäÁ¿¡£
ÀýÈ磺
showmessage(DateTimetostr(dateof(now())));
ÄãµÃµ½µÄÊÇ 2003/03/19
¶ø showmessage(Dat ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ