Discussion :

[Yanux]

Bonjour à tous,

Je reprend le soft développé par un collègue, et j'aurais besoin d'aide car je débarque dans la programmation avec Delphi

Mon problème est que je possède une chaine telle que celle-ci :
"A4 BF 5E 03 30 1E F6"

Il faudrai que je puisse enregistrer ça dans un fichier, mais en convertissant en octet les infos de la string, c'est à dire "A4" en #$A4 etc... Je n'ai pas vraiment d'idée sur la manière dont procéder.

Si vous pouviez me donner des pistes, ça m'aiderais beaucoup.

Merci d'avance,

Yann.

[sjrd]

C'est de l'hexadécimal, donc, recherche sur le forum, et tu trouveras (je parie qu'il y a dix résultats dans les deux derniers mois).

[Yanux]

Voici ce que j'ai fait :

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
27
28
 
 
var
  i,j : integer;
  r : array of Integer;
  sTemp: string;
 
begin
 
 
  { Récupération de la chaine en enlevant les espaces }
  while Pos(#$20,sData) > 0 do Delete(sData,Pos(#$20,sData),1);
  setlength(r, length(sData) div 2);
 
  i := 1;
  j := 0;
 
  while sData[i+1] <> #$00 do
  begin
 
    sTemp := '$';
    sTemp := sTemp + sData[i];
    sTemp := sTemp + sData[i+1];
    r[j] := StrToInt(sTemp);
    Inc(j);
    i := i + 2;
 
  end;

On retrouve bien dans r un tableau contenant ce que je voulais :-)