Re: [delphi-br] Remover espaços

2007-05-17 Por tôpico Moacir - Prisma 
Leonardo,

Use StringReplace para isto:

MinhaString:=StringReplace(MinhaString,' ','',[rfReplaceAll]);

[ ]´s
Moacir

ps.:

Em caso de nostalgia:

Function AllTrim( str : string ) : string;
begin
  
  Result := StringReplace(str,' ','',[rfReplaceAll]);
end;

;)

Leonardo Quinino escreveu:
 TESTEI do seu jeito, mas tem algo errado algumas vezes retira outras não,
 porque vc incrementa o iCont antes de fazer o delete na string vazia (#32)
 reescrevi  ficou mais ou menos assim

 //o nome alltrim foi só para relembrar os velhos tempos do clipper   rs :)
 Function AllTrim( str : string ) : string;
 var
   iCont: Integer;
   sStr: String;
 begin
   sStr := str;
   iCont := 1;
   while iCont = Length(sStr) do
   begin
 if sStr[iCont] = #32 then
begin
  Delete(sStr, iCont, 1);
  while sStr[iCont] = #32 do
  Delete(sStr, iCont, 1);
end;
 Inc(iCont);
   end;
   Result := sStr;
 end;


 Em 16/05/07, Malomar Alex Seminotti [EMAIL PROTECTED] escreveu:
   
   Dá uma olhada se isso é o que vc precisa.

 procedure OneSpace;
 var
 iCont: Integer;
 sStr: String;
 begin
 inherited;
 sStr := Trim(' TESTE DE VÁRIOS ESPAÇOS ');
 iCont := 1;
 while iCont = Length(sStr) do begin
 if sStr[iCont] = #32 then begin
 Inc(iCont);
 while sStr[iCont] = #32 do
 Delete(sStr, iCont, 1);
 end;
 Inc(iCont);
 end;
 ShowMessage(sStr);
 end;

 --
 []'s
 Malomar Alex Seminotti
 Erechim - RS

 Ricardo César Cardoso escreveu:


 
 Não me leve a mal, mas eu tinha citado isso, veja atentamente o exemplo
   
 que eu passei.
 
 Sds,
 Ricardo.

 BandaLemuel [EMAIL PROTECTED] bandalemuel%40yahoo.com.br
   
 escreveu: Ou somente Trim(string);
 
 Ele tira os espaços do Inicio e do Fim..

 Wesley
 - Original Message -
 From: Ricardo César Cardoso
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Tuesday, May 15, 2007 8:48 AM
 Subject: Re: [delphi-br] Remover espaços

 bem... vc teria que usar a função Trim para isso.

 Um exemplo:

 TForm1.Button1Click(Sender: TObject);
 Begin
 Label1.Caption := Trim(Edit1.Text);
 // Variações:
 // TrimLeft - tira os espaços à esquerda da string
 // TrimRight - tira os espaços à direita da string
 End;

 Agora é só adaptar pra tua necessidade.

 Sds,
 Ricardo.

 Diego Dmitruk Maturana [EMAIL PROTECTED] diego%40dlmnet.com.br
   
 escreveu: Olá, tenho no Delphi um campo DBEdit, e gostaria que quando a
 pessoa clicar em SALVAR, ele removesse mais de um espaço, caso a pessoa
 tenha digitado mais de um. EX: A pessoa digita Delphi BR, mas quero que ele
 filtre e salve como Delphi Br (somente com um espaço.)
 
 Se alguém puder ajudar agradeço.

 Diego.



   
 [As partes desta mensagem que não continham texto foram removidas]

  

 



   


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Remover espaços

2007-05-17 Por tôpico Malomar Alex Seminotti 

Justamente pq ele solicita que se o usuário digitar 2 espaços, fique 
apenas 1, mas a solução do Moacir talvez seja mais prática, trocando 2 
espaços entre as palavras por 1.

MinhaString := StringReplace(MinhaString,'  ',' ',[rfReplaceAll]);

Enfim, com estas soluções acho que o Diego consegue resolver o problema dele...

-- 
[]'s
Malomar Alex Seminotti
Erechim - RS


Leonardo Quinino escreveu:

TESTEI do seu jeito, mas tem algo errado algumas vezes retira outras não,
porque vc incrementa o iCont antes de fazer o delete na string vazia (#32)
reescrevi  ficou mais ou menos assim

//o nome alltrim foi só para relembrar os velhos tempos do clipper   rs :)
Function AllTrim( str : string ) : string;
var
  iCont: Integer;
  sStr: String;
begin
  sStr := str;
  iCont := 1;
  while iCont = Length(sStr) do
  begin
if sStr[iCont] = #32 then
   begin
 Delete(sStr, iCont, 1);
 while sStr[iCont] = #32 do
 Delete(sStr, iCont, 1);
   end;
Inc(iCont);
  end;
  Result := sStr;
end;


Em 16/05/07, Malomar Alex Seminotti [EMAIL PROTECTED] escreveu:
  

  Dá uma olhada se isso é o que vc precisa.

procedure OneSpace;
var
iCont: Integer;
sStr: String;
begin
inherited;
sStr := Trim(' TESTE DE VÁRIOS ESPAÇOS ');
iCont := 1;
while iCont = Length(sStr) do begin
if sStr[iCont] = #32 then begin
Inc(iCont);
while sStr[iCont] = #32 do
Delete(sStr, iCont, 1);
end;
Inc(iCont);
end;
ShowMessage(sStr);
end;

--
[]'s
Malomar Alex Seminotti
Erechim - RS

Ricardo César Cardoso escreveu:




Não me leve a mal, mas eu tinha citado isso, veja atentamente o exemplo
  

que eu passei.


Sds,
Ricardo.

BandaLemuel [EMAIL PROTECTED] bandalemuel%40yahoo.com.br
  

escreveu: Ou somente Trim(string);


Ele tira os espaços do Inicio e do Fim..

Wesley
- Original Message -
From: Ricardo César Cardoso
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Tuesday, May 15, 2007 8:48 AM
Subject: Re: [delphi-br] Remover espaços

bem... vc teria que usar a função Trim para isso.

Um exemplo:

TForm1.Button1Click(Sender: TObject);
Begin
Label1.Caption := Trim(Edit1.Text);
// Variações:
// TrimLeft - tira os espaços à esquerda da string
// TrimRight - tira os espaços à direita da string
End;

Agora é só adaptar pra tua necessidade.

Sds,
Ricardo.

Diego Dmitruk Maturana [EMAIL PROTECTED] diego%40dlmnet.com.br
  

escreveu: Olá, tenho no Delphi um campo DBEdit, e gostaria que quando a
pessoa clicar em SALVAR, ele removesse mais de um espaço, caso a pessoa
tenha digitado mais de um. EX: A pessoa digita Delphi BR, mas quero que ele
filtre e salve como Delphi Br (somente com um espaço.)


Se alguém puder ajudar agradeço.

Diego.

Re: [delphi-br] Remover espaços

2007-05-17 Por tôpico Diego Dmitruk Maturana 
Obrigado Malomar e Ricardo, suas respostas me ajudaram muito.

Um abraço.

Diego


  - Original Message - 
  From: Malomar Alex Seminotti 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, May 16, 2007 9:13 AM
  Subject: Re: [delphi-br] Remover espaços


  Dá uma olhada se isso é o que vc precisa.

  procedure OneSpace;
  var
  iCont: Integer;
  sStr: String;
  begin
  inherited;
  sStr := Trim(' TESTE DE VÁRIOS ESPAÇOS ');
  iCont := 1;
  while iCont = Length(sStr) do begin
  if sStr[iCont] = #32 then begin
  Inc(iCont);
  while sStr[iCont] = #32 do
  Delete(sStr, iCont, 1);
  end;
  Inc(iCont);
  end;
  ShowMessage(sStr);
  end;

  -- 
  []'s
  Malomar Alex Seminotti
  Erechim - RS

  Ricardo César Cardoso escreveu:

  Não me leve a mal, mas eu tinha citado isso, veja atentamente o exemplo que 
eu passei.
  
  Sds,
  Ricardo.
  
  BandaLemuel [EMAIL PROTECTED] escreveu: Ou somente Trim(string);
   
   Ele tira os espaços do Inicio e do Fim..
   
   Wesley
   - Original Message - 
   From: Ricardo César Cardoso 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Tuesday, May 15, 2007 8:48 AM
   Subject: Re: [delphi-br] Remover espaços
   
   bem... vc teria que usar a função Trim para isso.
   
   Um exemplo: 
   
   TForm1.Button1Click(Sender: TObject);
   Begin
   Label1.Caption := Trim(Edit1.Text);
   // Variações: 
   // TrimLeft - tira os espaços à esquerda da string
   // TrimRight - tira os espaços à direita da string
   End;
   
   Agora é só adaptar pra tua necessidade.
   
   Sds,
   Ricardo.
   
   Diego Dmitruk Maturana [EMAIL PROTECTED] escreveu: Olá, tenho no Delphi 
um campo DBEdit, e gostaria que quando a pessoa clicar em SALVAR, ele removesse 
mais de um espaço, caso a pessoa tenha digitado mais de um. EX: A pessoa digita 
Delphi BR, mas quero que ele filtre e salve como Delphi Br (somente com um 
espaço.)
   
   Se alguém puder ajudar agradeço.
   
   Diego.
   
   
  

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Remover espaços

2007-05-16 Por tôpico Leonardo Quinino 
TESTEI do seu jeito, mas tem algo errado algumas vezes retira outras não,
porque vc incrementa o iCont antes de fazer o delete na string vazia (#32)
reescrevi  ficou mais ou menos assim

//o nome alltrim foi só para relembrar os velhos tempos do clipper   rs :)
Function AllTrim( str : string ) : string;
var
  iCont: Integer;
  sStr: String;
begin
  sStr := str;
  iCont := 1;
  while iCont = Length(sStr) do
  begin
if sStr[iCont] = #32 then
   begin
 Delete(sStr, iCont, 1);
 while sStr[iCont] = #32 do
 Delete(sStr, iCont, 1);
   end;
Inc(iCont);
  end;
  Result := sStr;
end;


Em 16/05/07, Malomar Alex Seminotti [EMAIL PROTECTED] escreveu:

   Dá uma olhada se isso é o que vc precisa.

 procedure OneSpace;
 var
 iCont: Integer;
 sStr: String;
 begin
 inherited;
 sStr := Trim(' TESTE DE VÁRIOS ESPAÇOS ');
 iCont := 1;
 while iCont = Length(sStr) do begin
 if sStr[iCont] = #32 then begin
 Inc(iCont);
 while sStr[iCont] = #32 do
 Delete(sStr, iCont, 1);
 end;
 Inc(iCont);
 end;
 ShowMessage(sStr);
 end;

 --
 []'s
 Malomar Alex Seminotti
 Erechim - RS

 Ricardo César Cardoso escreveu:


 Não me leve a mal, mas eu tinha citado isso, veja atentamente o exemplo
 que eu passei.
 
 Sds,
 Ricardo.
 
 BandaLemuel [EMAIL PROTECTED] bandalemuel%40yahoo.com.br
 escreveu: Ou somente Trim(string);
 
  Ele tira os espaços do Inicio e do Fim..
 
  Wesley
  - Original Message -
  From: Ricardo César Cardoso
  To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  Sent: Tuesday, May 15, 2007 8:48 AM
  Subject: Re: [delphi-br] Remover espaços
 
  bem... vc teria que usar a função Trim para isso.
 
  Um exemplo:
 
  TForm1.Button1Click(Sender: TObject);
  Begin
  Label1.Caption := Trim(Edit1.Text);
  // Variações:
  // TrimLeft - tira os espaços à esquerda da string
  // TrimRight - tira os espaços à direita da string
  End;
 
  Agora é só adaptar pra tua necessidade.
 
  Sds,
  Ricardo.
 
  Diego Dmitruk Maturana [EMAIL PROTECTED] diego%40dlmnet.com.br
 escreveu: Olá, tenho no Delphi um campo DBEdit, e gostaria que quando a
 pessoa clicar em SALVAR, ele removesse mais de um espaço, caso a pessoa
 tenha digitado mais de um. EX: A pessoa digita Delphi BR, mas quero que ele
 filtre e salve como Delphi Br (somente com um espaço.)
 
  Se alguém puder ajudar agradeço.
 
  Diego.
 
 
 

 [As partes desta mensagem que não continham texto foram removidas]

  




-- 
Leonardo Quinino


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Remover espaços

2007-05-16 Por tôpico Malomar Alex Seminotti 
Dá uma olhada se isso é o que vc precisa.

procedure OneSpace;
var
  iCont: Integer;
  sStr: String;
begin
  inherited;
  sStr := Trim('  TESTE  DE   VÁRIOS ESPAÇOS');
  iCont := 1;
  while iCont = Length(sStr) do begin
if sStr[iCont] = #32 then begin
  Inc(iCont);
  while sStr[iCont] = #32 do
Delete(sStr, iCont, 1);
end;
Inc(iCont);
  end;
  ShowMessage(sStr);
end;

-- 
[]'s
Malomar Alex Seminotti
Erechim - RS




Ricardo César Cardoso escreveu:

Não me leve a mal, mas eu tinha citado isso, veja atentamente o exemplo que eu 
passei.

Sds,
Ricardo.

BandaLemuel [EMAIL PROTECTED] escreveu:  
Ou somente Trim(string);
 
 Ele tira os espaços do Inicio e do Fim..
 
 Wesley
   - Original Message - 
   From: Ricardo César Cardoso 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Tuesday, May 15, 2007 8:48 AM
   Subject: Re: [delphi-br] Remover espaços
 
 bem... vc teria que usar a função Trim para isso.
 
 Um exemplo: 
 
 TForm1.Button1Click(Sender: TObject);
   Begin
   Label1.Caption := Trim(Edit1.Text);
   // Variações: 
   // TrimLeft - tira os espaços à esquerda da string
   // TrimRight - tira os espaços à direita da string
   End;
 
 Agora é só adaptar pra tua necessidade.
 
 Sds,
   Ricardo.
 
 Diego Dmitruk Maturana [EMAIL PROTECTED] escreveu: Olá, tenho no Delphi um 
 campo DBEdit, e gostaria que quando a pessoa clicar em SALVAR, ele removesse 
 mais de um espaço, caso a pessoa tenha digitado mais de um. EX: A pessoa 
 digita Delphi BR, mas quero que ele filtre e salve como Delphi Br (somente 
 com um espaço.)
 
 Se alguém puder ajudar agradeço.
 
 Diego.
 
  




[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Remover espaços

2007-05-15 Por tôpico Ricardo César Cardoso 
bem... vc teria que usar a função Trim para isso.

Um exemplo: 

TForm1.Button1Click(Sender: TObject);
Begin
  Label1.Caption := Trim(Edit1.Text);
  // Variações: 
  // TrimLeft - tira os espaços à esquerda da string
  // TrimRight - tira os espaços à direita da string
End;

Agora é só adaptar pra tua necessidade.

Sds,
Ricardo.

Diego Dmitruk Maturana [EMAIL PROTECTED] escreveu:
  Olá, tenho no Delphi um campo DBEdit, e gostaria que quando a pessoa 
clicar em SALVAR, ele removesse mais de um espaço, caso a pessoa tenha digitado 
mais de um. EX: A pessoa digita Delphi   BR, mas quero que ele filtre e salve 
como Delphi Br (somente com um espaço.)
 
 Se alguém puder ajudar agradeço.
 
 Diego.
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 _



 __
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Remover espaços

2007-05-15 Por tôpico BandaLemuel 
Ou somente Trim(string);

Ele tira os espaços do Inicio e do Fim..

Wesley
  - Original Message - 
  From: Ricardo César Cardoso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, May 15, 2007 8:48 AM
  Subject: Re: [delphi-br] Remover espaços


  bem... vc teria que usar a função Trim para isso.

  Um exemplo: 

  TForm1.Button1Click(Sender: TObject);
  Begin
  Label1.Caption := Trim(Edit1.Text);
  // Variações: 
  // TrimLeft - tira os espaços à esquerda da string
  // TrimRight - tira os espaços à direita da string
  End;

  Agora é só adaptar pra tua necessidade.

  Sds,
  Ricardo.

  Diego Dmitruk Maturana [EMAIL PROTECTED] escreveu: Olá, tenho no Delphi um 
campo DBEdit, e gostaria que quando a pessoa clicar em SALVAR, ele removesse 
mais de um espaço, caso a pessoa tenha digitado mais de um. EX: A pessoa digita 
Delphi BR, mas quero que ele filtre e salve como Delphi Br (somente com um 
espaço.)

  Se alguém puder ajudar agradeço.

  Diego.

  [As partes desta mensagem que não continham texto foram removidas]



  _

  __
  Fale com seus amigos de graça com o novo Yahoo! Messenger 
  http://br.messenger.yahoo.com/ 

  [As partes desta mensagem que não continham texto foram removidas]



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.467 / Virus Database: 269.7.0/804 - Release Date: 14/5/2007 16:46


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Remover espaços

2007-05-15 Por tôpico Ricardo César Cardoso 
Não me leve a mal, mas eu tinha citado isso, veja atentamente o exemplo que eu 
passei.

Sds,
Ricardo.

BandaLemuel [EMAIL PROTECTED] escreveu:   
   Ou somente Trim(string);
 
 Ele tira os espaços do Inicio e do Fim..
 
 Wesley
   - Original Message - 
   From: Ricardo César Cardoso 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Tuesday, May 15, 2007 8:48 AM
   Subject: Re: [delphi-br] Remover espaços
 
 bem... vc teria que usar a função Trim para isso.
 
 Um exemplo: 
 
 TForm1.Button1Click(Sender: TObject);
   Begin
   Label1.Caption := Trim(Edit1.Text);
   // Variações: 
   // TrimLeft - tira os espaços à esquerda da string
   // TrimRight - tira os espaços à direita da string
   End;
 
 Agora é só adaptar pra tua necessidade.
 
 Sds,
   Ricardo.
 
 Diego Dmitruk Maturana [EMAIL PROTECTED] escreveu: Olá, tenho no Delphi um 
campo DBEdit, e gostaria que quando a pessoa clicar em SALVAR, ele removesse 
mais de um espaço, caso a pessoa tenha digitado mais de um. EX: A pessoa digita 
Delphi BR, mas quero que ele filtre e salve como Delphi Br (somente com um 
espaço.)
 
 Se alguém puder ajudar agradeço.
 
 Diego.
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 _
 
 __
   Fale com seus amigos de graça com o novo Yahoo! Messenger 
   http://br.messenger.yahoo.com/ 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 --
 
 No virus found in this incoming message.
   Checked by AVG Free Edition. 
   Version: 7.5.467 / Virus Database: 269.7.0/804 - Release Date: 14/5/2007 
16:46
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
  



 __
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Remover espaços

2007-05-14 Por tôpico Diego Dmitruk Maturana 
Olá, tenho no Delphi um campo DBEdit, e gostaria que quando a pessoa clicar em 
SALVAR, ele removesse mais de um espaço, caso a pessoa tenha digitado mais de 
um. EX: A pessoa digita Delphi   BR, mas quero que ele filtre e salve como 
Delphi Br (somente com um espaço.)

Se alguém puder ajudar agradeço.

Diego.

[As partes desta mensagem que não continham texto foram removidas]