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:

Código Delphi [-]
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 Noteví]

Recuerda poner el código entre etiquetas, ejemplo:



.

[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