新手问个问题！

Question

有一字段：职位　　
    aaa,mm,ddd
    tt,tb,nb
    abdff,p,vv
    ......
我想将＇，＇分开的字符
分别取出比如第一字段取出就是
aaa
mm
ddd　
该怎么写

Answer 1

procedure Split(Str,sp:String;sl: TStringList);
var
  idx,spLen: Integer;
begin
  if sl=nil then abort;  spLen:=Length(Sp);
  idx:=Pos(sp,Str);
  while idx>0 do
  begin
    sl.Add(Copy(Str,1,idx-1));
    Str:=Copy(Str,Idx+spLen,MaxInt);
    Idx:=Pos(sp,Str);
  end;
  sl.Add(Str);
end;调用var 
  sl: TStringList;....  sl:=TStringList.Create;
  try
    Spit(Str,',',sl);
    ....
  finally
    sl.free
  end
  ...

Answer 2

Str:=Copy(Str,Idx+spLen,MaxInt);
这句怎么理解啊

Answer 3

ComboBox1.Items.Text := StringReplace(aaa,mm,ddd，tt,tb,nb', ',', #13#10, [rfReplaceAll, rfIgnoreCase]);

Answer 4

ComboBox1.Items.Text := StringReplace(‘aaa,mm,ddd，tt,tb,nb', ',', #13#10, [rfReplaceAll, rfIgnoreCase]);

Answer 5

我是想将他们取出分别放在三combobox里