char to string?
El ejercicio es que en un edit text se ponga un char.. e imprimir en un memo
mi codigo hasta ahorita es: var opcion:integer; begin memo1.Lines.clear; opcion:=(edit1.text) case opcion of 'a','A':memo1.lines.add('Excelente'); 'b','B':memo1.lines.add('Muy Bien'); 'c','C':memo1.lines.add('Mas o Menos'); 'd','D':memo1.lines.add('Reprobado'); end; mis chars son 'a' , 'A' etc.. ¿pero no hay un charTostring? |
Hola,
Prueba con esto:
Simplemente he redefinido la variable como char y capturado en ella el primer caracter mediante .text[1] Ya nos comentarás si con esto se consigue lo que pretendes. Saludos!. |
Recuerda poner el código entre etiquetas, ejemplo:
. |
Muchas gracias, me ha sido de gran ayuda; perdón por la demora andaba sin internet :)
|
No sabía eso, gracias ando aprendiendo mucho :)
|
La franja horaria es GMT +2. Ahora son las 14:01:58. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi