RealToText

(     R     : Real;
      LenS1 : Byte;
     LenS2 : Byte;
      Ch    : Char;
dim SNum : String;
dim S1    : String;
dim S2   : String;
dim SHal : String);

Tato procedura umožňuje převádět čísla na textový řetězec použitelný například při vypisování složenek.

R - číslo určené k převodu
Len1 - délka první řádky textu
Len2 - délka druhé řádky textu
Ch - znak, který bude použit na ohraničení textu
SNum - převedené číslo R na řetězec bez haléřů
S1 - první textový řetězec (max 100 znaků)
S2 - druhý textový řetězec (max 100 znaků)
SHal - převedené haléře na řetězec

Příklad:

CisText(123.15, 10, 20, "= ", S1,S2,S3,S4)
S1 --/"=123="
S2 --/ "=jednosto-"
S3 --/ "dvacettři=========="
S4 --/ "15"