Einzelnen Beitrag anzeigen

Ginko

Registriert seit: 30. Aug 2008
208 Beiträge
 
FreePascal / Lazarus
 
#20

AW: Zahl in Worten ausgeben

  Alt 13. Jun 2013, 13:00
Die angefügte Unit mit dem Beispiel macht genau das:
Code:
12,89 -> zwölfeuroneunundachtzig
Dazu habe ich hier diese Funktion genommen http://www.delphi-fundgrube.de/faq13.htm, und eine kleine Änderung gemacht. Außerdem habe ich noch 2 Funktionen, um den String in Cent und Euro zu trennen und entsprechend auszugeben, geschrieben.

Ich habe mal alles Zusammen im Anhang in einer Unit. Sollte in Delphi Compilieren.

Die Dateien aus dem ursprünglichen Anhang sind dafür nicht nötig.

MfG
Angehängte Dateien
Dateityp: pas unit1.pas (3,6 KB, 14x aufgerufen)

Geändert von Ginko (13. Jun 2013 um 14:58 Uhr)
  Mit Zitat antworten Zitat