Conversion string ---> byte [Résolu]
elementalord
- Messages postés
- 26
- Date d'inscription
- mercredi 25 mai 2005
- Statut
- Membre
- Dernière intervention
- 10 juin 2005
- Messages postés
- 87
- Date d'inscription
- samedi 6 novembre 2004
- Statut
- Membre
- Dernière intervention
- 17 décembre 2005
A voir également:
- Delphi string to byte
- String to byte delphi - Meilleures réponses
- Delphi string to byte array - Meilleures réponses
- Convertion string to byte ✓ - Forum - Java
- C# / .NET : String to stream - CodeS SourceS - Guide
- Delphi / Pascal : Delphi colors to html colors - CodeS SourceS - Guide
- Java : String to (string) hexa - CodeS SourceS - Guide
- String to (string) int - Codes sources - Java (Astuces)
7 réponses
Meilleure réponse
- Messages postés
- 49
- Date d'inscription
- mardi 18 mai 2004
- Statut
- Membre
- 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
216 internautes nous ont dit merci ce mois-ci
- Messages postés
- 26
- Date d'inscription
- mercredi 25 mai 2005
- Statut
- Membre
- Dernière intervention
- 10 juin 2005
- Messages postés
- 87
- Date d'inscription
- samedi 6 novembre 2004
- Statut
- Membre
- 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
- Statut
- Membre
- Dernière intervention
- 10 juin 2005
- Messages postés
- 26
- Date d'inscription
- mercredi 25 mai 2005
- Statut
- Membre
- Dernière intervention
- 10 juin 2005
- Messages postés
- 87
- Date d'inscription
- samedi 6 novembre 2004
- Statut
- Membre
- 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.