Cita:
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:
Código:
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:
Código:
procedure TForm1.Table1NameGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text:= FirstUp(TField(Sender).AsString);
end;
Saludos.