Wo finde ich denn eine Funktion, die einen Zahlenbetrag in Worte umwandelt?

IntToStr() falls es ein Integer ist, sonst zB FloatToStr(). In der OH findest du auch weitere Konvertierungsfunktionen in Strings.

Ich glaube du willst aus 2 --> zwei machen oder täusche ich mich da?

Also eine offizielle Funktion gibt es dafür nicht, aber ich glaube so könnte man das lösen:

Du hast die Zahl 2541,25
und fängst mittels case an 2 --> zwei
dann ermittelst du den Abstand zum Komma 3 Zahlen dazwischen --> tausend
wieder case 5 --> fünf
wieder Abstand zum Komma 2 --> hundert
wenn Abstand zum Komma = 2 dann
case letzte Zahl vor dem Komma 1 --> ein
case vorletzte Zahl vor dem Komma 4 -->undvierzig
if , then ' Komma '
case nächste Zahl 2 --> zwei
case nächste zahl 5 --> fünf
ende wenn nächste Zahl > length

2541,25 --> zweitausendfünfhunderteinundvierzig Komma zweifünf

1. Das ist verdammt viel Arbeit
2. Das hier oben ist nur ein stilisierter Code
3. eigentlich musst du das ganze mit case vorher auf den Abstand zum Komma überprüfen und für jeden Fall neu schreiben, den 1,25 --> eins Komma zweifünf und 21,25 --> einundzwanzig Komma zweifünf außerdem 0,25 --> null Komma zweifünf und 100,25 --> einhundert Komma zweifünf.
4. Ich hoffe es war verständlich.

Schau doch mal in unsere FAQ: ...einen Betrag in Worten schreiben?

Gruß
Tino

ooops, habe ich dann wohl nicht in den FAQs gesehen...

trotzdem danke an derDoc für die Überlegung... War auch genauso gemeint...

Das will irgendwie nicht klappen...

Ich brauche die Funktion in meiner Unit4 die zu Form4 gehört. Bei einem Klick auf einen Button, soll der Wert in Worte umgewandelt werden. Wie muss ich die Funktion einbinden?

Ich habe die Funktion in meine Unit4 gleich nach



eingebunden

In die procedure für den Button habe ich dann



Was mache ich falsch? Ich bekomme die Fehlermeldung
[Error] Unit4.pas: Undeclared identifier: 'BetragInWorten'

Hast du es auch oben unter private eingebaut?

derDoc hat folgendes geschrieben:

Hast du es auch oben unter private eingebaut?

Das ist nicht notwendig.

jamany hat folgendes geschrieben:

Was mache ich falsch?

Poste doch mal die ganze Unit (wenn diese nicht zu lang ist).

Gruß
Tino

guck mal in den easy delphi helper 2000, da stehts drinne.

gruß

In private einbauen hat nichts gebracht.

Ich hatte dann die Funktion sowohl in der Hauptunit, als auch in meiner Unit4 eingebaut und dann ging's. Keine Ahnung warum.

Trotzdem danke an alle!

Schreibe doch deinen Code mal hierher. Ich habe das mal getestet und bei mir klappt das einwandfrei.