Dúvidas com Label

Delphi

14/05/2004

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

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

14/05/2004

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é+


GOSTEI 0
Márcio Sousa

Márcio Sousa

14/05/2004

Muito Obrigado. Resolveu


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

14/05/2004

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


GOSTEI 0
Paulo_amorim

Paulo_amorim

14/05/2004

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


GOSTEI 0
POSTAR