Capitalizar Strings no Delphi

Pessoal, segue uma função para quem quiser colocar somente a primeira letra maiúscula na string. Legal para padronizar descrições em cadastros.



function Capitaliza(const s: string): string;
//capitaliza a string passada como parametro
var
  flag: boolean;
  i : Byte;
  t : string;
BEGIN
  flag := TRUE;
  t := '';
  for i := 1 to LENGTH(s) do
  begin
    if flag then
      AppendStr(t, UpCase(s[i]))
    else
      AppendStr(t, s[i]);
    flag := (s[i] = ' ')
  end;
  Result := t
end ;

Comentários

Postagens mais visitadas deste blog

[resolvido] USB To Serial Prolific no Windows 7 e 8x e 10

Corrigir BAD_SYSTEM_CONFIG_INFO no Windows 7,8, 8.1, 10

Como Alterar o Perfil da Rede Pública para Privada no “Windows 8.1″ e “Windows Server 2012″