procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := copy(texto,1, posicao); // Veja no help COPY
inc(posicao) ; // Função que incrementa um valor a um cardinal, veja
mais detalhes no HELP INC
if posicao > length(texto) then
{ verifica se o valor da variável POSICAO é maior que a quantidade de
caracteres da variavel TEXTO
veja no HELP LENGTH
Se for maior passamos o valor da variável POSICAO para 1, por que uma
String é um vetor de caracteres que começa da posição um e não da
posição 0, por isso o exemplo anterior não funcionou.
Então quando você usa a função COPY você esta pegando um texto de uma
posição inicial (1) até a posição final atribuída na variável POSICAO
}
posicao := 1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Não criação do formulário atribuímos os valores das variáveis.
texto := 'Olá mundo!';
posicao := 1;
end;
Eduardo
werelli escreveu:
>
> Olá Eduardo!
>
> Obrigado pela força, valeu mesmo funcionou bem, mas se não for abusar
> da sua boa vontade, pode me explicar o código, é que algumas partes
> não me ficou claro.
> Se puder agradeço, se não der deixa pra lá! Já me ajudou bastante.
> atenciosamente,
>
> werelli
>
> __________________________________________________
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
_______________________________________________________
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
