Zahl in Worten ausgeben

[blondervolker]

Hallo,
habe eine Unit im Forum gefunden,die man "nur"mit einbinden muss.
Hab ich gemacht.Nur komme ich mit dem Code nicht klar.:oops:
Es sollen nur Zahlen eingegeben werden im Edit1 und Edit2 soll die Zahl
als Wort dagestellt werden.
Ich bekomm es einfach nicht hin.Hab das "Projekt" mal mit drangehangen.
Ich bin ein Laie und noch am üben.

[Aviator]

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.

[Der schöne Günther]

Und wenn ich es von eben kurz drüberschauen richtig in Erinnerung habe, wird gerade diese Funktion komischerweise nicht aus der Unit exportiert. Oben im interface-Teil fehlt also die Deklaration.

[Aviator]

Hmm da hast du Recht. Aber alle anderen Funktionen ergeben keinen wirklichen Sinn. Die "BuildList-Function" gibt nur TStrings zurück. Man müsste sich die Zahl also selbst zusammenesetzen. Meiner Meinung nach hat der "Codeschreiber" vergessen, diese Function aufzunehmen, sprich zu veröffentlichen. Ich würde sie einfach mal dazuschreiben (sie wird nämlich nur von der BuildList-Function aufgerufen) und diese mal ausführen und kucken was zurückgegeben wird.

[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

[Aviator]

:oops: total übersehen. Aber auch nur im Notepad (nichtmal Notepad++) angeschaut. Das ist dann kein Wunder.
ConvertString sieht zumindest vom Aufbau her ziemlich danach aus.

[Ginko]

Ja der Aufbau hat mich auch erst etwas verwirrt und ich dachte auch erst es wäre Short. Aber Short ist eigentlich eine Funktion von GetShortName.

[Mathematiker]

Hallo,
so geht es:

Delphi-Quellcode:

var zahl:tbignum;
    zahlstring:string;
    i:integer;
begin
    zahlstring:='12345678901234567890'; // zum Beispiel
    setlength(zahl,length(zahlstring));
    for i:=1 to length(zahlstring) do
      zahl[i-1]:=ord(zahlstring[i])-48;
    listbox1.items:=BuildList(zahl,false,true);  //irgendein tstrings
    setlength(zahl,0);
end;

Beste Grüße
Mathematiker

[Ginko]

Zitat:

Zitat von Mathematiker (Beitrag 1218249)

Hallo,
so geht es:

Delphi-Quellcode:

var zahl:tbignum;
    zahlstring:string;
    i:integer;
begin
    zahlstring:='12345678901234567890'; // zum Beispiel
    setlength(zahl,length(zahlstring));
    for i:=1 to length(zahlstring) do
      zahl[i-1]:=ord(zahlstring[i])-48;
    listbox1.items:=BuildList(zahl,false,true);  //irgendein tstrings
    setlength(zahl,0);
end;

Naja bei der Variante fehlt aber noch die 890 zum Schluss als Wort(aber wahrscheinlich ist das Absicht, würde sich ja blöd anhören...). Es ist eher eine Semi-Wort Variante würde ich sagen. Und blondervolker hat nichts von einer Listendarstellung gesagt. Aber auch interessant.

Mfg

[Ginko]

Hier mal beide Versionen im Vergleich (Zahl: 12345678901234567890):

function BuildList...:

Code:

12 Trillionen
345 Billiarden
678 Billionen
901 Milliarden
234 Millionen
567 Tausend
890

function ConvertString...:

Code:

zwölf Trillionen dreihundertfünfundvierzig Billiarden sechshundertachtundsiebzig Billionen neunhunderteins Milliarden zweihundertvierunddreißig Millionen fünfhundertsiebenundsechzig Tausend achthundertneunzig

Weiß jemand wie man das null wegbekommt zB wenn man 1000 als Wort ausgibt:

Code:

ein Tausend null