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;
Ïà¹ØÎĵµ£º
Delphi ÖÐWebBrowser¿Ø¼þÏê½âʵÀý ת
2008-05-07 12:07
ºÜ¾Ã¶¼Ã»ÓÐÔ´´ÁË£¬Ç°¼¸Ìì°ïÅóÓÑ×öÁ˸öÍøÖ··¢²¼³ÌÐò£¬Ö÷ÒªÓ¦Óõ½ÁËWebBrowser¿Ø¼þ¡£
½ñÌìÖ÷Òª¸ø´ó¼ÒÑÝʾһϹý³Ì£¬Èôó¼ÒѧϰһÏÂDelphi¹¤¾ß¡£
WebBrowser¹¦ÄÜ£º
1¡£×Ô¶¯¼ÓÔØÍøÒ³
2¡£È¥³ýWebBrowser¹ö¶¯Ìõ
3¡£WebB ......
×î½üÒ»Õó×Ó£¬×ÜÊDZ»Ò»¸öĪÃûÆäÃîµÄbugÀ§ÈÅ¡£×Ô¼ºÐ´µÄocx£¨.net2005£©ÔÚdelphi7Öе÷Óã¬Ã÷Ã÷ûÓÐÊÍ·ÅÖ÷¶¯ÊͷŹýÄڴ棬ȴ±»Á¬ÐøÊÍ·ÅÁËÁ½´Î¡£½á¹û£¬³ÌÐòÍ˳öʱ¾ÍdownµôÁË¡£µ±È»£¬ÕâÊÇÔÚdebugģʽϲŻá³öÏÖ£¬µ«ÊÇexeÅܵÄʱºò»áĪÃûÆæÃîµÄdownµô£¬¶øÇÒ³ö´íÍùÍùÖ¸Ïòocx£¬ÎÒÏëÒ»¶¨ºÍocxµÄµ÷ÓÃÓйء£
ÉÏÍøÕÒÁËpurify£¬boundscheck ......
ÕâÊÇÒ»¸öʵÀý£º
procedure TMainForm.Button1Click(Sender: TObject);
var
arr:array of array of string;
begin
setlength(arr,2,3);
arr[1,2]:='this is a test';
setlength(arr,0,0);
setlength(arr,4,5);
showmessage(arr[1,2]);
end;
ÉùÃ÷Ò»¸ö¶þάÊý×éµÄ·½·¨ÊÇÓ ......