Zahl in Worten ausgeben

[Aviator]

Wenn ich den Code in der Unit richtig verstehe, musst du nur die

Delphi-Quellcode:

function GetShortName(Zahl: Integer; Tousand: Boolean;
    Last: Boolean = False): string;

aufrufen. Der Kommentar zur Function lautet:

Zitat:

(**
* Gibt den Zahlenname für Zahlen kleiner Tausend aus.
*
* Zahl - Die Zahl die konvertiert werden soll.
* Tousand - Wenn True, wird 1 als 'ein' ausgegeben, sonst als 'eine' (man
* sagt "eine Million/Milliarde", aber "ein Tausend").
*)

Du musst eben nur noch wissen, wann du als zweiten Parameter true und wann false übergibst.