np w edita wpisuje liczbe 23 , a pozniej ma byc ona wygenerowana w postaci tekstu "dwadzieścia trzy" . Z góry dziekuje za pomoc :) [hurra] [cya]
Wystarczalo w wyszukiwarce wpisac "trzydzieści" ablo "czterdzieści" i oczywiste, ze znajdzie [krzyk]
sam teraz szybko wymyslilem - obsluguje liczby od 0 do 10 i dziesiatki - miedzy 10 a 20 i wieksze latwo dodac, odpowiednio rozbudowujac. Sprawdzilem i dziala :).
var liczby : Array[1..9] of string;
dzies : Array[2..9] of string;
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
liczby[1] := 'jeden';
liczby[2] := 'dwa';
liczby[3] := 'trzy';
liczby[4] := 'cztery';
liczby[5] := 'piec';
liczby[6] := 'szesc';
liczby[7] := 'siedem';
liczby[8] := 'osiem';
liczby[9] := 'dziewiec';
dzies[2] := 'dwadziescia';
dzies[3] := 'trzydziesci';
dzies[4] := 'czterdziesci';
dzies[5] := 'piecdziesiat';
dzies[6] := 'szescdziesiat';
dzies[7] := 'siedemdziesiat';
dzies[8] := 'osiemdziesiat';
dzies[9] := 'dziewiecdziesiat';
I := Length(Edit1.Text);
if I1 then begin
Edit2.Text := dzies[StrToInt(Edit1.Text[1])]+' '+liczby[StrToInt(Edit1.Text[2])];
end;
end;
dopisane:
uuu kolega juz mnie wyprzedzil. Ale moze sie na cos moj kod przyda :).
To ja się męczę pisząc program zamieniający liczby na ich zapis słowny prawie że dla dowolnej długości liczb, a tu nikt nie korzysta :-(
http://4programmers.net/view.php?id=188