Editar mayúsculas a solo primera en mayúscula por todos los registros

[ecfisa]

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;

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.