Actualizar mayusculas

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