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
how to download fulling f...
by
greenzyzyzy
[
Today
at 01:42:13 pm]
Default and speed effect
by
Okoba
[
Today
at 01:37:44 pm]
PostgreSQL: typeinfo erro...
by
Чебурашка
[
Today
at 01:27:26 pm]
Anonymous Unions-Middle R...
by
Warfley
[
Today
at 01:15:00 pm]
Initializing an array
by
BeniBela
[
Today
at 12:45:50 pm]
lhelp not working on Linu...
by
wp
[
Today
at 12:32:30 pm]
Why is the rectangle the ...
by
Tomi
[
Today
at 11:16:17 am]
Hole punching - Step by S...
by
Key-Real
[
Today
at 10:27:28 am]
min() function behavior i...
by
tetrastes
[
Today
at 10:17:25 am]
Dark mode in app - white ...
by
d7_2_laz
[
Today
at 10:11:37 am]
BoxChart cannot be color ...
by
wp
[
Today
at 10:10:50 am]
Help for downloand file
by
rvk
[
Today
at 09:29:43 am]
Is Meta programming possi...
by
Joanna
[
Today
at 09:07:33 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]
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]
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]
« previous
next »
Print
Pages:
1
[
2
]
Author
Topic: [SOLVED] Amount in words (Read 1377 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