ÎÒÏëÓà Delphi ±àд°üº¬º¯ÊýµÄ Dll£¬È»ºóÔÚ Excel VBA µ÷Óá£ÊÔÁ˺ܶà´Î¶¼ÎÞ·¨·µ»ØÕýÈ·µÄ½á¹û¡£
¾ßÌåÈçÏ£º
Delphi7 ÖеIJâÊÔÔ´Â룺
//********************************************************************************************
library XlsExt;
{±È½ÏÁ½ÊýµÄ´óС£¬²¢·µ»Ø½Ï´óÕß}
uses
SysUtils,
Classes;
{$R *.res}
var
SaveExit:Pointer;
procedure LibExit; //ΪÁ˲»Ê¹Í˳öExcelʱ³öÏÖÒì³£
begin
ExitProc:=SaveExit; //»Ö¸´Í˳ö¹ý³ÌÁ´±í
end;
function MyMax(X,Y:SmallInt):SmallInt;stdcall; //¶¨Ò庯Êý
begin
try
if X>Y then MyMax:=X else MyMax:=Y;
except
MyMax:=333; //²âÊÔÒì³£´¦Àí£¬¿ÉÊǺÃÏñûÓп´µ½Õâ¸ö½á¹û¡£
end;
end;
exports //º¯ÊýÊä³ö
MyMax;
begin
SaveExit:=ExitProc; //±£´æÍ˳ö¹ý³ÌÁ´±í
ExitProc:=@LibExit; //ÉèÖÃLibExitΪÍ˳ö¹ý³Ì
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
ллÁË¡£×îºÃÓдúÂë
Insert into Table2(field1,field2,...) select value1,value2,... from Table1
insert into ±íÒ» select * from ±í¶þ
Èç¹û×ֶβ»Ò»Ö£¬ÒªÖ¸¶¨×Ö¶Î
insert into ±íÒ»(A,B) se ......
[size=18px]var s,n:integer;
begin
write('ÊäÈë±ä³¤µÄÌõÊýn');
readln(n);
[color=#FF0000]s:=n*(n-1)*(n-2)div 6; //±¾ÐÐÌæ»»Îªs:=n*(n-1)*(n-2)/ ......
ÎÒ³¢ÊÔÒ»¸ö idhttp ·ÃÎÊÍøÕ¾Á´½ÓµÄ³ÌÐò
ÔÚÉèÖôúÀí¶Ë¿ÚµÄʱºò³ö´í
±àÒëûÓдíÎó
¾ÍÊÇÔÚÔËÐеÄʱºò ³öÏÖÁË
80 is not a valid integer value µÄÎÊÌâ
ÎÒÒѾ°Ñ º¯Êý·ÖÀà³öÀ´µÄ port ת»»Îª integer ÁË ......