D DaChu Unregistered / Unconfirmed GUEST, unregistred user! 2004-06-07 #1 是可以指定分隔符的 还有TStringList的 CommaText和DelimitedText属性是怎么回事
东 东兰梦舞 Unregistered / Unconfirmed GUEST, unregistred user! 2004-06-07 #2 Delimiter := ','; DelimitedText := 'a,b,c,ddd,ef';
1 1295118971 Unregistered / Unconfirmed GUEST, unregistred user! 2004-06-07 #4 function ExtractStrings(Separators, WhiteSpace: TSysCharSet Content: PChar Strings: TStrings): Integer; Delphi的帮助是最好的.
function ExtractStrings(Separators, WhiteSpace: TSysCharSet Content: PChar Strings: TStrings): Integer; Delphi的帮助是最好的.
W wqhatnet Unregistered / Unconfirmed GUEST, unregistred user! 2004-06-08 #5 var i:integer; abc:String; list:TStrings; begin list:=Tstringlist.Create; abc:='n/b/c/d'; list.text :=StringReplace(abc,'/',#13#10,[rfReplaceAll]); for i:=0 to list.count-1 do showMessage(list.strings); list.Destroy; end;
var i:integer; abc:String; list:TStrings; begin list:=Tstringlist.Create; abc:='n/b/c/d'; list.text :=StringReplace(abc,'/',#13#10,[rfReplaceAll]); for i:=0 to list.count-1 do showMessage(list.strings); list.Destroy; end;
