convertir un texto a mayusculas

[uper]

hola a todos,

Disculpes ustedes, tengo que convertir un texto a mayusculas cuando se escriba, pero esta vez cambie un dbedit por un dbmemo por que como son varias palabras; para mostrar perfectamente todo el texto capturado. (Haber si me explico.)

En el componente Dbmemo del evento onkeypress puse este codigo
Upper(dbmemo1.text) pero no hace el cambio ni tampoco en onchange, sin encambio para el componentes Dbedit y edit existe una propiedad upper=uppercase y lo convierte lo que vayamos escribiendo, hay otra manera de que se pueda lograr esto pero con un memo ?

gracias, les agradesco una sugerencia.

[karocs]

Saludos

Podrias colocarlo en el evento OnExit del memo
memo.Text:=UpperCase(memo.Text);

Espero te sea de ayuda

[roman]

Empezado por uper

En el componente Dbmemo del evento onkeypress puse este codigo
Upper(dbmemo1.text)

¿Upper? ¿Existe esta función?

Puedes simplemente poner:

Código Delphi [-]
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  Key := UpCase(Key);
end;

// Saludos

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

[ruina]

si usas la primera solución te gustará saber que tb puedes convertir a mayusculas los acentos y las letras raras como ü: AnsiUpperCase

[uper]

Hola a todo.

Muchas gracias a todos, ya realize unas pruebas con las sugerencias de conversion de letras en un memo y quedo resulta mi duda
Gracias club.

[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