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 ;