Delphi Öн«¶ÔÏó×÷Ϊ²ÎÊý´«µÝµÄʹÓÃ
Delphi Öн«¶ÔÏó×÷Ϊ²ÎÊý´«µÝµÄʹÓà ¾ÙÀý·ÖÎö
2009-07-24 13:40
ÏÂÃæµÄµ¥»÷ʼþ£¬½«Òªµ÷ÓÃÒ»¸öÒÔ¶ÔÏóΪ²ÎÊýµÄ·½·¨£¬²¢½«½á¹ûÏÔʾ³öÀ´¡£
procedure TForm1.btn1Click(Sender: TObject);
var
lStrings: TStrings;
begin
lStrings:= TStringList.Create;
try
lStrings.Add('chen');
GetOperatorAllDeptIDs(lStrings);
ShowMessage(lStrings.Text);
finally
lStrings.Free;
end;
µ÷Ó÷½·¨Ò»£º
function GetOperatorAllDeptIDs( AStrings: TStrings):String;
begin
//×¢ÊÍ AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;
·µ»Ø½á¹ûΪ£ºchen zhi
·ÖÎö£º´Ëʱ´«µÝµÄAStrings ΪlStrings¶ÔÏóµÄ¶ÔÏóÒýÓø±±¾£¬¼´Ò²Ö¸Ïò¶ÔÏólStrings£¬ËùÒÔµ±Ö´ÐÐAStrings. Add('zhi');ʱ²Ù×÷ΪlStrings¶ÔÏóÌí¼Ó‘zhi’¡£
µ÷Ó÷½·¨¶þ£º
function GetOperatorAllDeptIDs( var AStrings: TStrings):String;
begin
//×¢ÊÍ AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;
·µ»Ø½á¹ûΪ£ºchen zhi
·ÖÎö£º´Ëʱ´«µÝµÄAStrings ΪlStrings¶ÔÏóµÄ¶ÔÏóÒýÓ㬵±Ö´ÐÐAStrings. Add('zhi');ʱ²Ù×÷µÄ¶ÔÏóΪlStrings¶ÔÏó¡£
µ÷Ó÷½·¨Èý£º
function GetOperatorAllDeptIDs( AStrings: TStrings):String;
begin
AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;
·µ»Ø½á¹ûΪ£ºchen
·ÖÎö£º´Ëʱ´«µÝµÄAStrings ΪlStrings¶ÔÏóÒýÓõĸ±±¾£¬µ±·½·¨ÖÐÖ´ÐÐAStrings:= TStringList.Create;ÓÖ½«¶ÔÏóÒýÓø±±¾ µÄÒýÓÃÖ¸ÏòÁË´Ëʱн¨µÄÒ»¸ö¶ÔÏó£¬ËùÒÔ´Ëʱ¶ÔAStringsµÄÈκβÙ×÷ÒѾ²»»áÓ°ÏìlStrings¶ÔÏó¡£
µ÷Ó÷½·¨ËÄ£º
function GetOperatorAllDeptIDs( var AStrings: TStrings):String;
begin
AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;
·µ»Ø½á¹ûΪ£ºzhi
·ÖÎö£º´Ëʱ´«µÝµÄAStrings ΪlStrings¶ÔÏóµÄ¶ÔÏóÒýÓ㬵±·½·¨ÖÐÖ´ÐÐAStrings:= TStringList.Create;ʱ£¬ lStringsÕâ¸ö¶ÔÏóÒýÓÃÖ¸ÏòÁËн¨µÄAStrings¶ÔÏó¡£ËùÒÔ£¬lStringµÄֵΪ’Zhi’
Ïà¹ØÎĵµ£º
Ò»¡¢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ÃæÏò¶ÔÏó±à³ÌµÄ20Ìõ¹æÔò(×ªÔØ)
Â¥Ö÷ZyxIp£¨¾øÍûÖÐ...£©2003-09-02 14:28:07 ÔÚ Delphi / VCL×é¼þ¿ª·¢¼°Ó¦Óà ÌáÎÊ
×÷Õß¼ò½é
Marco CantuÊÇÒ»¸öÖªÃûµÄDelphiר¼Ò£¬ËûÔø³ö°æ¹ý¡¶¾«Í¨Delphi¡·ÏµÁдÔÊ飬¡¶Delphi¿ª·¢ÊֲᡷÒÔ¼°µç×ÓÊé¡¶¾«Í¨Pascal¡·(¸Ãµç×ÓÊé¿ÉÔÚÍøÉÏÃâ·Ñ»ñµÃ)¡ ......
±¾ÊéÒÔʵÀýΪÖ÷Ïߣ¬¸¨ÒÔ±ØÒªµÄ¼¼Êõ±³¾°ÒªµãÀ´½²½âDelphi 6£®0±à³ÌµÄ¾«Ë裻±¾ÊéʵÀýÆ«ÖØÓÚ¶àýÌåºÍÍøÂç³ÌÐò¿ª·¢£¬ÆäÖÐÉæ¼°µ½OpenGL¡¢Indy×é¼þ¡¢XML¡¢Web BrokerºÍWebSnapµÈ¼¼Êõ¡£±¾Ê黹½²ÊöÁËDelphiÖеÄSQL±à³Ì£¬ÔÚÁ½¸ö¶ÌС¾«Á·µÄ³ÌÐòÖгä·ÖÔËÓÃÁËDelphiÊý¾Ý¿ª·¢¼¼Êõ£¬°üÀ¨BDE×é¼þµÄADO×é¼þµÄʹÓá£Í¨¹ý±¾Ê飬ÈöÁÕßÔÚ±à³Ì¹ ......
Delphi ÖÐÁ÷µÄʹÓÃ(1) Óà TMemoryStream(ÄÚ´æÁ÷) ÈëÃÅ
ǰÑÔ:
Ëùν"Á÷", ¾ÍÊÇÒ»¶ÎÊý¾Ý»òÊÇÒ»¿éÄÚ´æ;
ÔÚ½øÐÐÁ÷²Ù×÷ʱ, ÎÒÃDz»±Ø¹ØÐÄÁ÷ÖеÄÊý¾Ýµ½µ×ÊÇʲô; Ö»ÐèÒªÖªµÀÁ÷µÄ´óСºÍµ±Ç°µÄÖ¸ÕëλÖÃ. ËùÒÔÁ÷Ö»ÓÐÁ½¸öÊôÐÔ:
Size¡¢Position.
¶ÔÁ÷µÄ²Ù×÷, ²»¹ý¾ÍÊǶÁÈ¡ºÍдÈë. ËùÒÔÁ÷×îÖ÷ÒªµÄ·½·¨¾ÍÊÇ Read ºÍ Write.
Ôںܶ࿠......