delphi 在一长字符串中提取字符串数组函数

type
  TArr = array of string; //字符串数组

             //  举例 G01X00Y1.1Z123 转换成 G01， X00 ，Y1.1 ，Z123 这样的数组
function Setstringtonum(cString: string): TArr;
var
  i, j: integer;
  str: string;
  trayy: TArr;
//  ResultList: TStringList;
begin
  j := 0;
 // Result := TStringlist.Create;
  cString := UpperCase(cString); //大写
  StringReplace(cString, ' ', '', [rfReplaceAll]);
  i := 0;
  repeat
    if Pos(cString[i], '0123456789.-') <= 0 then
    begin

        //  List.Add('Strings1')
     // Setstring.Add('q');
      SetLength(trayy, (j + 1));
      trayy[j] := cString[i];
      j := j + 1;

     // break;
    end
    else
    begin
      str := trayy[j - 1];
      case cString[i] of
        '-':
          str := str + '-';

        '.':
          str := str + '.';

        '0':
          str := str + '0';
        '1':
          str := str + '1';
        '2':
          str := str + '2';
        '3':
          str := str + '3';
        '4':
          str := str + '4';
        '5':
          str := str + '5';
        '6':
          str := str + '6';
        '7':
          str := str + '7';
        '8':
          str := str + '8';
        '9':
          str := str + '9';
      end;
      trayy[j - 1] := str;
    end;
    i := i + 1;
  until i = length(cString) + 1;
  Result := trayy;

end;