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
Threads - stringlist and ...
by
Warfley
[
Today
at 07:11:05 pm]
MemDataset validate not d...
by
eldonfsr
[
Today
at 07:02:49 pm]
New version of BGRABitmap
by
circular
[
Today
at 05:18:09 pm]
first generic attempt
by
Paolo
[
Today
at 04:59:25 pm]
Best way to delete an ins...
by
Handoko
[
Today
at 04:46:46 pm]
Bluetooth on Raspberry, d...
by
pascalbythree
[
Today
at 04:21:35 pm]
Are We Dead Yet?
by
Joanna
[
Today
at 04:09:25 pm]
Online Package Manager
by
GetMem
[
Today
at 03:54:17 pm]
Non-local goto example ne...
by
alpine
[
Today
at 01:56:19 pm]
Can't load because <x> de...
by
marcov
[
Today
at 01:23:43 pm]
Hole punching - Step by S...
by
nummer8
[
Today
at 12:04:20 pm]
Providing *.deb files for...
by
TRon
[
Today
at 11:49:40 am]
Insert variant array to e...
by
TRon
[
Today
at 11:36:03 am]
Load local HTML file into...
by
c4p
[
Today
at 10:27:28 am]
LAMW - simple esc/POS pri...
by
Mongkey
[
Today
at 02:46:21 am]
ZenGL +android + MacOS Co...
by
Seenkao
[
Today
at 02:34:38 am]
[SOLVED] Using high inste...
by
lagprogramming
[May 27, 2023, 07:50:48 pm]
LAMW - default manifest r...
by
jmpessoa
[May 27, 2023, 07:25:21 pm]
Improvements in rtl/objpa...
by
PascalDragon
[May 27, 2023, 06:35:26 pm]
Optimization of for loops...
by
lagprogramming
[May 27, 2023, 03:56:09 pm]
How to download a file fr...
by
maurobio
[May 27, 2023, 02:58:43 pm]
Solved- TSQLQuery.ExecSQL...
by
br4d
[May 27, 2023, 02:26:56 pm]
[Solved] Help with spellc...
by
Espectr0
[May 27, 2023, 12:04:11 pm]
[SOLVED] How to get recei...
by
cdbc
[May 27, 2023, 10:04:41 am]
Reading MAC address of Ac...
by
Jurassic Pork
[May 27, 2023, 07:56:41 am]
« previous
next »
Print
Pages:
1
[
2
]
Author
Topic: [SOLVED] Amount in words (Read 1372 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: 1395
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