Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
LCL
»
[SOLVED] Amount in words
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
IRC channel
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
BoxChart cannot be color ...
by
kiyo
[
Today
at 03:17:15 am]
min() function behavior i...
by
jamie
[
Today
at 03:09:02 am]
Anonymous Unions-Middle R...
by
jamie
[
Today
at 02:24:53 am]
lhelp not working on Linu...
by
dbannon
[
Today
at 02:15:18 am]
Installing GDB on MAC OS ...
by
dbannon
[
Today
at 01:53:46 am]
Magic, non referenced var...
by
jamie
[
Today
at 01:33:46 am]
Are We Dead Yet?
by
Joanna
[
Today
at 12:27:08 am]
How to dock Stack and Pro...
by
Molochnik
[May 30, 2023, 11:20:19 pm]
[Solved] OnMouseDown - Ho...
by
marcio2003
[May 30, 2023, 08:46:43 pm]
LazPaint (alpha-blending,...
by
CM630
[May 30, 2023, 08:35:04 pm]
Default and speed effect
by
Martin_fr
[May 30, 2023, 06:22:00 pm]
Why is the rectangle the ...
by
Bart
[May 30, 2023, 05:56:45 pm]
process exeuction with in...
by
Edson
[May 30, 2023, 05:33:56 pm]
BufferData not let appen...
by
paweld
[May 30, 2023, 05:18:39 pm]
PostgreSQL: typeinfo erro...
by
Чебурашка
[May 30, 2023, 05:16:48 pm]
Problema con base de dato...
by
Edson
[May 30, 2023, 04:35:57 pm]
Adding Text to LineSerie ...
by
Dzandaa
[May 30, 2023, 03:27:54 pm]
Best way to delete an ins...
by
Tomi
[May 30, 2023, 02:59:21 pm]
Fast Base64 encoding/deco...
by
Okoba
[May 30, 2023, 02:37:57 pm]
Hole punching - Step by S...
by
Warfley
[May 30, 2023, 02:28:15 pm]
[Solved] TTreeFilterEdit....
by
AlexTP
[May 30, 2023, 01:49:57 pm]
TFPGObjectList and custom...
by
jamie
[May 30, 2023, 01:38:51 pm]
OPC client with Lazarus
by
Miniekans
[May 30, 2023, 01:35:54 pm]
Threads - stringlist and ...
by
Warfley
[May 30, 2023, 01:28:00 pm]
How to use customize outp...
by
artem101
[May 30, 2023, 11:38:43 am]
« previous
next »
Print
Pages:
1
[
2
]
Author
Topic: [SOLVED] Amount in words (Read 1375 times)
Pe3s
Sr. Member
Posts: 411
Re: Amount in words
«
Reply #15 on:
March 21, 2023, 05:09:16 pm »
how should i correct these lines?
Code: Pascal
[Select]
[+]
[-]
else
if
(
i >
3
)
and
(
digits
[
5
]
<>
''
)
and
(
StrToInt
(
digits
[
5
]
)
=
1
)
then
str
:
=
str
+
nastki
[
StrToInt
(
digits
[
4
]
)
]
+
' '
;
Logged
KodeZwerg
Hero Member
Posts: 1396
Fifty shades of code.
Re: Amount in words
«
Reply #16 on:
March 21, 2023, 05:19:48 pm »
When you want to access element 5, than "i" must be greater or equal to "5", exemplary "i > 4" or "i >= 5"
Logged
«
Last Edit:
Tomorrow
at 31:76:97 by
KodeZwerg
»
Pe3s
Sr. Member
Posts: 411
Re: Amount in words
«
Reply #17 on:
March 21, 2023, 06:09:52 pm »
Thank you all for your help
Logged
Print
Pages:
1
[
2
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
LCL
»
[SOLVED] Amount in words
TinyPortal
© 2005-2018