Código
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.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009