conversion string --- byteRésolu

Question

Je voudrai savoir si sous delphi il est possible de faire une conversion d'une chaine de carct&#232;re(string) en byte?
merci d'avance.

sovitec · Accepted Answer

Salut,

Ne pourrais tu pas utiliser la fonction StrToInt, et stocker le
r&#233;sultat dans un byte apr&#232;s avoir v&#233;rifier qu'il n'y a pas eu de
probl&#232;me de d&#233;passement de capacit&#233; ?



Pour ByteToStr il suffit d'utiliser IntToStr, la conversion est implicite.

divadav · Answer

Je suis pas s&#251;r de comprendre la question...

Si c'est la valeur du caract&#232;re ASCII que tu cherches, tu peux l'avoir en faisant :
      ShowMessage(IntToStr(Ord(maChaine[i])));
o&#249; i repr&#233;sente le num&#233;ro du caract&#232;re qui t'int&#233;resse...

Keep Cool & Be Wild
Divad

Niki2001 · Answer

Et bien, en fait un string occupe un byte par caract&#232;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&#234;me le caract&#232;re 0, ce qui n'est pas obligatoire.

elementalord · Answer

j'ai taper ce que tu a &#233;crit mais il me dit qu'il atend un identificateur mais array trouv&#233;

elementalord · Answer

ce que je voulai faire divadav c un strtobyte et puis je voudrais faire aussi un bytetostr

elementalord · Answer

oui sa marche je n'avais pas encore vu qu'on pouvai faire cel&#224; merci !!!

Niki2001 · Answer

StrToByte n'est possible que si le string indique un nombre entre 0 et 255. On peut faire:

function StrToByte(Str: string): byte;
var
 int: integer;
begin
   try
      int:= StrToInt(str);
      if (int>=0) and (int<=255) then
         result:= byte(int)
         else
            result:= 0;
   except
      result:= 0;
   end;
end;

Sinon, pour la fonction que j'avais mise avant, il faut en fait cr&#233;er un type comme
type
   TTabByte= array of byte;
et le mette comme r&#233;sultat de la fonction.

Conversion string ---> byte

7 réponses

Votre réponse

Discussions similaires