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
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
Forum Rules
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
Idea to solve a circular ...
by
jamie
[
Today
at 10:55:07 am]
FPC Unleashed (inline var...
by
440bx
[
Today
at 10:55:02 am]
AI assisted translation o...
by
MathMan
[
Today
at 10:22:06 am]
ZeosDB and sqlite3
by
Thaddy
[
Today
at 08:49:46 am]
Status of Fresnel Project...
by
Thaddy
[
Today
at 08:47:30 am]
Help with OLD code
by
Thaddy
[
Today
at 08:17:11 am]
Ann: Deinline: a de-inlin...
by
Thaddy
[
Today
at 07:43:06 am]
Can /my/ AI help me with ...
by
MathMan
[
Today
at 07:33:14 am]
Lazarus Image Editor
by
Boleeman
[
Today
at 03:46:20 am]
Splitting Picture into Qu...
by
Boleeman
[
Today
at 02:43:50 am]
The ever re-appearing /= ...
by
n7800
[
Today
at 02:13:57 am]
fp-h2pas: New C header tr...
by
BildatBoffin
[April 11, 2026, 07:22:29 pm]
TurboBird IBX
by
maurog
[April 11, 2026, 04:10:32 pm]
Remote desktop software i...
by
gidesa
[April 11, 2026, 02:25:43 pm]
Omitting semicolon on las...
by
Xenno
[April 11, 2026, 02:04:31 pm]
I can write your README.m...
by
domasz
[April 11, 2026, 09:53:02 am]
android attack (inc)
by
speter
[April 11, 2026, 04:19:54 am]
Little bit...
by
n7800
[April 11, 2026, 03:51:08 am]
[ANN] Unofficial FPC 3.3....
by
440bx
[April 11, 2026, 01:00:04 am]
NiceGrid component for La...
by
wp
[April 11, 2026, 12:03:57 am]
Track windows cross-platf...
by
dsiders
[April 10, 2026, 07:43:43 pm]
[ANN] PasBuild v1.8.0 Rel...
by
Graeme
[April 10, 2026, 06:43:13 pm]
Подписи кнопок панели инс...
by
Raskaton
[April 10, 2026, 06:37:48 pm]
HTTPS-сервер с ГОСТ-серти...
by
Raskaton
[April 10, 2026, 06:29:36 pm]
Strange behavior with dat...
by
JanRoza
[April 10, 2026, 06:20:38 pm]
« previous
next »
Print
Pages:
1
[
2
]
Author
Topic: [SOLVED] Amount in words (Read 3033 times)
Pe3s
Hero Member
Posts: 641
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: 2269
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 xm by
KodeZwerg
»
Pe3s
Hero Member
Posts: 641
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