delphi ，号 分离内容问题

Question

我现在有 这样的字符串
s:string;
s:=a,b,c
如何能分离出   a  b  c 这 就是 把这个s的字符串 中间的2个 ‘,’分离出 3个部分来 
求解 

Answer 1

http://zsqztg.blog.51cto.com/601880/171122

Answer 2

function TForm1.separate(ASubStr, ACompleteStr: string): TStrings;
var
  _index :Integer;
  _TempStr :string;
begin
  Result := TStringList.Create;
  if ACompleteStr <>'' then
  begin
    _index := Pos(ASubStr, ACompleteStr);
    while _index > 0 do
    begin
      _TempStr := Copy(ACompleteStr, 1, _index - 1);
      Result.Add(_TempStr);
      ACompleteStr := Copy(ACompleteStr, _index + 1, Length(ACompleteStr)  - _index);
      _index := Pos(ASubStr, ACompleteStr);
      if (_index <= 0) and (ACompleteStr <> '') then //最后一个串
        Result.Add(ACompleteStr);
    end;
  end;
end;调用：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := separate(';', edit1.text).Text;
end;实际调用：
separate(';', abc;123;iku)
显示：
abc
123
iku