Discussion :

[dirty_boy]

Désolé de demander pour si peu mais je suis en train de galérer sur un prob de conversion.

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
valeur : Longword;
 
    valeur:=(Longword(TrameReceive[5]) shl 16 )+ (Longword(TrameReceive[6]) shl 8 )+ (Longword(TrameReceive[7]));
 
        Use.SDDF_J.Text := IntToStr(valeur div 144) ;

La réponse du compilateur et celle du titre.

Merci

[banban54]

bonjour

je viens de tester avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  valeur : Longword;
begin
  valeur:=(Longword($FF) shl 16 )+ (Longword($9) shl 8 )+ (Longword($65));
  Edit1.Text := IntToStr(valeur div 144) ; // pour info retourne 116070
end;

et cela fonctionne!

[D6/XP]

à plus

[dirty_boy]

Effectivement mais c'est parce que tu lui à donné ce qu'il voulait, c'est à dire des valeurs constantes. Le problème c'est que je doit recevoir des valeurs qui viennent de l'extérieur et les afficher après conversion.

Merci quand même.

DB

[Tardiff Jean-François]

Bonjour,

Je supose que TrameReceive est un string.

Donc TrameReceive[5] est un char et pour avoir la valeur ordinal correspondante l'on doit faire Ord(TrameReceive[5]); et non LongWord(TrameReceive[5]);

Je me trompe peut être mais c'est rapide à tester.

[banban54]

je ne pense pas que ça vienne de là non plus,
j'ai testé le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
var
  valeur : Longword;
begin
  valeur:=(Longword('F') shl 16 )+ (ord('9') shl 8 )+ (Longword($65));
  Edit1.Text := IntToStr(valeur div 144) ; // pour info retourne 31959
end;

et toujours pas d'erreur!

à plus!

[dirty_boy]

d'accord je commencait à douter sérieusement de moi mais j'ai identifié d'où viens le problème.

Effectivement vos exemple fonctionnent mais jai oublié de vous donner un autre paramètre de mon appli.

l'édit dans lequel je dois écrire mon numéro est situé sur une form secondaire est c'est ce qui semble poser un problème à Delphi. Si cela vous éclaire un peu moi je continue à chercher.

Merci d'avance.

DB