Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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’


Ïà¹ØÎĵµ£º

Delphi µÄ Dll º¯ÊýµÄ µ÷ÓÃ


Ò»¡¢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Ìõ¹æÔò

▼¡øDelphiÃæÏò¶ÔÏó±à³ÌµÄ20Ìõ¹æÔò(×ªÔØ)
Â¥Ö÷ZyxIp£¨¾øÍûÖÐ...£©2003-09-02 14:28:07 ÔÚ Delphi / VCL×é¼þ¿ª·¢¼°Ó¦Óà ÌáÎÊ
×÷Õß¼ò½é    
  Marco   CantuÊÇÒ»¸öÖªÃûµÄDelphiר¼Ò£¬ËûÔø³ö°æ¹ý¡¶¾«Í¨Delphi¡·ÏµÁдÔÊ飬¡¶Delphi¿ª·¢ÊֲᡷÒÔ¼°µç×ÓÊé¡¶¾«Í¨Pascal¡·(¸Ãµç×ÓÊé¿ÉÔÚÍøÉÏÃâ·Ñ»ñµÃ)¡ ......

Delphi 6.0¸ß¼¶±à³Ì

±¾ÊéÒÔʵÀýΪÖ÷Ïߣ¬¸¨ÒÔ±ØÒªµÄ¼¼Êõ±³¾°ÒªµãÀ´½²½âDelphi 6£®0±à³ÌµÄ¾«Ë裻±¾ÊéʵÀýÆ«ÖØÓÚ¶àýÌåºÍÍøÂç³ÌÐò¿ª·¢£¬ÆäÖÐÉæ¼°µ½OpenGL¡¢Indy×é¼þ¡¢XML¡¢Web BrokerºÍWebSnapµÈ¼¼Êõ¡£±¾Ê黹½²ÊöÁËDelphiÖеÄSQL±à³Ì£¬ÔÚÁ½¸ö¶ÌС¾«Á·µÄ³ÌÐòÖгä·ÖÔËÓÃÁËDelphiÊý¾Ý¿ª·¢¼¼Êõ£¬°üÀ¨BDE×é¼þµÄADO×é¼þµÄʹÓá£Í¨¹ý±¾Ê飬ÈöÁÕßÔÚ±à³Ì¹ ......

DelphiÖÐÁ÷µÄʹÓ㨱ȽÏÈ«Ãæ£©

Delphi ÖÐÁ÷µÄʹÓÃ(1) Óà TMemoryStream(ÄÚ´æÁ÷) ÈëÃÅ
ǰÑÔ:
Ëùν"Á÷", ¾ÍÊÇÒ»¶ÎÊý¾Ý»òÊÇÒ»¿éÄÚ´æ;
ÔÚ½øÐÐÁ÷²Ù×÷ʱ, ÎÒÃDz»±Ø¹ØÐÄÁ÷ÖеÄÊý¾Ýµ½µ×ÊÇʲô; Ö»ÐèÒªÖªµÀÁ÷µÄ´óСºÍµ±Ç°µÄÖ¸ÕëλÖÃ. ËùÒÔÁ÷Ö»ÓÐÁ½¸öÊôÐÔ:
Size¡¢Position.
¶ÔÁ÷µÄ²Ù×÷, ²»¹ý¾ÍÊǶÁÈ¡ºÍдÈë. ËùÒÔÁ÷×îÖ÷ÒªµÄ·½·¨¾ÍÊÇ Read ºÍ Write.
Ôںܶ࿠......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ