Convertion d'une instruction Delphi->C++Builrer
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:
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
