//Sait alors reconnaître la position de la virgule flottante aussi pour en conserver ce relicat à droite, //Prend en entrée un chaine quelconque la parcours de la droite vers la gauche //Puis ajoute des séparateurs point (dot) tout les trois chiffres après la virgule. function Convertir_cette_string_en_string_numeric_separer_par_des_points(a_value:string):string; var apc:pc1024; pc:pchar; ss:string; n:word; begin ss:=''; strpcopy(apc,a_value); pc:=strpos(apc,','); if pc<>nil then begin n:=0; ss:=strpas(pc); repeat if n mod 3 = 0 then ss:='.'+ss; dec(pc); ss:=pc^+ss; inc(n); until pc=apc; result:=ss; end else result:=a_value; end; //écrit par Denis stéphane Bertin le 4.8.2021 c'est bien hungaVoie. function Convertir_ce_numerique_en_string_separer_par_des_points(a_value:integer):string; var i,j:integer; s,ss:string; begin ss:=''; s:=inttostr(a_value); j:=length(s); for i:=1 to length(s) do begin ss:=ss+char(s[i]); dec(j); if (j mod 3=0) and (j<>0) then ss:=ss+'.'; end; Convertir_ce_numerique_en_string_separer_par_des_points:=ss; end; {Convertir_ce_numerique_en_string_separer_par_des_points} function Remplacer_les_virgules_par_des_points(ficelle:string):string; var i:integer; s:string; begin s:=''; for i:=1 to length(ficelle) do if ficelle[i]=',' then s:=s+'.' else s:=s+ficelle[i]; Remplacer_les_virgules_par_des_points:=s; end; {Remplacer_les_virgules_par_des_points} function Convertir_ce_numerique_en_string_separer_par_des_virgules(a_value:integer):string; var i,j:integer; s,ss:string; begin ss:=''; s:=inttostr(a_value); j:=length(s); for i:=1 to length(s) do begin ss:=ss+char(s[i]); dec(j); if (j mod 3=0) and (j<>0) then ss:=ss+','; end; Convertir_ce_numerique_en_string_separer_par_des_virgules:=ss; end; {Convertir_ce_numerique_en_string_separer_par_des_virgules} function Convertir_cette_string_separer_par_des_point(a_value:string):string; var i,j:integer; s,ss:string; begin ss:=''; s:=a_value; j:=length(s); for i:=1 to length(s) do begin ss:=ss+char(s[i]); dec(j); if (j mod 3=0) and (j<>0) then ss:=ss+'.'; end; Convertir_cette_string_separer_par_des_point:=ss; end; function Reduire_le_nombre_de_caractere(une_phrase:string; un_nombre:integer):string; var i:integer; string_reduite:string; begin string_reduite:=''; for i:=pred(length(une_phrase)-un_nombre) to length(une_phrase) do string_reduite:=string_reduite+une_phrase[i]; result:=string_reduite; end; function Suppr_the_guillemet(apc_execute_filename:string):string; var s:string; i:integer; begin s:=''; for i:=1 to length(apc_execute_filename) do if apc_execute_filename[i]<>'"' then s:=s+apc_execute_filename[i]; Suppr_the_guillemet:=s; end;
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.