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

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