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

[defluc]

C'est dans l'affectation que se situerait donc l'erreur.
Essaies donc :

Form2.Edit1 := IntToStr(...);

Mais je n'ai peut-être pas bien saisi le problème.

[Tardiff Jean-François]

Avez vous veriier si la forme sur laquelle vous voulez ecrire soit déja créer (<> nil) ?

[dirty_boy]

Defluc : mes affectations sont déjà définie comme ça.

Tardiff Jean-François : toutes mes fenêtres sont créées au démarrage mais sont hides. je ne fait que jouer avec des show/hide.

merci quand même.

[Laurent Dardenne]

Salut,
si tu commentes la ligne supposée fautive cela donne quoi ?

[Tardiff Jean-François]

Au point où vous en êtes, je testerais un code aussi absurde que celui que j'ai mi en fin de message.

Je sais que c'est idiot comme méthode, mais rien d'autre ne réussit, il faut bien en venir à ce genre de magouille traditionnelle. Au moins on peut évaluer exactement quelle ligne ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
V1, V2, V3, V4: LongWord; 
valeur : Longword;
 begin
  if Length(TrameReceiver) < 6 then  ShowMessage(''Longeure < 6');
    V1 := (Longword(TrameReceive[5]) shl 16 );
    ShowMessage('V1 OK');
 
    V2 := (Longword(TrameReceive[6]) shl 8 );
    ShowMessage('V2 OK');
 
    V3 := (Longword(TrameReceive[7]));
    ShowMessage('V3 OK');
 
    V4:= V1 + V2 + V3;
    ShowMessage('V4 OK');
 
     valeur := V4 div 144
    ShowMessage('V5 OK');
 
   if Use <> nil then   ShowMessage('Use OK');
   if Use.SDF_J <> nil then   ShowMessage('SDF OK');
   // Je supose que text est un string, je ne test pas
        Use.SDDF_J.Text := IntToStr(Valeur) ;
 ShowMessage('OK final');

[Graffito]

Bonjour,

En faisant CTRL click sur IntToStr, se retrouve-t-on bien dans l'unité SysUtils ?