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.