Buscar

Label na Vertical - Muito Simples

Código

Crie a função abaixo

function LabelVertifical(valor: String): String;
var i, c : Integer;
    co : String;
begin

  c := length(valor);
  co := '';

  for i:=0 to c do
  if valor[i] <> '' then
  co := co +valor[i]+#13;

  Result :=  copy(co,1,length(co));
  i := 0;
  c := 0;
  co := '';
end;

// Para funcionar a função.

 label1.caption := LabelVertifical(' Teste de Jonathan ');

 Até mais.
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 22/04/10
Por: Jonathan
Visualizada: 9499 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009