FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
case???
alguien me podria decir como puedo hacerle para tratar de realizar un proble con case en delphi tengo que convertir de numero a texto bieno para no hacerlo tan largo aqui le spongo la parte del codigo en el que tengo problemas espero y alguien me pueda decir que hacer gracias!!!
case decena of 1: case uniddad of 0: begin texto7.Text:= 'Diez';end; 1: begin texto7.Text:= 'Once';end; 2: begin texto7.Text:= 'Doce';end; 3: begin texto7.Text:= 'Trece';end; 4: begin texto7.Text:= 'Catirce';end; 5: begin texto7.Text:= 'Quince';end; 6: begin texto7.Text:= 'Dieciseis';end; 7: begin texto7.Text:= 'Diecisiete';end; 8: begin texto7.Text:= 'Dieciocho';end; 9: begin texto7.Text:= 'Diecinueve';end; end 2: begin texto7.Text:= 'Veinte';end; 3: begin texto7.Text:= 'Treinta';end; 4: begin texto7.Text:= 'Cuarenta';end; 5: begin texto7.Text:= 'Cincuenta';end; 6: begin texto7.Text:= 'Sesenta';end; 7: begin texto7.Text:= 'Setenta';end; 8: begin texto7.Text:= 'Ocheta';end; 9: begin texto7.Text:= 'Noventa';end; end |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Optimizar con Case XXX of | TIKIMORE | Varios | 9 | 10-07-2010 17:21:20 |
CASE o IFF en SQL | dark_c | SQL | 3 | 13-01-2007 20:07:33 |
Uso del Case | IVAND | SQL | 4 | 05-04-2006 17:39:48 |
Ayuda con CASE | YaninaGenia | Varios | 2 | 26-06-2005 12:40:39 |
|