[Resolvido] Apagar todos os espaços

[Fernando Moraes 0]

E ai galera... dúvida de iniciante...

 

É meu primeiro post aqui no fórum... espero receber ajudas e no que puder ajudar farei o possivel... :D

 

Bom é o Seguinte....

 

Estou tentando apagar todos os espaços em branco em um Edit... porém está dando um erro... gostaria de ajudas pra saber onde eu estou errando e dicas...

 

Aqui vai o código...

 

procedure TForm1.Button4Click(Sender: TObject);

Var

i : integer;

begin

 

for i := 1 to length(Edit1.Text) do

begin

if (Edit1.Text[ i ]) = #32 then

Edit1.Text[ i ] := '';

end;

 

end;

 

*************** ERRO ***************

[Error] Unit1.pas(58): Left side cannot be assigned to

[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

 

-> Delphi 6

-> WIN98

 

Espero respostas... obrigado.. t+

[Fernando Moraes 0]

[RESOLVIDO]

 

 

procedure TForm1.Button4Click(Sender: TObject);

var

     i: Byte;

vtexto: string;

begin

vtexto := #32; // Atribuindo ** ESPAÇO (em Hexadecimal) ** à vtexto

for i := 1 to length(Edit1.Text) do

begin

if (copy(Edit1.Text, i, 1)) <> #32 then

Vtexto := Vtexto + copy(Edit1.Text, i, 1);

end;

Edit2.Text := VTexto;

end;

 

Bom, a lógica era mais ou menos aquela msm que estava ali antes....

 

só uma dúvida q ñ sei se postei certo...

 

vtexto := #32; // Atribuindo ** ESPAÇO (em Hexadecimal) ** à vtexto

 

**** Ñ SEI SE #32 é em Hexadecimal.......

 

e corrigindo o português... "receber ajudas" rrrs AJUDA

[thalesoli 0]

Voce pode usar a funcao q ja tem no delphi

 

Texto := 'teste teste ';

Texto := AnsiReplaceStr(Texto, #32, '');

isso ja irá subistituir todos os espaços em branco

[Fernando Moraes 0]

[ Melhor Ainda ]

 

Valeu amigo pela ajuda, ficou mais enxuto msm...

 

titulo de conhecimento...

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text := AnsiReplaceStr(Edit1.Text, #32, '');

end;

 

 

Valeu msm.. http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

[Fernando Moraes 0]

[ Melhor Ainda ]

 

Valeu amigo pela ajuda, ficou mais enxuto msm...

 

titulo de conhecimento...

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text := AnsiReplaceStr(Edit1.Text, #32, '');

end;

 

 

Valeu msm.. http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif