Código Delphi [-] var cadena: string; begin cadena:= edit1.text; edit7.text:= cadena[1]; //para sacar la primer letra end;
var cadena: string; begin cadena:= edit1.text; edit7.text:= cadena[1]; //para sacar la primer letra end;