Foros Club Delphi - Como limitar a caracteres en mayúsculas en campo TDBMemo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Como limitar a caracteres en mayúsculas en campo TDBMemo (https://www.clubdelphi.com/foros/showthread.php?t=55790)

KAYO	26-04-2008 12:01:18

Como limitar a caracteres en mayúsculas en campo TDBMemo

Como puedo permitir solo mayúsculas los caracteres introducidos en un campo TDBMemo?

jcarteagaf

26-04-2008 14:27:24

En el evento Onkeypress

Código Delphi [-]procedure TForm1.DBMemo1KeyPress(Sender: TObject;
  var Key: Char);
begin
  Key := uppercase(key);

end;

Saludos

KAYO	29-04-2008 18:29:16

Cuando implemento esa sentencia en el evento OnKeyPress me aparece el siguiente error:

[Error] Incompatible types: 'Char' and 'String'; que puede estar pasando?

Gracias por vuestras repuestas

BlueSteel

29-04-2008 19:03:23

Hola...

intenta con esto.. en el evento on Exit,

Código Delphi [-]DBMemo1.Text := UpperCase(DBMemo1.Text);

ahora, se supone que el DBMemo te esta obteniendo los datos desde una campo de tipo Memo de una tabla en particular... por lo cual no podras escribir nada en el...

aqui te dejo el mismo ejemplo pero con un componente de tipo Memo

Código Delphi [-]   Memo1.Text := UpperCase(Memo1.Text);

Salu2:p:D

waly2k1

01-05-2008 09:47:26

Rta.

UpperCase es para usar con cadenas
y UpCase con Char

Código:

procedure TForm1.DBMemo1KeyPress(Sender: TObject;

  var Key: Char);

begin

  Key := UpCase(Key); // No UpperCase



end;

Edito:
Si quieres preguntar por un valor de una tecla usa ORD

Código:

if ORD( Key ) = 39 then Key := #0;

o bien

Código:

if Key = #39 then Key := #0;

Saludos

La franja horaria es GMT +2. Ahora son las 13:59:26.