寻求一段关于string的简单代码！！！

Question

type myarray=array[0..10] of string;
我现在需要一个这样的过程:
change（str：string，var ccc:myarray,var count:integer）
其中的第一个参数str是一个以逗号分隔的字符串,比如: 'zuu,zb,zx'
我的过程要实现的是把str从逗号处分割开,然后把由c数组返回分开后的每个子字符串,
而count则返回子字符串的个数.
比如:
str:='zuu,zb,zx'
则调用过程后:
c[0]='zuu'
c[1]='zb'
c[2]='zx'
count=3
另外,我还想问一下,在memo控件中我用memo.text属性,要怎么实现换行呢?

Answer 1

给你一个：
function SubStrings(S:string):TStringList; 
var 
  i:Integer; 
  TempList:TStringList; 
  TempString:string; 
begin 
  TempString:=','; 
  TempList:=TStringList.Create; 
  for i:=1 to Length(S) do 
    begin 
      if S[i]<>' ' then 
         TempString:=TempString+S[i] 
      else 
         begin 
            if S[i-1]<>' ' then 
              begin 
              TempList.Add(TempString); 
              TempString:=''; 
              end; 
         end;     end; 
    result:=TempList; 
end; 记得给分！

Answer 2

一行一行来呀！memo.line.add()呵呵......

Answer 3

var aList:TSTringList;
begin
  aList := TStringList.create;
  aList.Delimiter := ',';
  aList.DelimitedText := 'a,b,c,d';
  showmessage(aList.Strings[2]);
  aList.Free;
end;