字符串解析

function TfrmTest.ParseDssFilesName(const strParam: string; strSplit: string): TStringList;
var
  tmpDssFileName: string;
  i: integer;
begin
  Result := TStringList.Create;

  if strParam = '' then
  begin
    exit;
  end;

  tmpDssFileName := strParam;

  i := pos(strSplit, strParam);
  while i <> 0 do
  begin
    Result.add(copy(tmpDssFileName, 0, i - 1));
    Delete(tmpDssFileName, 1, i);
    i:=pos(' ', tmpDssFileName);
  end;
  Result.add(tmpDssFileName);
end;