Et bien, en fait un string occupe un byte par caractère. Tu ne peux pas le mettre dans un seul byte. En revanche tu peux en fair un tableau de byte:
function StrToByte(Str: string): array of byte; var i: integer; begin SetLength(result, Length(Str)); for i:=0 to Length(Str) do result[i]:= Byte(Str[i]); end; Ici, on prend même le caractère 0, ce qui n'est pas obligatoire.
|