Buscar por:

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