字符串转化为2进制
如何将一个字符串转化为2进制数

[解决办法]
function StrToBin( src: String ): String;
var
i: integer;
dest: string;
function ChrToBin( ch: char ): string;
var
i, m, a: integer;
s: string;
begin
SetLength( s, 8 );
m := 128;
a := ord( ch );
for i := 1 to 8 do
begin
if m and a > 0 then
s[i] := '1 '
else
s[i] := '0 ';
m := m div 2;
end;
result := s;
end;
begin
for i := 1 to length( src ) do
begin
dest := dest + ChrToBin( src[i] ) + ' ';
end;
result := dest;
end;