FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
¿Similar al Choose de Visual Basic?
Buenas noches,
Última pregunta, para escoger un valor en función de un número, en Visual uso : z = Choose(d, 60, 55, 50, 45, 40, 35, 30, 25, 20, 15, 10). Donde z coge el valor en función de d, es decir, si por ejemplo d vale 4, z valdrá 45. Esto me reduce bastante el código, ya que el Delphi estoy usando If. ¿Existe algo equivalente en Delphi?. Muchas gracias y enhorabuena por el foro. |
#2
|
|||
|
|||
no sé, pero lo que se me ocurre es que si estas poniendo muchos if del mismo tipo, ¿porque no creas esos if como una unica función y la mandas a llamar?, asi ahorrarias mucho el codigo...
|
#3
|
|||
|
|||
Gracias de nuevo cmm07!!. En algunos casos pongo hasta 15 If . Se hacer funciones en Delphi pero no llego a comprender lo que me dices. ¿Serías tan amable de aclararmelo?, Gracias.
|
#4
|
||||
|
||||
Hola Iron,
Desconozco si existe alguna función ya hecha en Delphi que haga lo que pides. Pero no creo que resulte tan complicado hacerlo. Por ejemplo, valiendome del tipo TIntegerDynArray que es un array dinámico de tipo entero es posible hacer dicha función.
Y un modo de usarla sería algo como éste:
Se puede mejorar evidentemente. Pero al menos es una aproximación. Saludos, Última edición por Delphius fecha: 21-03-2009 a las 22:46:25. Razón: etiquetas delphi! |
#5
|
||||
|
||||
#6
|
||||
|
||||
Hola,
¿No habría que comprobar si existe el índice en el Array Román? PD. Acabo de probarlo, y, parece que si nos "salimos" con el índice, obtenemos valores "aleatorios", que, no termino de comprender... de todas formas me atrevo a proponer algo como esto:
De esta forma, si el índice no existe, retornamos "-1"... y todavía así podría haber problemas, igual hay que levantar una excepción o algo así... ¿qué opináis? Última edición por dec fecha: 21-03-2009 a las 23:21:58. |
#8
|
||||
|
||||
Hola,
Ah, amigo, pero, la elegancia es la elegancia. |
#9
|
||||
|
||||
Hey roman, no me arruines el chiste
Jaja. Inicialmente estuve pensando en tu idea, pero cuando estaba probandolo obtenía errores, que el parámetro no me lo reconocía alguna metida mal de dedo debía haber metido. Y bueno me enojé y metí esa cosa que debería ir a parar a código inútil. Lo que si he notado con el código que expuse, es que me arrojaba un Warning diciéndome que la condición siempre se evaluaba a TRUE. La cosa es que ahora no me arroja dicha advertencia. Saludos, |
#10
|
||||
|
||||
Lo que a mi no me queda claro es para qué podría servir una función así. Creo que necesito un ejemplo.
// Saludos |
#11
|
||||
|
||||
Cita:
La verdad es que tienes razón, mucho sentido no tiene... yo diría que es mejor ir a secas, y leerla así:
Sería bueno que Iron nos comentase lo que busca con todo esto. Saludos, |
#12
|
|||
|
|||
Hola a todos...
Segun entendi, lo que quiere es obtener el primer numero del arreglo q empieze con d
|
#13
|
|||
|
|||
Muchas Gracias a todos por contestar y poner tanto interés.
Yo esto lo hago cuando elijo en un ListBox un dato, en función del indice del ListBox escojo en varios Choose los datos que me hacen falta (lo hago así en visual). En Delphi igual pero con IF´s. Estoy seguro que se podrá hacer de una forma mas sencilla, pero esta es la que yo hago. Con las respuestas que dais las probaré, espero que me salgan bien . Un saludo y gracias nuevamente. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Mi programa en visual basic | soler | Varios | 13 | 13-11-2007 17:10:11 |
Algo similar a "FindComponent" en visual basic 6 | Hugorr | .NET | 1 | 03-08-2007 14:44:35 |
Visual Basic con FireBird | luiz_leo | Firebird e Interbase | 2 | 25-07-2007 21:23:57 |
Visual Basic | carols018 | Varios | 1 | 05-12-2006 02:15:35 |
Carga DLL y Visual Basic | torito | Varios | 4 | 21-05-2004 19:32:31 |
|