convertir un texto a mayusculas

[LordSigma]

Empezado por Julià T.

Los controles TEdit tienen una propiedad charcase.
Los controles TMemo son derivados de TCustomEdit que también tienen la propiedad charcase aunque es protegida.

para poder utilizar esta propiedad protegida puedes utilizar el código siguiente:

Código Delphi [-]
type TUpperMemo=class(TMemo);

procedure TForm1.FormCreate(Sender: TObject);
begin
 TUpperMemo(Memo1).CharCase:=ecUpperCase;
end;

Este ejemplo tiene el siguiente error, donde dice class (TMemo) deberia ir class (TEdit), de esa forma si funciona.

type TUpperMemo=class(TMemo);

[roman]

Empezado por LordSigma

Este ejemplo tiene el siguiente error, donde dice class (TMemo) deberia ir class (TEdit), de esa forma si funciona.

No entiendo por qué dices esto. Nadie ha mencionado que no funcione y de hecho sí funciona. La propiedad CharCase está definida desde la clase TCustomEdit, que es un ancestro común de TEdit y TMemo. Cualquier descendiente, directo o indirecto, puede hacer uso de esta propiedad, en particular TMemo y cualquier descendiente de TMemo como lo es el propuesto por Julià T. De hecho, con el cambio que propones, el moldeo, si bien funciona en este caso particular, no es un moldeo correcto ya que TEdit no es un descendiente de TMemo.

// Saludos