Conversion string ---> byte [Résolu]
elementalord
- Messages postés
- 26
- Date d'inscription
- mercredi 25 mai 2005
- Dernière intervention
- 10 juin 2005
- Messages postés
- 87
- Date d'inscription
- samedi 6 novembre 2004
- Dernière intervention
- 17 décembre 2005
A voir également:
- String to byte delphi
- Delphi string to byte - Meilleures réponses
- Delphi string to bytes - Meilleures réponses
- C# / .NET : String to stream - CodeS SourceS - Guide
- Java : String to (string) hexa - CodeS SourceS - Guide
- String to (string) int - Codes sources - Java (Astuces)
- Int, short etc.. to byte ✓ - Forum - C# / .NET
- Int to byte ✓ - Forum - C# / .NET
7 réponses
Meilleure réponse
- Messages postés
- 49
- Date d'inscription
- mardi 18 mai 2004
- Dernière intervention
- 24 juillet 2006
Salut,
Ne pourrais tu pas utiliser la fonction StrToInt, et stocker le
résultat dans un byte après avoir vérifier qu'il n'y a pas eu de
problème de dépassement de capacité ?
Pour ByteToStr il suffit d'utiliser IntToStr, la conversion est implicite.
Ne pourrais tu pas utiliser la fonction StrToInt, et stocker le
résultat dans un byte après avoir vérifier qu'il n'y a pas eu de
problème de dépassement de capacité ?
Pour ByteToStr il suffit d'utiliser IntToStr, la conversion est implicite.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
115 internautes nous ont dit merci ce mois-ci
- Messages postés
- 87
- Date d'inscription
- samedi 6 novembre 2004
- Dernière intervention
- 17 décembre 2005
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.
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.
- Messages postés
- 26
- Date d'inscription
- mercredi 25 mai 2005
- Dernière intervention
- 10 juin 2005
- Messages postés
- 26
- Date d'inscription
- mercredi 25 mai 2005
- Dernière intervention
- 10 juin 2005
- Messages postés
- 26
- Date d'inscription
- mercredi 25 mai 2005
- Dernière intervention
- 10 juin 2005
- Messages postés
- 87
- Date d'inscription
- samedi 6 novembre 2004
- Dernière intervention
- 17 décembre 2005
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éer un type comme
type
TTabByte= array of byte;
et le mette comme résultat de la fonction.
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éer un type comme
type
TTabByte= array of byte;
et le mette comme résultat de la fonction.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.