Sait alors reconnaître la position de la virgule flottante

Commenter

Contenu du snippet 

//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;

Compatibilité : 1.0

A voir également

S'inscrire maintenant

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.

Du même auteur (denisbertin)