Siempre escribir en mayuscula en un grid

[el_barto]

Buenos dias:

En una grid que propiedad hay que modificar para que siempre que escriban en la grilla escriban en mayuscula o hay que hacerlo con un FOR??

Gracias por su respuesta que tengan buen dia

[roman]

El DBGrid no tiene una propiedad para esto. Hay maneras de lograrlo, aquí una de ellas.

Por cierto, ¿qué entiendes por usar un FOR para esto?

// Saludos

[el_barto]

por ejemplo en c se toma la cadena de caracteres y mediante un for se compara el caracter y se convierte en mayuscula

[quetzal]

mmmm

y si en el onkeydown u onkeypress

le poner algo asi no recuerdo bien
key:=upper(key);
o
key:=uppercase(key);


prueba

Suerte!!!

[quetzal]

Perdon ya encontre una Pc con delphi

y pude constatarlo

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
key:=upcase(key);
end;

creo que la ñ no la pone en mayuscula.
tu lo checas

Suerte!!!

[quetzal]

bueno con un for podria ser asi

procedure TForm1.Button1Click(Sender: TObject);
var
x:byte;
cad:string;
begin
cad:=Edit1.Text;
Edit1.Clear;
for x:=0 to length(cad) do
begin
Edit1.Text:=Edit1.Text+uppercase(cad[x]);
end;
end;
o tambien Edit1.Text:=uppercase(Edit1.Text);

[el_barto]

Gracias amigos utilice el:

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
key:=upcase(key);
end;

Funciona correctamente la ñ si la toma en minuscula pero es mas de lo que podia pedir

[roman]

Empezado por el_barto

Funciona correctamente la ñ si la toma en minuscula pero es mas de lo que podia pedir

De hecho te fallará también con los acentos. Pero sí puedes pedir más
Usa la función AnsiUpperCase que pondrá las mayúsculas de acuerdo al juego de carcateres del sistema. Si éste es el español, entonces la ñ, diérecis, acentos y demás, serán convertidos correctamente.

// Saludos

[el_barto]

pero con ansiuppercase saca un error que no comprendo:

[Error] Unit4.pas(75): Incompatible types: 'Char' and 'String'

[el_barto]

mm sera que como esto esta declarado en el evento KeyPress y este solo captura caracter a caracter y ansiuppercase transforma es cadena de caracteres se esta produciendo este error?? es posible

[roman]

Simplemente "regrésalo" a caracter:

Código Delphi [-]
Key := AnsiUpperCase(Key)[1];

// Saludos

[el_barto]

Probado y recontraprobado es correcta tu aclaracion gracias