Fórum Dúvidas com Label #232293

14/05/2004

0

Delphi

Olá. Eu tenho um Form com um Label e dois Buttons. No Primeiro Botão, gera um loop para colocar no Label os número de 1 a 10, só que um em baixo do outro - Detalhe: Uso Label1.Caption := Label1.Caption + IntToStr(i) + #13(Quebra de Linha) - O Que acontece e que sempre sobra uma linha a mais, como eu posso tirar essa linha, através do segundo botão.

Grato.


Márcio Sousa

Márcio Sousa

Responder

Posts

14/05/2004

Paulo_amorim

Olá

Não sei se Trim tira o #13...se sim, então já tem a resposta

Se não, pode-se utilizar a função Delete
a função Copy (até Length -1 )

ou ainda, se preferir, não incluir o 13 depois, mas sim ANTES da String.
Claro, isso vai fazr com que tua primeira linha tenha um 13 antes, mas isos re resolve com um IF

Até+


Responder

Gostei + 0

14/05/2004

Márcio Sousa

Muito Obrigado. Resolveu


Responder

Gostei + 0

14/05/2004

Marcelo Saviski

Não sei se Trim tira o #13

Oi, só a título de esclarecimento, sim, o Trim, TrimLeft, TrimRight limpam tudo em que o seu valor ascii seja menor que o do espaço (´ ´ = 32 = $20)
consequentemente o 13


Responder

Gostei + 0

14/05/2004

Paulo_amorim

Olá

[quote:69b3926019=´Márcio Sousa´]Muito Obrigado. Resolveu[/quote:69b3926019]
Disponha

[quote:69b3926019=´Marcelo Saviski´]
Não sei se Trim tira o #13

Oi, só a título de esclarecimento, sim, o Trim, TrimLeft, TrimRight limpam tudo em que o seu valor ascii seja menor que o do espaço (´ ´ = 32 = $20)
consequentemente o 13[/quote:69b3926019]

Obrigado, não sabia


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar