Bonjour,
J'essai de convertir de Delphi vers C++Builder.
Mais j'ai un petit problème pour remplacer une instruction (Val)
Pourrait-on me donner un coup de main ?
Par avance merci...
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
 
// Procédure Delphi
procedure StringToData(const S: string; Buffer: Pointer; Size: Integer);
var
  I, Code: Integer;
  T: string;
begin
  T := '$00';
  for I := 1 to Min(Size, Length(S) div 2) do
  begin
    // Ci-dessous l'instruction Val n'existe pas en C++Builder
    Val(T, PByteArray(Buffer)^[I - 1], Code);
  end;
end;
 
// Procédure C++Builder
void __fastcall StringToData( const String S, void* Buffer, int Size )
{
  int I = 0, Code = 0;
  String T;
  T = "$00";
  for ( int stop = Min( Size, S.Length( ) / 2 ), I = 1; I <= stop; I++)
  {
    // Ligne qui ne va pas évidemment avec Val
    Val( T, PByteArray( Buffer )[I - 1], Code );
  }
}
Luis