Delphi dicas

Numero ordinal por extenso

Function ordinal(numero: string): string;

var

conta : smallint;

Texto : string;

const

Unidades: array[0..9] of string = ('','Primeiro ', 'Segundo ', 'Terceiro  ', 'Quarto', 'Quinto ',

'Sexto ', 'Sétimo ', 'Oitavo ', 'Nono ');

Dezenas: array[0..9] of string = ('','Décimo ', 'Vigésimo ', 'Trigésimo ', 'Quadragésimo ',

'Quinquagésimo ', 'Sexagésimo ', 'Setuagésimo ', 'Octogésimo ', 'Novagésimo ');

Centenas: array[0..9] of string = ('','Centésimo ', 'Ducentésimo ', 'Tricentésimo ',

'Quadringentésimo ','Quingentésimo ','Sexcentésimo ','Septingentésimo ','Octingentésimo ','Noningentésimo ');



begin

        // tira os possiveis espacos em branco.

        numero:=trim(numero);

        // cria um laço para caminhar na string da direita para esquerda pegando os numeros.

        for conta:= length(numero) downto 1  do

        Begin

                // unidades

                if length(numero)-conta =0 then  texto := unidades[strtoint(copy(numero,conta,1))];

                // dezenas

                if length(numero)-conta =1 then  texto := dezenas[strtoint(copy(numero,conta,1))]+texto;

                // centenas

                if length(numero)-conta =2 then  texto := centenas[strtoint(copy(numero,conta,1))]+texto;

                // milhares

                if length(numero)-conta >2 then  texto := 'nao sabe contar tanto,ainda.'+texto;

        end;

        result:=texto;

end;