Retirada de espa~ços em brando de um string...
:oops: Caros Amigos....sei que pode pareçer uma pergunta de facil resolução mais como faço para retirar espaços em branco de um String....Já usei Trim e o StringReplace e nada....ajude-me por favor....
Anonymous
Curtidas 0
Respostas
Anonymous
08/04/2003
faça uma função e faça o seguinte:
function spacesout(linha:String):String;
var
i:integer;
R:string;
begin
R := ´´;
for i := 1 to length(linha) do
begin
if linha[i] = ´ ´ then
R := R + ´´
else
R := R + linha[i]
end;
end; :D :D
function spacesout(linha:String):String;
var
i:integer;
R:string;
begin
R := ´´;
for i := 1 to length(linha) do
begin
if linha[i] = ´ ´ then
R := R + ´´
else
R := R + linha[i]
end;
end; :D :D
GOSTEI 0