Tema: Actualizar mayusculas
Ver Mensaje Individual
  #12  
Antiguo 19-07-2008
[egostar] egostar is offline
Registrado
  
Registrado: feb 2006
Posts: 6.572
Reputación: 27
egostar Va camino a la fama
Hola

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  apellido: string;
begin
  apellido := Tabla.FieldByName('Apellido').AsString;
  apellido := apellido[1]+AnsiLowerCase(Copy(apellido,2,length(apellido)));
  ShowMessage(apellido);
end;

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita