有没有“Unformat”函数？(10分)

_zeus · 2003-02-10

有没有一个函数能实现“Unformat”？例如：

代码:

var<br>&nbsp; s1, s2, i, s3, s4, s5, s6: String;<br>begin<br>&nbsp; Unformat('There are 2 apples on the table', '%s %s %d %s %s %s %s',<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;[s1, s2, i, s3, s4, s5, s6]);<br>end;

然后 s1 = 'There'、s2 = 'are'、i = 2、s3 = 'apples'、s4 = 'on'、s5 = 'the'、 s6 = 'table'。

lvxq · 2003-02-10

什么意思？是指每个空格以后的内容，转成相应的格式么？ 如果只是你上面两重类型，自己写个循环处理就可以了

ysai · 2003-02-10

function Unformat(S:String):TStrings; begin   Result:=TStringList.Create;   ExtractStrings([' '],[],PChar(s),Result); end; var   s:String;   l:TStrings;   i:Integer; begin   s:='There are 2 apples on the table';   l:=UnFormat(s);   for i:=0 to l.Count -1 do     ShowMessage(l);   l.Free; end;

_zeus · 2003-04-02

thanx

有没有“Unformat”函数？(10分)

_zeus

Unregistered / Unconfirmed

lvxq

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

_zeus

Unregistered / Unconfirmed

Similar threads