將組合字串還原存進TStringList陣列的方法

procedure GetSetData(CombinedStr:String;var sl:TStringList);
var
  s : String;
  p,l      : integer;
begin
  sl.Clear;
  l:=Length(CombinedStr);
  if l=0 then exit;
  p:=1;
  while p > 0 do
  begin
    p:=Pos(',,,',CombinedStr);
    if p > 0 then
    begin
      s:=Copy(CombinedStr,1,p-1);
      sl.Add(s);
      CombinedStr:=Copy(CombinedStr,p+3,Length(CombinedStr));
    end;
  end;
  if Length(CombinedStr) > 0 then
  begin
    sl.Add(CombinedStr);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  mysl : TStringList;
begin
  mysl := TStringList.Create;
  try
    GetSetData('oo,,,ertff,,,wett' ,mysl);
    caption := mysl[0]+'__'+mysl[1]+'__'+mysl[2];
  finally
    mysl.Free;
  end;
end;