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

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;  
 


Ïà¹ØÎĵµ£º

vb µ÷ÓÃdelphiдµÄdll

delphiÖеÄDLLÖеÄÉùÃ÷Ô­ÂëÈçÏ£º
ÕâÀïÉùÃ÷ÁËÊä³öÐÔ²ÎÊý·Ö±ðΪÊý×ÖÓë×Ö·ûÀàÐÍ
library dll1;
uses
  SysUtils,
  Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
  jj := x * y;
  abc := PChar(StrPas(abc) + 'ÕâÊÇ´«³öµÄ' ......

DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ

DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àдºÍµ÷ÓõİïÖúÐÅÏ¢£¬Äã¿ÉÒԺܿìÍê³ÉÒ»°ãµÄ DLL±àдºÍµ÷ÓÃµÄ Ó¦ÓóÌÐò¡£±¾ÎĽéÉܵÄÖ÷ÌâÊÇÈçºÎ±àдºÍµ÷ÓÃÄܹ»´«µÝ¸÷ÖÖ²ÎÊý£¨°üÀ¨¶ÔÏóʵÀý£©µÄ DLL¡£ÀýÈ磬 Ö÷½Ð³ÌÐò´«µÝ¸ø DLLÒ»¸öADOConnection ¶ÔÏóʾÀý×÷Ϊ²ÎÊý£¬ DLLÖеĺ¯ÊýºÍ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àÐ ......

delphi_ÊÖ¹¤´´½¨dataset

procedure TForm1.Button3Click(Sender: TObject);
begin
    //ÏÔʾ´´½¨µÄÊý¾Ý¼¯: dbgrid->datasource->clientdataset
    //Èç¹ûÊÖ¹¤¿ØÖÆdbgridÏÔʾ¿í¶È,dbgridÓÒ¼ü´´½¨Á½¸ö×Ö¶Îaa,bb,·Ö±ðÉèÖÿí¶È¼´¿É
    cds1.FieldDefs.Add('aa',ftString,40);
   ......

¹ØÓÚDelphiÖжþάÊý×éµÄÉùÃ÷ºÍ´óСµ÷Õû

ÕâÊÇÒ»¸öʵÀý£º
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;
ÉùÃ÷Ò»¸ö¶þάÊý×éµÄ·½·¨ÊÇÓ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ