تبدیل یک رشته با مقادیر عددی به ارایه از نوع عدد

[Mask]

یه همچین کدی میتونه کمکتون کنه:

procedure TForm1.Button1Click(Sender: TObject);var

  PStr: string;

  MyArray: array of string;

  i: integer;

  Step: integer;

begin

  PStr := '6162828385868800';

  SetLength(MyArray, PStr.Length div 2);

  Step := 1;

  for i := 1 to PStr.Length div 2 do

  begin

    MyArray[i] := Copy(PStr, Step, 2);

    Step := Step + 2;

  end;

  for i := 1 to PStr.Length div 2 do

   ShowMessage(MyArray[i]);

end;