Discussion :

[badaze]

Là c'est beaucoup mieux.

Code delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var
machaine : string;
x : integer;
begin
machaine := #32#32#32#32#13#10+' Test';
x :=  length(machaine) - length(machaine.TrimLeft([' ']));
Showmessage(IntToStr(x));

[Andnotor]

en faisant @S[1] c'est comme une chaine à zéro terminal que la chaine soit vide ou non on y a accès.
et si tu fais mon teste tu verras que c'est le cas.

Uniquement parce que le paramètre de CountLSpace est déclaré const. Supprime cela ou déclare-le var et tu verras les dégâts

const fait que @S[1] est traité comme un PChar et par conséquent pointe sur un #0.

En transtypant directement en PChar, tu assurerais un pointeur valide quelque soit la méthode de passage du paramètre ou le contenu de la chaîne et là effectivement, plus besoin de tester les chaînes vides :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
pc := PChar(s);
 
while pc^ = #32 do
begin
  inc(Result);
  inc(pc);
end;