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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
| function LongueurMontant(Entree: String): String;
{Donne une longueur au montant d'une valeur}
Const
XESPACES=' '; // 10 espaces
begin
Entree:=(copy(XESPACES+Entree,Length(XESPACES+Entree)-8,9));
LongueurMontant:=Entree;
end;
function LongueurDonnee(Entree:String;longueur:Integer):String;
Const
MESPACE=' '; // 30 espaces
begin
Entree:=copy(MESPACE+Entree,Length(MESPACE+Entree)-longueur+1,Length(MESPACE+Entree));
LongueurDonnee:=Entree;
end;
function DeuxDecimales(Entree: String): String;
var
virgule,point:Integer;
begin
point:=Pos('.',Entree);
if point<>0 then // remplacement du point par une virgule
begin
Delete(Entree,point,1);
Insert(',',Entree,point);
end;
virgule:=Pos(',',Entree);
if virgule=0 then Entree:=Entree+',00' // pas de décimale
else if virgule=Length(Entree) then Entree:=Entree+'00'
else if virgule=Length(Entree)-1 then Entree:=Entree+'0';
DeuxDecimales:=Entree;
end;
function TraitementMasque(Entree: String): String;
var
blanc:Integer;
begin
// mise en forme résultat d'un MaskEdit numérique
blanc:=Pos (' ',Entree);
while blanc<>0 do
begin
Delete (Entree,blanc,1);
blanc:=Pos(' ',Entree);
end;
TraitementMasque:=Entree;
end; |
