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

[khorsandreza]

سلام
من یک مقدار عددی را در پایگاه داده ذخیره میکنم همیشه تعداد این رشته زوج است مثال "2688943327628142" حال می خواهم این مقدار را به آرایه تبدیل کنم در داخل برنامه بصورت آرایه نیاز دارم
بخشی از جدا سازی را با استفاده از حلقه بشکل زیر انجام می دهم ولی برای ادامه نتوانستم راه حلی پیدا کنم

Var

PStr,PStr2:String;

Len:Integer;

I: Integer;

begin

PStr2 := '';

PStr := '6162828385868800';//میخواهم این رشته را به ارایه تبدیل کنم

Len := Length(PStr) div 2;

if (Len mod 2 = 0) then

// if I mod 300 = 299 then

Begin

for I := 1 to Len do

PStr2 := PStr2+Copy(PStr,(I*2)+1,2)+',';

ShowMessage(Copy(PStr2,1,Length(PStr2)-2));

.

.

.

End Else ShowMessage('مقدار رشته نامعتبر است');

میخواهم بصورت زیر داخل آرایه قرار دهم
array of int [26,88,94,33,27,62,81,42]

[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;