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

Delphi¿ØÖÆExcel2000ÐĵÃ

(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ 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[8].PageBreak := 1;
10) ÔÚµÚ8ÁÐ֮ǰɾ³ý·ÖÒ³·û£º
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
11) Ö¸¶¨±ß¿òÏß¿í¶È£º
ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-×ó 2-ÓÒ 3-¶¥ 4-µ× 5-б( \ ) 6-б( / )
12) Çå³ýµÚÒ»ÐеÚËÄÁе¥Ôª¸ñ¹«Ê½£º
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;
13) ÉèÖõÚÒ»ÐÐ×ÖÌåÊôÐÔ£º
ExcelApp.ActiveSheet.Rows[1].Font.Name := 'Á¥Êé';
ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;
14) ½øÐÐÒ³ÃæÉèÖãº
a.ҳü£º
    ExcelApp.ActiveSheet.PageSetup.CenterHeader := '±¨±íÑÝʾ';
b.Ò³½Å£º
    ExcelApp.ActiveSheet.PageSetup.CenterFooter := 'µÚ&PÒ³';
c.ҳüµ½¶¥¶Ë±ß¾à2cm£º
    ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.Ò³½Åµ½µ×¶Ë±ß¾à3cm£º
    ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.¶¥±ß¾à2cm£º
    ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.µ×±ß¾à2cm£º
    ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.


Ïà¹ØÎĵµ£º

ÔÚDELPHIÖÐÏÔʾGIF¶¯»­

ÏëûÏë¹ýÔÚDELPHIÖÐÏÔʾGIF¶¯»­£¿DelphiµÄÓû§ÊǷdz£ÐÒÔ˵ģ¬ÒòΪÓÐÃâ·Ñ¿Ø¼þ¿ÉÒÔʹÓá£×îÖøÃûµÄ¿Ø¼þÊÇAnders Melander±àдµÄTGifImage£¬²¢ÌṩÍêÕûµÄÔ´³ÌÐò¡£ËüÔ­À´µÄÖ÷Ò³ÊÇwww.melander.dk/delphi/gifimage/£¬²»¹ýÓкܳ¤Ê±¼äûÓиüÐÂÁË¡£Èç¹ûÒªÔÚа汾µÄDelphiÖÐʹÓ㬿ÉÒÔ´Óhttp://finn.mobilixnet.dk/delphi/ÏÂÔØFinn T ......

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

DelphiÖн¨ÒéʹÓõÄÓï¾ä
Â¥Ö÷zswang£¨°éË®ÇåÇå)(ר¼ÒÃÅÕïÇå½à¹¤£©2002-05-15 13:37:54 ÔÚ Delphi / VCL×é¼þ¿ª·¢¼°Ó¦Óà ÌáÎÊ
No.1   ÅжÏÂß¼­ÀàÐÍ  
  var   B:   Boolean;  
  begin  
      B   :=   Boolean(2);   //ÕâÑùÖ»ÊÇΪÁ˵÷ÊÔ//B ......

Delphi Äܲ»ÄÜ´ÓRing 3½øÈëRing 0

Delphi Äܲ»ÄÜ´ÓRing 3½øÈëRing 0?
Â¥Ö÷skyworld_xm£¨skyworld£©2004-11-19 09:58:55 ÔÚ Delphi / Windows SDK/API ÌáÎÊ
Delphi   Äܲ»ÄÜ´ÓRing   3½øÈëRing   0?  
  ÓÐÀý×ÓÂð?  
  ¶àл. ÎÊÌâµãÊý£º100¡¢»Ø¸´´ÎÊý£º20Top
1 Â¥jinjazz£¨½üÉí¼ô£©»Ø¸´ÓÚ 2004-11-19 10:13:27 µÃ ......

Delphi ÀàÓë¶ÔÏóÄÚ´æ½á¹¹Ç³Îö(ÉÏ)


²Î¿¼×ÊÁÏ
ÀîÕ½.¡¶Îò͸delphi¡·£¬µÚ1Õ“DELPHIµÄÔ­×ÓÊÀ½ç”
 “̽Ë÷DelphiÀàÓë¶ÔÏóµÄÄÚ´æ½á¹¹”
»ù±¾ÖªÊ¶
¶¯Ì¬ÄÚ´æÓ뾲̬ÄÚ´æ
µ±³ÌÐòÔËÐÐʱ£¬ÏµÍ³Ê×ÏȽ«ËùÓÐÊý¾Ý×°ÔØÈëÄڴ棬Íê³É³õʼ»¯£¬È»ºó´ÓÈë¿ÚµØÖ·¿ªÊ¼Ö´ÐдúÂë¡£
³ÌÐò×°Ôغ󼴴æÔÚÓÚÄÚ´æ¿Õ¼äÖеÄÊý¾ÝÎÒÃdzÆ֮Ϊ¾²Ì¬Äڴ棬ÔËÐйý³ÌÖÐ ......

DelphiÖÐÁ÷µÄʹÓ㨱ȽÏÈ«Ã棩

Delphi ÖÐÁ÷µÄʹÓÃ(1) Óà TMemoryStream(ÄÚ´æÁ÷) ÈëÃÅ
Ç°ÑÔ:
Ëùν"Á÷", ¾ÍÊÇÒ»¶ÎÊý¾Ý»òÊÇÒ»¿éÄÚ´æ;
ÔÚ½øÐÐÁ÷²Ù×÷ʱ, ÎÒÃDz»±Ø¹ØÐÄÁ÷ÖеÄÊý¾Ýµ½µ×ÊÇʲô; Ö»ÐèÒªÖªµÀÁ÷µÄ´óСºÍµ±Ç°µÄÖ¸ÕëλÖÃ. ËùÒÔÁ÷Ö»ÓÐÁ½¸öÊôÐÔ:
Size¡¢Position.
¶ÔÁ÷µÄ²Ù×÷, ²»¹ý¾ÍÊǶÁÈ¡ºÍдÈë. ËùÒÔÁ÷×îÖ÷ÒªµÄ·½·¨¾ÍÊÇ Read ºÍ Write.
Ôںܶ࿠......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ