(ÕÐÆ¸£©Delphi³ÌÐòÔ±ËÄÃû
ÕÐÆ¸ÈËÊý£º 4ÈË
ѧÀúÒªÇó£º ²»ÏÞ
¹¤×÷ÄêÏÞ£º ²»ÏÞ
н×Ê·¶Î§£º ÃæÒé
¹¤×÷µØµã£º ±±¾©Í¨ÖݾſÃÊ÷
Delphi³ÌÐòÔ±ËÄÃûְλҪÇó
񻂗:
1. ÊìÁ·Ê¹ÓÃDELPHI(C,C++, C#µÈ)½øÐпª·¢£»
2. ¾ßÓÐÁ¼ºÃµÄ³ÌÐò±àдϰ¹ß£»
3. ÔúʵµÄ»ù±¾¹¦£¬½á¹¹ÇåÎú¡¢ºÏÀí£»
4. Á¼ºÃµÄÖ´ÐÐÄÜÁ¦£¬½ÏºÃµÄÍê³ÉÔ¤¶¨ÈÎÎñ£»
5. ÉϽøÐÄÇ¿£¬ÄܳԿàÄÍÀÍ£¬ÓÐÍŶӺÏ×÷¾«Éñ£»
6. ÓÐÁ¼ºÃµÄ¸öÈËÖ°ÒµÉúÑĹ滮£»
7. ÊìϤWindowsÓ¦ÓóÌÐò¿ª·¢,ÓÐϵͳ°²È«¿ª·¢¾Ñé»òÓÐÇý¶¯¿ª·¢»ù´¡Õ߸ü¼Ñ¡£
Çë·¢ËÍÏêϸ¼òÀúÖÁ£º
Chen@Weskysoft.com
±±¾©Î¬Ë¹ÌìÓîÈí¼þ¿ª·¢·þÎñÖÐÐļò½é
¹«Ë¾¹æÄ££º1-49ÈË¡¡¡¡¹«Ë¾ÐÔÖÊ£ºË½Óª¡¡¡¡ËùÊôÐÐÒµ£º¼ÆËã»úÈí¼þ
±±¾©Î¬Ë¹ÌìÓîÈí¼þ¿ª·¢·þÎñÖÐÐÄ£¨Weskysoft Inc.£©ÊÇÒ»¼ÒרÃÅ´ÓÊÂÅ·ÃÀÊг¡µÄÈí¼þ¿ª·¢¼°ÏúÊÛµÄÈí¼þ/µç×ÓÉÌÎñ¹«Ë¾£¬²úÆ·Ö÷ÒªÃæ¶Ôº£ÍâÊг¡¡£¹«Ë¾¿ª·¢µÄ²úÆ·Óжà¿î´¦ÓÚÐÐÄÚÁìÏȵØÎ»£¬»ñµÃº£Íâ¿Í»§µÄ¹ã·ºÈϿɡ£ÎÒÃÇÒ»Ö±±ü³Ð¼¼Êõ´´Ð¼°Î¨²ÅÊÇÓõľӪÀíÄ¼«Æä×¢ÖØÈ˲ŵÄÖØÒªÐÔ¡£ÎÒÃÇÓµÓÐÈËÐÔ»¯µÄ¹«Ë¾Öƶȣ¬Óä¿ìµÄ¹¤×÷·ÕΧÒÔ¼°½ÏΪÍêÉÆµÄн×ʸ£Àû´ýÓö¡£Ô±¹¤ÍŶÓ×é³ÉÊ®·ÖÄêÇᣬÏ൱²¿·Ö¹Ç¸ÉΪ80Äê´úºóÓÅÐãµÄ±¾¿Æ¡¢Ë¶Ê¿±ÏÒµÉú£¬¹²Í¬ÎªÊµÏÖÃÎÏë¶ø×ßµ½Ò»Æð¡£Ä¿Ç°¹«Ë¾´¦ÓÚ¸ßËٳɳ¤ÆÚ£¬·¢Õ¹¿Õ¼ä¹ãÀ«£¬»¶ÓÓм¤Çé¡¢ÓÐÄÜÁ¦¡¢ÓÐÃÎÏëµÄÅóÓѼÓÈ룡
Ïà¹ØÎĵµ£º
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) + 'ÕâÊÇ´«³öµÄ' ......
VCLÖеÄShapeÊǸöºÜ²»´íµÄ¿Ø¼þ£¬¿ÉÒÔÑ¡Ôñ¼¸ÖÖͼÐΣ¬ÒÔÂú×ãÎÒÃǵÄÐèÇ󣬵«ÓÐʱºò¾ÍÊǾõµÃËüµÄ¿ÉѡͼÐÎÉÙÁËÒ»µã£¬±ÈÈçÎÒÃÇÏëÒªÒ»¸öÈý½ÇÐΣ¬ËüȴûÓС£ÓÚÊǾÍÏëµ½À´À©Õ¹Ò»ÏÂÕâ¸ö¿Ø¼þ£¬ÃûΪShapeEx¡£ÆäʵÀ©Õ¹µÄ¹¦Äܲ»¶à£¬Ö»ÊÇÔö¼ÓÁËһЩͼÐΡ£¶øÀàÒ²²¢²»ÊǼ̳Ð×ÔTShape£¬¶øÊǼ̳Ð×ÔTGraphicControl£¬ÕâÑù¿ÉÒÔÈÃÎÒÃdz¹µ×¿´¿´Í¼ÐÎ ......
ÕâÊÇÒ»¸öʵÀý£º
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;
ÉùÃ÷Ò»¸ö¶þάÊý×éµÄ·½·¨ÊÇÓ ......
(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ......