Delphi currency to digit
Publish: 2021-04-15 23:03:35
1.
To convert a number to a currency number is to set the value cell format to currency format. The following steps are as follows:
-
select the cell to be set, right-click to select the cell format
-
to open the cell Format dialog box, click the number tab (the general default number tab is activated)
-
to select the currency symbol and decimal point according to your own needs, Then determine the specific recording operation of
< / OL >
as shown in the following figure:
2.
1. First of all, open our computer, enter into the computer desktop, find my world in the computer desktop, enter into my world game
3. Using the function strtoflat
4. const
S1=& #39; [UNK]22777;'< br/> S2= & #39; [UNK]36144;'< br/> S3= & #39; 0121441;'< br/> S4= & #39; Boundary ' < br/> was
Str: String;< br/> i: #integer;< br/> start
Str:= & #39; 1234 ' < br/> edit1.Text:=str;< br/> for i:=1 to length(str) do
caseStr[i] of
& #39; 1 ' : Label1.Caption:=S1;< br/ > & #39; 2 & #39; : Label2.Caption:=S2;< br/ > & #39; 3 & #39; : Label3.Caption:=S3;< br/ > & #39; 4 ' : Label4.Caption:=S4;< br/ > < end;< How outstanding is the br/>
S1=& #39; [UNK]22777;'< br/> S2= & #39; [UNK]36144;'< br/> S3= & #39; 0121441;'< br/> S4= & #39; Boundary ' < br/> was
Str: String;< br/> i: #integer;< br/> start
Str:= & #39; 1234 ' < br/> edit1.Text:=str;< br/> for i:=1 to length(str) do
caseStr[i] of
& #39; 1 ' : Label1.Caption:=S1;< br/ > & #39; 2 & #39; : Label2.Caption:=S2;< br/ > & #39; 3 & #39; : Label3.Caption:=S3;< br/ > & #39; 4 ' : Label4.Caption:=S4;< br/ > < end;< How outstanding is the br/>
5. str := & #39; 1.350 '< br/>
str := stringreplace(str, ' &# 39; & # 39; &# 39; [
str := stringreplace(str, ' &# 39; & # 39; &# 39; [
6. If you enter your name in eidt1.tex, you will report an error! You used a conversion function! The basic positive solution of the upper floor should be removed from num: = strtoint (Edit1. Text);
7. Integer to string inttostr() string = inttostr (integer)
string to integer strtoint()
string to decimal strtoflot()
decimal to string floattostr ()
string to integer strtoint()
string to decimal strtoflot()
decimal to string floattostr ()
8.
Number less than 1 billion, codes as follows for reference:
was
> 9n:longint;
%.2f Offstring;< br/>> 09;i,k,m:integer;< br/>> 9s;st:string;< br/>
varm:integer; x:integer);< br/>start
ifm=0thena[1]:=xelsea[m+1]:=x;< br/>inc(m);< br/>end;<
start
> 9n:=83007305;< {readln(n);}< < b[1]:=' &# 39; b[2]:= & #39; X' b[3]: =& #39; 0' b[4]:=& #39; 1000 ' ; b[5]:= & #39; < b[6]:=& #39; X' b[7]: =& #39; 0' b[8]:=& #39; 1000 ' < br/>> 9th; whilen > 0 n:=ndiv10;< < br/>> 9s:= & #39; &# <39;< br/>> 09;fori:=mdownto1dostart
> 09;str(a[i]:0.st);< < {0} gt; 5then gt; &# 39; 0' thens:=s+#39; 0' < +s+st+b[i];< br/>> 09;if i=5then
> 09; ×9;× 09;ifa[i]=0thenbegin
> 09;˚9;˚ 9if(s,k-1.2)< " gt; &# 39; 0' thens:=s+#39; Van ' < br/>> 9;[UNK]09; [UNK]9;[UNK] 9s;others:=(s,1,k-2)++39; < +s+st+b[i];< < (s,length(s)-1.2)=#39; 0' thens:=(s,1,length(s)-2);< <
9. I can't write in delph, I can write in other languages
10. int i = 60000;< br />string d=i.ToString(" c");
Hot content