有两个问题想问一下大家，大家麻烦进入看一下,谢谢

Question

1>有一个字符串a
var a :string;
      b :string[];
a  := '芳村花园 龙溪大道东 芳村客运站';
我想把这个字符串分解成
b[0]='芳村花园';
b[1]='龙溪大道东';
b[2]='芳村客运站';有用哪个函数来解次这个问题。我记得vb里面有这样的函数。不知道delphi里面有没有？2>在delphi里面有没有删除空格的函数？哪个？

Answer 1

'芳村花园 龙溪大道东 芳村客运站'
把中间的空格替换成#13然后赋给tstrings对象

Answer 2

但中间如果有两个空格呢？这样会多出一个出没用的string对象来的。

Answer 3

var a :string;
//      b :string[];     '
    c:TstringlIst;
    i:integer;
begin
a  := '芳村花园 龙溪大道东 芳村客运站';
//我想把这个字符串分解成
//b[0]='芳村花园';
//b[1]='龙溪大道东';
//b[2]='芳村客运站';
c:=tstringlist.Create;
//c.Text:=a;
c.Delimiter:=' ';
c.DelimitedText:=a;for i   :=0 to c.Count-1 do
    memo1.Lines.Add( c.Strings[i]  )