procedure TForm1.Button1Click(Sender: TObject);var aa: array[0..5]of integer; str:string; i:Integer;begin str:='123456'; for i:=0 to 5 do begin aa[i]:= ord(str[i])-ord('0'); end;end;
