Postagens

Mostrando postagens de fevereiro, 2012

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 ;