Buscar

Remove Espaços de uma String

Código

//Este exemplo utiliza uma string de tamanho 50
//p/string maior é só ajustar o parametro do array

Function RemoveEspaco(texto: string): string;
var
LocEspVaz:array[1..50] of string;
I,J: integer;
aux,Caracter: string;
begin
aux:= '';
for I:=1 to Length(texto) do
  begin
  Caracter:=copy(texto,i,1);
  if (Caracter<>' ') then
    LocEspVaz[i]:= copy(texto,i,1);
  end;
for J:=1 to Length(texto) do
  begin
  aux:=aux+LocEspVaz[J];
end;
result:= aux;
end;

//Duvidas rodrigo@princar.com.br ou
//rodrigo.nakandakari@itelefonica.com.br

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Forms
Adicionada dia: 07/06/10
Por: Rodrigo Nakandakari
Visualizada: 5355 vezes

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