Zahl in Worten ausgeben

[Ginko]

Delphi-Quellcode:

(**
* Konvertiert einen String mit der Zahl in Ziffern, in einen String mit der
* ausgeschrieben Zahl.
*
* Input - Die Zahl in Ziffern.
*)
function ConvertString(const Input: string): string; // Public

sollte die richtige Funktion sein. Steht auch im interface...

Delphi-Quellcode:

uses ... NumUnit ...;     
 
procedure TForm1.Button1Click(Sender: TObject);
var
  inputZif: String;
begin
  inputZif:= Edit1.Text;
  Edit2.Text:= ConvertString(inputZif);
end;

Klappt bei mir auch unter Lazarus, nur ab den Tausendern schreibt er noch null dazu komischerweise...

Mfg