Discussion :

[Didier LOZAC'H]

Bonjour,

Par construction une chaine de caractères ne peut pas contenir un nombre négatif de caractères.
Aussi, pourquoi la fonction "Length()" retourne un nombre entier signé ? Pourquoi ne retourne-t-elle par un entier non signé, en particulier une "NativeUInt" afin de s'adapter à toutes les plateformes ?

Merci pour votre point de vue.

Didier LOZAC'H

[tourlourou]

Bonjour,
Ne serait-ce point pour faciliter les calculs (internes) de positions dans la chaîne dont tous les résultats doivent être positifs ?
Et puis, si ce n'est pas ça, j'aurai au moins essayé de faire avancer le schimili... schlimi...

[EDIT] mieux lire les questions évite de répondre des âneries

[anapurna]

Salut

le pourquoi du comment remonte a l'origine des temps.
Le temps où delphi n'existait pas encore et où pascal etait sous le girons de borland
le Type integer est bien l'entier natif du system
le NativInt correspond à la parti positive de l'entier mais cela implique des test de debordement sur l'entier
comme le dis tourlourou en utilisant un entier cela nous evite des cycles de calcul suplementaire

Ps ... je ne suis pas certain que ce type existe depuis les l'origines

[ALWEBER]

Je dirais :Que la fonction retourne un Entier ou un Word le digit de poids le + fort est à zéro donc c'est un nombre positif.

[anapurna]

Salut

ici on comprend l'apparition des differents type

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
29
30
31
 
{----------------------------Public types------------------------------}
type
  {Make sure all the required types are available}
{$ifdef BCB6OrDelphi6AndUp} // (Borland C++ Builder 6 or Delphi 6) or later
  {$if CompilerVersion < 20}
      PByte = PAnsiChar;
     {NativeInt didn't exist or was broken before Delphi 2009.}
        NativeInt = Integer;
  {$ifend}
  {$if CompilerVersion < 21}
     {NativeUInt didn't exist or was broken before Delphi 2010.}
     NativeUInt = Cardinal;
  {$ifend}
  {$if CompilerVersion < 22}
    {PNativeUInt didn't exist before Delphi XE.}
    PNativeUInt = ^Cardinal;
  {$ifend}
  {$if CompilerVersion < 23}
    {IntPtr and UIntPtr didn't exist before Delphi XE2.}
    IntPtr = Integer;
    UIntPtr = Cardinal;
  {$ifend}
{$else}
  PByte = PAnsiChar;
  NativeInt = Integer;
  NativeUInt = Cardinal;
  PNativeUInt = ^Cardinal;
  IntPtr = Integer;
  UIntPtr = Cardinal;
{$endif}

j'ai trouvé cette information ici