Hola amigos, estaba afuera y acabo de volver por lo que les presento disculpas.
Ensaye este codigo::
Cita:
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:
Cita:
[Error] Unit1.pas(115): Incompatible types: 'Char' and 'String'
[Error] Unit1.pas(118): Incompatible types: 'Char' and 'String'
|