Delphi 5 ¿ØÖÆ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[8].PageBreak := 1;
10) ÔÚµÚ8ÁÐ֮ǰɾ³ý·ÖÒ³·û£º
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
11) Ö¸¶¨±ß¿òÏß¿í¶È£º
ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
Ïà¹ØÎĵµ£º
ÎÒһֱʹÓÃDelphi6¿ª·¢Èí¼þ£¬¿´µ½CSDNÉϵÄOPhoneÊÖ»ú¿ª·¢£¬ÓÖÈ¥GoogleÒ»·¬£¬Ìý˵±àдÊÖ»úÈí¼þ
ÄÜ׬Ǯ£¬ËùÒÔҪѧϰJava ME£¬¶ÁÁ˼¸Ì첩ÎÄ£¬´ó¶àÊý¸ÅÄî¸ãÇå³þÁË¡£
ҪѧJavaME¾ÍµÃÏÈѧJavaSE£¬ËùÒÔ×°Á˺ܶàÈí¼þ(²»×°ÄÇô¶à£¬OPhone¾Í×°²»ÉÏÈ¥)¡£
ÍÆ¼öһƪÓÅÐãµÄÎÄÕ£º
ÔÚ NetBeans IDE ÖÐÉè¼Æ Swing GUI
¶ÁÍêÕâÆªÎÄÕ£¬³õ ......
ÈçºÎÔÚDelphiÀïÃæÀûÓÃWordµÄVBA´úÂë½øÐÐһЩ×ܽᡣ
1¡¢ Éú³ÉVBA´úÂë¡£Word±¾Éí¾ßÓкÜÇ¿µÄ¿ÉÀ©Õ¹ÐÔ£¬ÓÈÆäÊÇÖ§³ÖÓû§×Ô¶¨Ò幦ÄÜ£¬ÆäʵÏÖ
µÄÖ÷Òª·½Ê½¾ÍÊÇͨ¹ýVBA´úÂëÀ´ÊµÏֵġ£ÔÚ“¹¤¾ß->ºê->Visual Basic±à¼Æ÷”ÀïÃæ¾Í¿ÉÒÔ¿´
µ½¾ßÌåµÄºê´úÂ룬¿ÉÒÔÖ±½Ó½øÐб༡£¶øÇÒ»¹¿ÉÒÔʹÓÃÂ¼ÖÆºêµÄ¹¦ÄÜ×Ô¶¯ ......
Delphi 7ʼþµÄ¶à´¦Àí»úÖÆ
Allen Tao
2007-08-19
¡¡¡¡Ê×ÏȽâÊÍÒ»ÏÂÕâ¸öÌâÄ¿¡£ÔÚÎÒʹÓÃDelphi 7µÄ¹ý³ÌÖз¢ÏÖ£¬Ò»¸ö¶ÔÏóµÄʼþÖ»Äܱ»Ò»¸ö¹ý³Ì´¦Àí¡£Èç¹û¶à´Î¸øÕâ¸ö¶ÔÏóµÄʼþ¸³¸ø´¦ÀíʼþµÄ¹ý³Ì£¬×îºóÕæÕý´¦ÀíʼþµÄ½«ÊÇ×îºó¸³ÖµµÄÄǸö¹ý³Ì¡£ÀýÈ磬ÓÐÀàTMyClassÖж¨ÒåÁËÒ»¸öʼþOnSomeFired£¬ÔÚÀàTClientClassÖи ......
procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
tmpStr:String;
sValue:String;
iStart,iPos:Integer;
begin
try
desLst.Clear; //ºÜÖØÒª£¬·ñÔò£¬»áÒ» ......
VCLÖеÄShapeÊǸöºÜ²»´íµÄ¿Ø¼þ£¬¿ÉÒÔÑ¡Ôñ¼¸ÖÖͼÐΣ¬ÒÔÂú×ãÎÒÃǵÄÐèÇ󣬵«ÓÐʱºò¾ÍÊǾõµÃËüµÄ¿ÉѡͼÐÎÉÙÁËÒ»µã£¬±ÈÈçÎÒÃÇÏëÒªÒ»¸öÈý½ÇÐΣ¬ËüȴûÓС£ÓÚÊǾÍÏëµ½À´À©Õ¹Ò»ÏÂÕâ¸ö¿Ø¼þ£¬ÃûΪShapeEx¡£ÆäʵÀ©Õ¹µÄ¹¦Äܲ»¶à£¬Ö»ÊÇÔö¼ÓÁËһЩͼÐΡ£¶øÀàÒ²²¢²»ÊǼ̳Ð×ÔTShape£¬¶øÊǼ̳Ð×ÔTGraphicControl£¬ÕâÑù¿ÉÒÔÈÃÎÒÃdz¹µ×¿´¿´Í¼ÐÎ ......