Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐÏÔʾGIF¶¯»­

ÏëûÏë¹ýÔÚDELPHIÖÐÏÔʾGIF¶¯»­£¿DelphiµÄÓû§ÊǷdz£ÐÒÔ˵ģ¬ÒòΪÓÐÃâ·Ñ¿Ø¼þ¿ÉÒÔʹÓá£×îÖøÃûµÄ¿Ø¼þÊÇAnders Melander±àдµÄTGifImage£¬²¢ÌṩÍêÕûµÄÔ´³ÌÐò¡£ËüÔ­À´µÄÖ÷Ò³ÊÇwww.melander.dk/delphi/gifimage/£¬²»¹ýÓкܳ¤Ê±¼äûÓиüÐÂÁË¡£Èç¹ûÒªÔÚа汾µÄDelphiÖÐʹÓ㬿ÉÒÔ´Óhttp://finn.mobilixnet.dk/delphi/ÏÂÔØFinn T ......

delphi Èý²ã¿ª·¢¾­Ñé»ã×Ü

delphiºÜÔç¾ÍÒѾ­¿ÉÒÔ½øÐÐÈý²ãµÄ¿ª·¢ÁË. µ«Ò»Ö±µ½ÏÖÔÚ, ÍøÉÏÕâ·½ÃæµÄ¶«Î÷Ì«ÉÙ ÁË. Ҫô̫ÀÏ, ÉõÖÁ²»ÍêÈ«ÕýÈ·.  ÀýÈç:
ÈçºÎ½øÐжà±í¸üÐÂ(Ìá½»), ºÜ¶à»Ø¸´»¹ÊÇ˵ÓÃADOConnectionµÄÊÂÎñ, (Èç¹ûҪͬʱ¸üÐÂSQL SERVERºÍOracleÊý¾Ý¿âµÄ±íÔõô°ì).
µ±È»Ò²ÓÐ˵ÓÃSetComplete, SetAbortµÄ. µ«ËµµÄºÜ¼òµ¥, ÆäÖеÄ×¢ÒâÊÂÏîÓÖÊÇÊ ......

¹ØÓÚdelphiÖÐitemsºÍitemindexµÄÎÊÌâ

Ë÷ÒýÊÇitemindex
itemÊÇÀïÃæµÄÄÚÈÝ
Ë÷ÒýµÄ»°£¬ÊÇ´Ó0¿ªÊ¼
item   itemindex
A      1
B      2
C      3
listbox1.items.count¾ÍÊÇÕâ¸öÁбí¿òÀï×ܹ²ÓжàÉÙÏî. ......

Delphi ÀàÓë¶ÔÏóÄÚ´æ½á¹¹Ç³Îö(¸½¼þ1)

¸½¼þ×ÊÁÏ
*ÀàµÄÄÚ´æÐÅÏ¢£¨´úÂ룩
ʾÀý£º»ñÈ¡ÀàÐÅÏ¢
˵Ã÷£º±È¶Ôͨ¹ýÀàµØÖ·ÒÔ¼°Í¨¹ýÀà·½·¨»ñÈ¡ÐÅÏ¢µÄЧ¹û¡£
´úÂ룺
type
    TMyObject = class(TObject)
    private
        FData: Integer;
    protected
    ......

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

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