Unificar nombres y apellidos

[dtomeysoto]

amigo, ya revisé el post pero no me sirve para lo que necesito. recuerda que ya toda la información está en una base de datos, solo tengo que recorrer la tabla en cuestión e ir aplicando la "función" para lograr el resultado que deseo.

[ecfisa]

Empezado por dtomeysoto

amigo, ya revisé el post pero no me sirve para lo que necesito. recuerda que ya toda la información está en una base de datos, solo tengo que recorrer la tabla en cuestión e ir aplicando la "función" para lograr el resultado que deseo.

Hola de nuevo, el link era sólo para aproximar una idea.

Basándome en código de rgstuamigo:

function FirstUp(APasar: string): string;
var
  i: Integer;
begin
  Result:= LowerCase(APasar);
  for i:= 1 to Length(APasar) do
   if ((i = 1) or (Result[i-1] = ' ')) and (Result[i] in ['a'..'z']) then
      Result[i]:= Upcase(Result[i]);
end;

Un ejemplo de uso:

procedure TForm1.Table1NameGetText(Sender: TField; var Text: String;
    DisplayText: Boolean);
begin
   Text:= FirstUp(TField(Sender).AsString);
end;

Saludos.