Ir ao conteúdo
  • Cadastre-se

Function uppercasefirsts(value: strfunction string


Bravo

Posts recomendados

Colegas, preciso de ajuda.

Tenho a Função abaixo:

function UpperCaseFirsts(Value: String): String;

//

// Converte a primeira letra de uma string para maiuscula

//

var

P: Integer;

Word: String;

begin

Result := '';

Value := Trim(Value);

repeat

    P := Pos(' ', Value);

    if P <= 0 then

       begin

       P := Length(Value) + 1;

       end;

    Word := UpperCase(Copy(Value, 1, P-1));

    if (Length(Word) <= 2) or (Word = 'DAS') or (Word = 'DOS') then

       begin

       Result := Result + Copy(Value, 1, P-1)

       end

    else

       begin

       Result := Result + UpperCase(Value[1]) + Copy(Value, 2, P-2);

       end;

    Delete(Value, 1, P);

    if Value <> '' then

       begin

       Result := Result + ' ';

       end;

until Value = '';

end;

Pergunto:

Como declaro esta função em um DBEdit?

Outra Pergunta:

Como faço para deixar em formato moeda em um StringGrid?

Grato,

Euber

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...