Delphi有没有这样的函数?把String转成TStrings?详见内(50分)

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #1

我要实现以下功能
func1(s1:string;s2:char):TStrings;
如果s1='line1,line2,line3,abcd efg';s2=',';
则结果strings的值是
line1
line2
line3
abcd efg
就是把以某个以CHAR分开的字符串变为字符串列表,请问DELPHI有没有这样的函数?
如果没有给源码也行.

 

Y

YoungSun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #2

ExtractStrings(s1,s2:char;s3:string;s4:tstrings);
s1:分隔符
s2:要忽略的字符
s3:要转换的字符串
s4:转换后的TStrings

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #3

谢谢!,不过正确的调用应是
ExtractStrings(Separators, WhiteSpace: TSysCharSet
Content: PChar
Strings: TStrings): Integer;
例:
ExtractStrings([','],[],PChar(fstring),fstrings);