Hola Martín.
Con referencia a la función probá si de este modo te resulta más eficiente:
Código Delphi
[-]
function FirstUpper(Cad: string): string;
var
i: Integer;
begin
for i:= 1 to Length(Cad) do
if (Cad[i] in ['A'..'Z','Á','É','Í','Ó','Ú','Ñ']) and (i <> 1) and (Cad[i-1] <> ' ') then
Cad[i]:= Chr(Ord(Cad[i])+32);
Result:= Cad;
end;
Cita:
El tema es como aplico esta función u otra a todos los registros de la tabla agentes para que acomode el campo nombres de acuerdo al formato que necesito?
|
En cuanto a aplicar la función, si está realizada en Delphi como las anteriores, vas a tener que recorrer la tabla con el componente que utilices e ir modificando los campos.
A modo de ejemplo:
Código Delphi
[-]
...
with IBDataSet1 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('NOMBRE').AsString:= FirstUpper(FieldByName('NOMBRE').AsString);
Next;
end;
end;
...
Saludos.