Actualizar mayusculas

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

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