28-01-2012, 11:47 PM
تم الحل بهذه الطريقه
كود :
function strtab(s:string):tab;
var
i,j:integer;
k:tab;
begin
for i:=0 to length(s)-2 do
begin
if i=0 then
begin
k[0]:=StrToByte(copy(s,i+1,2));
end
else if i= 1 then
k[1]:=StrToByte(copy(s,i+2,2))
else if((i>1) and (not((i mod 2)=0))) then
begin
j:=(i div 2)+1;
k[j]:=StrToByte(copy(s,i+2,2));
end;
end;
strtab:=k;
end;