Discussion :

[luiso]

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

[cedni]

Salut
StrToFloat ?
En fait tu cherches à convertir une chaine en un réél ?

[luiso]

Bonsoir,
En fait je ne vois pas comment construire le remplacement de:
Val( T, PByteArray(Buffer)^[I - 1], Code );
xxxl( xxx , xxx, xxx )

[cedni]

lis çà

http://docs.embarcadero.com/products...ystem_Val.html

http://www.delphibasics.co.uk/RTL.asp?Name=Val

[foetus]

En C/ C++, c'est la fonction strtol / wcstol (qui remplace la fonction atoi)

Je n'ai pas testé, mais avec un UnicodeString str, il faut passer str.w_str().

[luiso]

J'ai regardé:
Floor: Arrondit les variables vers moins l'infini.
Ceil: Arrondit des variables vers plus l'infini.
mais.... bon...