Traitement dans un Stream

Traitement dans un Stream - Delphi/Pascal - Programmation

Marsh Posté le 17-05-2006 à 00:03:08    

Salut,
 
j'ai une fonction qui transforme une chaine en hexa. Je voudrais modifier cette fonction, afin de l'appliquer à un Stream, mais je n'y arrive pas.
Si quelqu'un peut m'aider à adapter ce code à un Stream.
 

Code :
  1. function StringtoHex(Data: string): string;
  2. var
  3.   i, i2: Integer;
  4.   s: string;
  5. begin
  6.   i2 := 1;
  7.   for i := 1 to Length(Data) do
  8.   begin
  9.     Inc(i2);
  10.     if i2 = 2 then
  11.     begin
  12.       s  := s + ' ';
  13.       i2 := 1;
  14.     end;
  15.     s := s + IntToHex(Ord(Data[i]), 2);
  16.   end;
  17.   Result := s;
  18. end;


 
Merci


Message édité par coline le 17-05-2006 à 00:06:51
Reply

Marsh Posté le 17-05-2006 à 00:03:08   

Reply

Marsh Posté le 18-05-2006 à 14:13:40    

Reply

Marsh Posté le 18-05-2006 à 15:12:22    

Merci kiki29, je vais regarder cela.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed