2008/10/15 Rubem Nascimento da Rocha <[EMAIL PROTECTED]>:
>
>
> if not AllowEmpty then
> for i := 0 to Count - 1 do
> while (List[i] = EmptyStr) and Boolean(List.Count) do
No seu lugar eu removeria o while e colocaria um for downto, além de
tirar esse hack do código e ajudar o caboclo a escrever código limpo.
> { Conta quantas palavras existem em uma string }
> function CountWords(S: string): integer;
> begin
> with TStringList.Create do
Por que não usar o for? TStrings além de usar o heap tem um código
mais complexo para uma tarefa simples.
--
Joao Morais
> try
> Delimiter := ' ';
> DelimitedText := S;
> Result := Count;
> finally
> Free
> end
> end;
>
>
> Sds.,
>
> Rubem Rocha
> Manaus, AM
> _________________________________________________________________
> Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
> http://www.amigosdomessenger.com.br/
> ------------------------------------
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
