delphi的字节数组

Question

哪位兄弟会java和delphi的？
java的这个语句
-----------------------------
String str="111000";
byte[] len = str.getBytes();
-----------------------------
用delphi应该怎么写？

Answer 1

var
  Str:String;
  CharArray:array of Char;
  I:Integer;
begin
  Str:='110110';
  SetLength(CharArray,Length(Str));
  for I:=1 to Length(Str) do
  CharArray[I]:=Str[I]
end;
public class test { /**
 * @param args
 */
public static void main(String[] args) {
 
String   str   =   "110110";   
byte[]   b   =   str.getBytes();   
for   (int   i   =   0,   size   =   b.length;   i   <   size;   i++)   
      System.out.println((char)b[i]);
}}

Answer 2

不知道是不是你要的结果procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  b:array of byte;
  i:integer;
begin
  s:='111000';
  setlength(b,length(s));
  for i:=1 to length(s) do
  begin
    b[i-1]:=strtoint(copy(s,i,1));
    memo1.Lines.Add(inttostr(b[i-1]));
  end;
end;

Answer 3

char是一个字节长度,直接转换为char或者Byte类型数组,用setlength(A,length(A));

Answer 4

var
str:string='111000';procedure aa;
var 
len:array of byte;
i:integer;
begin
setlength(len,length(str));
for i:=low(len) to high(len) do
  len[i]:=ord(str[i+1]);
setlength(len,0);
end;

Answer 5

var
  Str:String;
  CharArray:array of Char;
begin
  Str:='110110';
  SetLength(CharArray,Length(Str));
  StrMove(PChar(CharArray),PChar(Str),Length(Str));
end;