convertir un texto a mayusculas
 

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.

convertir un texto a mayusculas
 

Saludos

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

Espero te sea de ayuda

¿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

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;

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

realizando pruebas
 

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.

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

type TUpperMemo=class(TMemo);

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