delphiÖ¸Õë¼òµ¥ÈëÃÅ
delphiÖ¸Õë¼òµ¥ÈëÃÅ:
¿´Ò»¸öÖ¸ÕëÓ÷¨µÄÀý×Ó£º
1 var
2 X, Y: Integer; // X and Y ÕûÊýÀàÐÍ
3 P: ^Integer; // P Ö¸ÏòÕûÊýÀàÐ͵ÄÖ¸Õë
4 begin
5 X :=17; // ¸ø X ¸³Öµ
6 P := @X; // °Ñ xµÄµØÖ·¸³¸øp
7 Y := P^; // È¡³öpËùÖ¸ÏòµÄÊýÖµ¸³¸øy
8 end;
µÚ¶þÐж¨ÒåÁËÁ½¸ö±äÁ¿X,y. µÚÈýÐÐÉùÃ÷ÁËpÊÇÖ¸ÏòÕûÊýÀàÐ͵ÄÖ¸Õë;Òâζ×ÅpÄܹ»Ö¸Ïòx»òÕßyµÄµØÖ·.µÚÎåÐи³¸øxÖµ,µÚÁùÐаÑxµÄµØÖ·¸³¸øp.×î
ºóͨ¹ýpÖ¸ÏòµÄ±äÁ¿¸³Öµ¸øy.´Ëʱ,xºÍyÓÐÏàͬµÄÖµ.
²Ù×÷·û@ÓÃÀ´È¡³ö±äÁ¿µÄµØÖ·,Ò²¿ÉÒÔÈ¡³ö¹ý³ÌºÍº¯ÊýµÄµØÖ·.
¶ø·ûºÅ^ÓÐÁ½¸öÄ¿±ê,
µ±Ëü³öÏÖÔÚÀàÐͶ¨ÒåµÄÇ°ÃæÊ±Èç ^typename ±íʾָÏòÕâÖÖÀàÐ͵ÄÖ¸Õë;
µ±Ëü³öÏÖÔÚÖ¸Õë±äÁ¿ºó±ßʱ Èç point^ ·µ»ØÖ¸ÕëÖ¸ÏòµÄ±äÁ¿µÄÖµ;
Àí½âÖ¸Õë±È½ÏÈÝÒ×Àí½âÃæÏò¶ÔÏóµÄpascalÓïÑÔ,ÒòΪָÕë¾³£ÔÚÄ»ºó²Ù×÷.ÈκÎÒªÇó¶¯Ì¬·ÖÅä´óµÄÄÚ´æ¿Õ¼äµÄÀàÐÍ¿ÉÒÔÓÃÖ¸ÕëÀàÐÍ.ÀýÈç
,long-string±äÁ¿,ʵ¼ÊÔÚʹÓÃÖ¸Õë½øÐвÙ×÷.ÁíÍâһЩ¸ß¼¶µÄ±à³Ì¼¼ÊõÐèҪʹÓÃÖ¸ÕëÀàÐÍ.
ÓÐʱָÕëÊÇÊÊÓ¦object pascalÑϸñµÄÀàÐÍÏÞÖÆµÄΨһ·½·¨.ͬ¹ýÒ»¸öͨÓõÄÖ¸ÕëÀàÐÍ,ͨ¹ýÀàÐÍת»»³É²»Í¬µÄÖ¸ÕëÀàÐÍ,ÈçÏÂÃæµÄÀý×Ó:
type
 
Ïà¹ØÎĵµ£º
Delphi7 µ÷Óà C#µÄWebservice ²»ÄÜ´«Èë²ÎÊý
½â¾ö°ì·¨£º
ÔÚDelphiµ¼ÈëWSDLºóÉú³ÉµÄµ¥ÔªµÄ×îºóÒ»ÐУ¬¼´initializationÀïµÄ³õʼ»¯¶Ë¿ÚµÄ´úÂëÖмÓÈë´úÂë
InvRegistry.RegisterInvokeOptions(TypeInfo(½Ó¿ÚÃû), ioDocument);
¼´¿É
......
µÚÒ»ÖÖ·½·¨,ʹÓÃSelectDirectory º¯Êý ,ÔÚShellApiÖÐ
procedure TForm2.BtSelectPathClick(Sender: TObject);
var
strCaption,strDirectory:String;
wstrRoot:WideString;
begin
strCaption:='ÕâÊÇä¯ÀÀÎļþ¼ÐµÄ˵Ã÷ÎÄ×Ö£¬¿ÉÒÔ¸ù¾ÝÐèÒª½ ......
Ò»¡¢Dll½¨Á¢
£¨Ò»£©DLLÏîÄ¿µÄ½¨Á¢
library mydll;
uses
base in 'base.pas';
exports
Triple name 'Tr';
{$R *.res}
begin
end.
£¨¶þ£©º¯Êýµ¥Ôª
unit base;
interface
uses windows;
function Triple(N:integer):integer;stdcall;
  ......
delphiºÜÔç¾ÍÒѾ¿ÉÒÔ½øÐÐÈý²ãµÄ¿ª·¢ÁË. µ«Ò»Ö±µ½ÏÖÔÚ, ÍøÉÏÕâ·½ÃæµÄ¶«Î÷Ì«ÉÙ ÁË. Ҫô̫ÀÏ, ÉõÖÁ²»ÍêÈ«ÕýÈ·. ÀýÈç:
ÈçºÎ½øÐжà±í¸üÐÂ(Ìá½»), ºÜ¶à»Ø¸´»¹ÊÇ˵ÓÃADOConnectionµÄÊÂÎñ, (Èç¹ûҪͬʱ¸üÐÂSQL SERVERºÍOracleÊý¾Ý¿âµÄ±íÔõô°ì).
µ±È»Ò²ÓÐ˵ÓÃSetComplete, SetAbortµÄ. µ«ËµµÄºÜ¼òµ¥, ÆäÖеÄ×¢ÒâÊÂÏîÓÖÊÇÊ ......
Ë÷ÒýÊÇitemindex
itemÊÇÀïÃæµÄÄÚÈÝ
Ë÷ÒýµÄ»°£¬ÊÇ´Ó0¿ªÊ¼
item itemindex
A 1
B 2
C 3
listbox1.items.count¾ÍÊÇÕâ¸öÁбí¿òÀï×ܹ²ÓжàÉÙÏî. ......