Buscar

Limitar uma String num tamanho X de caracteres

Código

function retorna_string(texto_original:string;tam_max:integer):string;
var
  i:integer; // variavel contadora
  texto_final:string; // variavel auxiliar para retorno da string
begin
  texto_final:=''; // inicializa variavel
  for I:=1 to tam_max do
  begin
    texto_final:=texto_final+texto_original[i]; // armazena caracteres até o num. X de caracteres
  end;
  result:=(texto_final); // retorna variavel do tamanho desejado
end;

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Forms
Adicionada dia: 01/07/10
Por: Turco
Visualizada: 8126 vezes

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