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