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

delphi TStringListµÄÓ÷¨

TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£
³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£
ÏȰÑÒªÌÖÂ۵öÊôÐÔÁгöÀ´£º
1¡¢CommaText
2¡¢Delimiter & DelimitedText
3¡¢Names & Values & ValuefromIndex
ÏÈ¿´µÚÒ»¸ö£ºCommaText¡£ÔõôÓÃÄØ£¿ÓôúÂë˵»°£º
const
  constr :String = 'aaa,bbb,ccc,ddd';
var
  strs :TStrings;
  i :Integer;
begin
  strs := TStringList.Create;
  strs.CommaText := constr;
  for i := 0 to Strs.Count-1 do
    ShowMessage(Strs[i]);
end;
Ö´ÐÐÁËÕâ¶Î´úÂëºó£¬¿ÉÒÔ¿´µ½ShowMessageÏÔʾ³öÀ´µÄ·Ö±ðÊÇ£ºaaa bbb ccc ddd¡£
Ò²¾ÍÊÇ˵£¬strs.CommaText := constrÕâÒ»¾äµÄ×÷Ó㬾ÍÊǰÑÒ»¸ö×Ö·û´®ÒÔ','Ϊ·Ö¸î·û£¬·Ö¶ÎÌí¼Óµ½TStringsÖС£
ÄÇôÈç¹û²»ÊÇÒÔ','À´·Ö¸î£¬ÓÖ¸ÃÔõô×öÄØ£¿ÏÖÔÚ¿´µÚ¶þ¸öÀý×Ó¡£Ê¹ÓÃDelimiterºÍDelimitedText¡£
const
  constr :String = 'aaa\bbb\ccc\ddd';
var
  strs :TStrings;
  i :Integer;
begin
  strs := TStringList.Create;
  strs.Delimiter := '\';
  strs.DelimitedText := constr;
  for i := 0 to Strs.Count-1 do
    ShowMessage(Strs[i]);
end;
¿ÉÒÔ¿´µ½£¬ ÏÔʾµÄЧ¹ûºÍµÚÒ»¸öÀý×ÓÊÇһģһÑùµÄ¡£½âÊÍһϣº
DelimiterΪ·Ö¸ô·û£¬Ä¬ÈÏΪ£º','¡£DelimitedText¾ÍÊǰ´DelimiterΪ·Ö¸ô·ûµÄÒ»¸ö´®£¬µÃµ½¸³Öµºó»Ø°ÑÕâ¸ö×Ö·û´®°´DelimiterµÄ×Ö·ûÌí¼Óµ½TStringsÖС£
˵µ½ÕâÀÓÐÏëÆðÒ»¸öÊôÐÔ£¬QuoteChar¡£ÆäĬÈÏֵΪ£º'"'£¨²»°üÀ¨µ¥ÒýºÅ£©
ÓкÎÓÃÄØ£¿¿´Àý×Ó£º
const
  constr :String = '"aaa"\"bbb"\"ccc"\"ddd"';
var
  strs :TStrings;
  i :Integer;
begin
  strs := TStringList.Create;
  strs.Delimiter := '\';
  strs.DelimitedText := constr;
  for i := 0 to Strs.Count-1 do
    ShowMessage(Strs[i]);
end;
ÏÔʾ³öÀ´µÄÈÔÈ»ÊÇaaa bbb ccc ddd¡£ÎªÊ²Ã´²»ÊÇ£º"aaa" "bbb" "ccc" "ddd"ÄØ£¿
ÔÙÀ´¿´Ò»¸öÀý×Ó£º
const
  constr :String = '|aaa|\|bbb|\|ccc|\|ddd|';
var
  strs :TStrings;
  i :Integer;
begin
  strs := TStringList.Create;
  strs.Delimiter := '\';
  strs.


Ïà¹ØÎĵµ£º

delphiѧϰ ×Ö·û´®ÇиîÎÊÌ⣨split£©

×î½ü×öÒ»¸öÏîÄ¿£¬ÒªÓÃDelphi£¬ÒÔǰ´Óδѧ¹ý£¬ºÃÊǷѾ¢°¡£¬¹þ¹þ¹âÊÇ×Ö·û´®ÇиîÕâ¸öÎÊÌâ¾ÍÀ§ÈÅÁ˼¸¸öСʱ£¬Í¨¹ý²é×ÊÁÏÖÕÓÚ½â¾ö£¬ÔÚÕâÓë´ó¼Ò·ÖÏíÒ»ÏÂ
Function split(src: pchar; ch: char):TStringList;
// ·Ö¸î×Ö·û´®
var
  i: Integer;
  tmp : string;
begin
  Result:=TStringList.Create;
  ......

±±¾©ÕÐÆ¸£ºdelphi³ÌÐòÔ±¡¢Èí¼þ½çÃæÉè¼ÆÃÀ¹¤


±±¾©ÌÚ¶ÈÍøÂç¿Æ¼¼ÓÐÏÞ¹«Ë¾
µØÖ·:±±¾©º£µíÇøÑ§Çå·
µç»°:82755789
Òò¹¤×÷ÐèÒª,ÏÖÃæÏò±±¾©ÕÐÆ¸ÒÔÏÂְλ.
DelphiÈí¼þ¹¤³Ìʦ
1¡¢¾«Í¨Delphi¿ª·¢£¬ÊìϤVCL¼Ü¹¹£¬´úÂë·ç¸ñÁ¼ºÃ¡£
2¡¢ÓÐÁ¼ºÃµÄÍŶӺÏ×÷¾«Éñ£¬¸»Óд´Ð¾«Éñ;
3¡¢ÊìÏ¤ÍøÂç±à³Ì£¬¶ÔIndy×é¼þ£¬Socket¿ª·¢ÓÐÒ»¶¨µÄÁ˽â;
4¡¢ÊìÏ¤ÃæÏò¶ÔÏó±à³Ì˼Ïë,ÓÐ×é¼þ»ò¿Ø¼þ±à ......

DelphiµÄ¿ì½Ý¼ü


 
//**************ÐèҪǿµ÷µÄÁ½¸ö¿ì½Ý¼ü**********************
51.CTRL+SHIFT+U     ´úÂëÕû¿é×óÒÆ2¸ö¿Õ¸ñλÖÃ
52.CTRL+SHIFT+I     ´úÂëÕû¿éÓÒÒÆ2¸ö¿Õ¸ñλÖÃ
60.Ctrl+Alt+c       ×¢ÊÍ¿é
61.Ctrl+Alt+u    & ......

Delphi¶à²ã¿ª·¢·½°¸±È½Ï


±êÌâ
  Delphi¶à²ã¿ª·¢·½°¸±È½Ï    £¨×ªÔØ£©
¹Ø¼ü×Ö
  Delphi¶à²ã¿ª·¢·½°¸±È½Ï
³ö´¦
 
·½°¸->
Midas
DCOM
COM+
ASTA
RemoteObject
.NET
ÌṩÕß
Borland
΢Èí
΢Èí
http://www.astatech.com
http://www.remobjects.com
΢Èí
ºËÐļ¼Êõ
COM
COM
COM
ASTA×Ô¼ ......

C£«£«ÈçºÎµ÷ÓÃdelphiÖÆ×÷µÄdll


Ò»¡¢¸ÅÊö¼°Ê¾Àý´úÂë
DelphiÖаüÀ¨Ðí¶àÒѾ­·â×°ºÃµÄÀ༰¿Ø¼þ£¬ÆäÖеķǿÉÊÓ»¯¿Ø¼þ¿âÒÔ¹¦ÄÜ·½Ê½»®·Ö¿É´¦ÀíÖî¶àÓ¦ÓÃÐèÇó¡£ÈôʹÓÃC£«£«ÊµÏÖϵͳʱ¶ÔijЩ¹¦Äܼòµ¥µ÷ÓÃdelphiÖÐÏֳɵĿâʱ¼´¿É¡£Òò´Ë½«delphiÖеĿâÒÔDLLÐÎʽ·â×°ºÃÖ®ºóÈçºÎ½«·½·¨µ¼³ö¿É¹©C£«£«µ÷ÓÃÊDZ¾ÎļǼµÄÖØµã¡£C£«£«µ÷Óõķ½Ê½ÓжàÖÖ£¬ÔÚÕâÀïÖ»ÌÖÂÛÒ»ÖÖ¾² ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ