ÈçºÎʹÐÂÔöµÄsheetÔÚÇ°Ò»¸ösheetºó£¬excelĬÈÏÓÐ3¸ösheet,ÈçÎÒÐÂÔöÒ»¸ösheet4,ÔõÑùʹËüÊDzåÔÚsheet3ºóÄØ£¬¶ø²»ÊDzåÔÚsheet1Ç°£¿
ÓÒ¼ü²»ÐÐÂð£¿
Worksheets.Add ·½·¨
¸Ã·½·¨ÓÃÓÚн¨¹¤×÷±í¡£
Function Add([Before As VARIANT], [After As VARIANT], [Count As VARIANT], [ ......
´ó¼ÒºÃ!
ÎÒÓÃmscomm¿Ø¼þ×öÉÏλÓë³ÆÖØÒDZíͨѶ£¬ÊÇÓÃdelphi Öм̳еÄÏß³ÌÀà×öµÄ,ÔËÐм¸¸öСʱûÎÊÌ⣬µ«ÊÇʱ¼ä³¤ÁË¡¡³ÓÖµ¾ÍË¢²»¹ýÀ´£®ÎÒÖÕÖ¹Ï̺߳ó¡¡ÖØд´½¨¡¡ÓÐʱºòÐÂÖµÄÜË¢¹ýÀ´¡¡ÓÐʱºòÐÂֵˢ²»¹ýÀ´£®µ«ÊÇÖØдò¿ªÓ¦ÓóÌÐò£¨µçÄÔ²»ÓÃÖØÆô£©£¬³ÓÖµ¾ÍÒ»¶¨ÄÜˢйýÀ´£®
¡¡¡¡Ï£Íû´ó¼ÒÄÜ°ï棬ÎÒÔõôҲ·ÖÎö²»³öÀ´Ô ......
¼ÙÉèÓÃdelphi×ö¸ödll
function f(x:double):double;stdcall;
begin
result:=1/x;
end;
vb µ÷Óøú¯Êý
¼ÙÉèx=0ʱ£¬º¯Êýf¿ÉÒÔÖ±½Ó·´À¡´íÎóµ½vbÖÐ
ÈçºÎʵÏÖ
´«Ö¸Õë²¢out
Èç function f(x:double; out ErrCode: integer):double;stdcall;
vbÔõô²¶×½Õâ¸öoutÄØ
f(a,b) Ö´Ðкó; b µÄÖµ¾ÍÊÇ´«»ØÀ´µÄ;
......
RXmlDoc := System.xml.XmlDocument.Create;
sxml := copy(sRsult, ir + 8, length(sRsult));
sxml := System.Text.Encoding.GetEncoding('gb2312').GetString(Convert.fromBase64String(sxml));
RXmlDoc.LoadXml(sxml);
RXmlDoc. ......
ÎÒÔÚÏîÄ¿ÀïÊÇÔÚÕÒ²»µ½ÐÄÌø°üдʲôµØ·½ÁËÄÇλ´ó¸çÄÜ°ïÎÒÔ¶³ÌÐÖúÕÒһϰ¡Ð»Ð»°¡
ÎÒqq398222333
ÀÏ°å²»ÈÃ
ËÑË÷Ò»ÏÂɶ
Õâ¸öÏîÄ¿µÄ´úÂë²»ÊÇÄãдµÄ£¿
ËÑË÷²»µ½Âð
¾ÍÊÇд¹ýÁË£¬²»ÖªµÀ¶ªÔÚÄÄÁË£¬Â¥Ö÷´úÂëдµÄºÃ³¤°¡
¸÷λ´ó¸ç»ù±¾É϶¼µ½ÆëÀ²¡£¹þ¹þ
ÄÜËÑË÷µ½ÎҾͲ»³îÁË
¶¨Ê±·¢¸ö°ü ¾ÍÊÇÐÄÌø°üÁË
ÄãÐÄÌø ......
ÏÖÔÚÐèÒª´òÓ¡delphi´°ÌåÉÏËùÓеĶ«Î÷£¬ÎÒÏÈץͼÔÙ´òÓ¡£¬¿ÉÊÇ´òÓ¡²»³öÀ´£¬Çë´óÏÀÃÇ°ïæ¡£
Ö»ÊÇÎҵĴúÂ룺
procedure TForm1.FormCreate(Sender: TObject);
var
cvsFullScreenCanvas:TCanvas;
dc:HDC;
bmpFullScreen:TBitmap;
rectScreen:Trect;
begin
bmpFullScreen:=TBitm ......
×ܼǼÊý:1117; ×ÜÒ³Êý:187; ÿҳ6 Ìõ;
Ê×Ò³ ÉÏÒ»Ò³ [1] 2
[3] [4] [5] [6] [7] [8] [9] [10] ÏÂÒ»Ò³ βҳ