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

delphi TStringList Ó÷¨Ïê½â

delphi TStringList Ó÷¨Ïê½â
//TStringList ³£Ó÷½·¨ÓëÊôÐÔ
:
var
  List: TStringList;
  i: Integer;
begin
  List := TStringList.Create;
  List.Add('Strings1');           {Ìí¼Ó}
  List.Add('Strings2');
  List.Exchange(0,1);             {Öû»}
  List.Insert(0,'Strings3');      {²åÈë}
  i := List.IndexOf('Strings1');  {µÚÒ»´Î³öÏÖµÄλÖÃ}
  List.Sort;                      {ÅÅÐò}
  List.Sorted := True;   {Ö¸¶¨ÅÅÐò}
  List.Count;                     {×ÜÊý}
  List.Text;                      {Îı¾¼¯ºÏ}
  List.Delete(0);                 {ɾ³ý, 0ÊǵÚÒ»¸öÊý¾Ý}
  List.LoadfromFile('c:\tmp.txt');{´ò¿ª}
  List.SaveToFile('c:\tmp.txt');  {±£´æ}
  List.Clear;                     {Çå¿Õ}
  List.Free;                      {ÊÍ·Å}
end;
//¶ÁÈë×Ö·û´®
var
  List: TStringList;
begin
  List := TStringList.Create;
  List.CommaText := 'aaa,bbb,ccc,ddd';
//Ï൱ÓÚ: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd';
  ShowMessage(IntToStr(List.Count)); //4
  ShowMessage(List[0]); //aaa
  List.Free;
end;
//Öû»·Ö¸ô·û
var
  List: TStringList;
begin
  List := TStringList.Create;
  Li


Ïà¹ØÎĵµ£º

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

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

▼¡øDelphiÃæÏò¶ÔÏó±à³ÌµÄ20Ìõ¹æÔò

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

DelphiÖн¨ÒéʹÓõÄÓï¾ä

DelphiÖн¨ÒéʹÓõÄÓï¾ä
Â¥Ö÷zswang£¨°éË®ÇåÇå)(ר¼ÒÃÅÕïÇå½à¹¤£©2002-05-15 13:37:54 ÔÚ Delphi / VCL×é¼þ¿ª·¢¼°Ó¦Óà ÌáÎÊ
No.1   ÅжÏÂß¼­ÀàÐÍ  
  var   B:   Boolean;  
  begin  
      B   :=   Boolean(2);   //ÕâÑùÖ»ÊÇΪÁ˵÷ÊÔ//B ......

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

¸½¼þ×ÊÁÏ
*ÀàµÄÄÚ´æÐÅÏ¢£¨´úÂ룩
ʾÀý£º»ñÈ¡ÀàÐÅÏ¢
˵Ã÷£º±È¶Ôͨ¹ýÀàµØÖ·ÒÔ¼°Í¨¹ýÀà·½·¨»ñÈ¡ÐÅÏ¢µÄЧ¹û¡£
´úÂ룺
type
    TMyObject = class(TObject)
    private
        FData: Integer;
    protected
    ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ