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 Ch_en_Nbre(ST : String ) : Int64; Overload;
Function Ch_en_Nbre(ST : String ) : Double; Overload;
........
Function Ch_en_Nbre(ST : String ) : Double; OverLoad;
Var
i, Lg, Code : Integer;
CH : String;
Begin
Lg:=Length(ST);
CH:='';
For i:=1 To Lg Do
Begin
If ST[i] in ['0','1','2'..'9' , ',' , '.'] then
Begin
If ST[i]=',' Then ST[i]:='.';
CH:=CH+ST[i];
End;//If ST[i] in ['0','1','2'..'9',',','.'] then
End; // For
Val(CH,NB1,Code);
Result:=NB1;
End;
Function Ch_en_Nbre(ST : String ) : Integer; OverLoad;
Var
i, Lg, Code : Integer;
CH : String;
Begin
Lg:=Length(ST);
CH:='';
For i:=1 To Lg Do
Begin
If ST[i] in ['0','1','2'..'9' , ',' , '.'] then
Begin
If ST[i]=',' Then ST[i]:='.';
CH:=CH+ST[i];
End;//If ST[i] in ['0','1','2'..'9',',','.'] then
End; // For
Val(CH,NB1,Code);
Result:=NB1;
End; |
Partager