Actualizar mayusculas

[Camilo]

Hola Amigos:

Tengo una tabla llamada "personas" esta tabla esta hecha en paradox.
dentro de ella tengo un campo que e llama "Apellido". Resulta que los casi 20.000 registros ya grabados estan todos em mayuscula sostenida.

Mi inquietud es:

Podrian por favor ayudarme (en el onclick) de un Button; con un codigo para convertir todos los registros a la primera letra en mayuscula y las otras en minuscula??.

Tablas Paradox
Delphi 7

Mil Gracias, que mis dios les socorra buenas esposas y esposos.

[donald shimoda]

Empezado por Camilo

Hola Amigos:

Tengo una tabla llamada "personas" esta tabla esta hecha en paradox.
dentro de ella tengo un campo que e llama "Apellido". Resulta que los casi 20.000 registros ya grabados estan todos em mayuscula sostenida.

Mi inquietud es:

Podrian por favor ayudarme (en el onclick) de un Button; con un codigo para convertir todos los registros a la primera letra en mayuscula y las otras en minuscula??.

Tablas Paradox
Delphi 7

Mil Gracias, que mis dios les socorra buenas esposas y esposos.

Pues seria tomar el valor del campo meterlo en un string y luego tomar la posicion 1 del string y pasarla a mayusculas y el resto a minúsculas, y volver a guardar el string en el campo.

No me pidas codigo hoy porque tengo pereza.

[[Fenareth]]

No sé si exista una función directa, pero a mi se me ocurre algo así:

Código Delphi [-]
var apellido:string;
     i,j:integer;

begin

     for i:=1 to Table.RecordCount do
     begin
            apellido:= Tabla.FieldByName('Apellido').AsString;
            for j:=1 to length(apellido) do
            begin
                        apellido[j]:=lowercase(apellido[j]);
            end;
            Tabla.FieldByName('Apellido').AsString:=apellido;
     end;
end;

Lo hago de memoria, no he probado si funciona... Saludos

[donald shimoda]

Excelente! Solo te falto que el primer char sea mayusucula como pide el amigo. El dice que esta en mayusculas ya, pero por si acaso...

Código Delphi [-]
var apellido:string;
     i,j:integer;

begin

     for i:=1 to Table.RecordCount do
     begin
            apellido:= Tabla.FieldByName('Apellido').AsString;

           apellido[1]:=uppercase(apellido[1]);
            for j:=2 to length(apellido) do
            begin
                        apellido[j]:=lowercase(apellido[j]);
            end;
            Tabla.FieldByName('Apellido').AsString:=apellido;
     end;
end;

[ContraVeneno]

Sí son varias palabras:
http://delphi.about.com/cs/adptips19...ltip1099_5.htm

Si es una sola:

Código Delphi [-]
   edtUnapalabra.Text := AnsiUpperCase(COpy('UNAPALABRA', 1,1))+AnsiLowerCase(RightStr('UNAPALABRA', length('UNAPALABRA')-1));

[[Fenareth]]

Empezado por donald shimoda

Excelente! Solo te falto que el primer char sea mayusucula como pide el amigo. El dice que esta en mayusculas ya, pero por si acaso...

No recordaba si Delphi comenzaba a contar lo caracteres de string en 0 o en 1 de ahí la confusión...

Y claro !, yo consideré como él dijo, que la primera letra ya estaba en mayúsculas...

Saludos

[ContraVeneno]

¿por qué AnsiLowerCase y no LowerCase?

[[Fenareth]]

Empezado por ContraVeneno

¿por qué AnsiLowerCase y no LowerCase?

Por eso digo que AnsiLowerCase y AnsiUpperCase

Código Delphi [-]
var apellido:string;
     i,j:integer;

begin

     for i:=1 to Table.RecordCount do
     begin
            apellido:= Tabla.FieldByName('Apellido').AsString;

           apellido[1]:=ansiuppercase(apellido[1]);
            for j:=2 to length(apellido) do
            begin
                        apellido[j]:=ansilowercase(apellido[j]);
            end;
            Tabla.FieldByName('Apellido').AsString:=apellido;
     end;
end;

[donald shimoda]

Empezado por ContraVeneno

¿por qué AnsiLowerCase y no LowerCase?

M... eso si que me deja helado.

Nunca se deja de aprender, que bueno!

[Camilo]

Hola amigos, estaba afuera y acabo de volver por lo que les presento disculpas.
Ensaye este codigo::

var
apellido: string;
i,j: integer;

begin

for i:=1 to TablePersonas.RecordCount do
begin
apellido:= TablePersonas.FieldByName('Ape1').AsString;
apellido[1]:=ansiuppercase(apellido[1]);
for j:=2 to length(apellido) do
begin
apellido[j]:=ansilowercase(apellido[j]);
end;
TablePersonas.FieldByName('Ape1').AsString:=apellido;
end;

end;

y me sale este mensaje de error en la compilacion:

[Error] Unit1.pas(115): Incompatible types: 'Char' and 'String'
[Error] Unit1.pas(118): Incompatible types: 'Char' and 'String'

[donald shimoda]

Empezado por Camilo

Hola amigos, estaba afuera y acabo de volver por lo que les presento disculpas.
Ensaye este codigo::

y me sale este mensaje de error en la compilacion:

Amigo la mejor opción es la que da contra veneno.

Por otro lado te da ese error porque efectivamente la función espera como argumento un string, no un char

Así que ahí se complica, deberías copiar el char a un string, pasarlo devolverlo, un rollo, ensaya la otra solucion, algo criptica pero funciona segun dicen.

Saludos.

[[egostar]]

Hola

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  apellido: string;
begin
  apellido := Tabla.FieldByName('Apellido').AsString;
  apellido := apellido[1]+AnsiLowerCase(Copy(apellido,2,length(apellido)));
  ShowMessage(apellido);
end;

Salud OS

[Camilo]

Muchachos mil gracias, seguire ensayando con todos los elementos aportados por ustedes.

Gracias por su tiempo y un abrazo a todos.