char to string?

[Laurogriffin]

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?

[MLROJO]

Hola,

Prueba con esto:


var
opcion:char;
begin
memo1.Lines.clear;
opcion:=edit1.text[1];

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;
end;



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!.

[Casimiro Notevi]

Recuerda poner el código entre etiquetas, ejemplo:

http://neftali.clubdelphi.com/images/UtilizarTAGs.png

.

[Laurogriffin]

Muchas gracias, me ha sido de gran ayuda; perdón por la demora andaba sin internet :)

[Laurogriffin]

No sabía eso, gracias ando aprendiendo mucho :)