como remover ponto e / ???

Delphi

18/09/2005

gostaria de remover no OnEnter do edit . (ponto) e barra de data (/)

agradeço desde já!


Njuniorba

Njuniorba

Curtidas 0

Respostas

Marco Salles

Marco Salles

18/09/2005

procedure TForm1.Edit1Enter(Sender: TObject);
var
 i:Integer;
 texto:String;
 tamanho:Integer;
begin
 Texto:=Edit1.Text;
 tamanho:=Length(edit1.Text);
 i:=1;
 while i <= tamanho do
 begin
   if (pos(Texto[i],´.´) > 0)or
      (pos(Texto[i],´/´) > 0) Then
     begin
      delete(texto,i,1);
      i:=i-1;
      tamanho:=tamanho-1;
     end;
   i:=i+1;
 end;
 edit1.Text:=Texto;
end;



GOSTEI 0
Marco Salles

Marco Salles

18/09/2005

outra forma :

procedure TForm1.Edit1Enter(Sender: TObject);
var
i:Integer;
texto:String;
begin
texto:=´´;
for i:=1 to length(edit1.text) do
  if (edit1.text[i] <> ´.´)and
     (edit1.text[i] <> ´/´) then
     texto:=Texto+Edit1.text[i];
edit1.text:=texto;
end;



GOSTEI 0
Michelli88

Michelli88

18/09/2005

Uma forma bem prática:

procedure TForm2.Button2Click(Sender: TObject);
var
  str: String;
begin
  str:= StringReplace(Edit2.Text,´.´,´´, [rfReplaceAll]);
  str:= StringReplace(Edit2.Text,´/´,´´, [rfReplaceAll]);
  Edit3.Text:=str;
end;



GOSTEI 0
Marco Salles

Marco Salles

18/09/2005

é tinha me esquecido desta função.. Mas para funcionar do jeito que ele descreveu , ele deve fazer uma pequena correção

procedure TForm2.Button2Click(Sender: TObject); var str: String; begin str:= StringReplace(Edit2.Text,´.´,´´, [rfReplaceAll]); str:= StringReplace(Edit2.Text,´/´,´´, [rfReplaceAll]); Edit3.Text:=str; end;


para

procedure TForm2.Button2Click(Sender: TObject); 
var 
  str: String; 
begin 
  str:= StringReplace(Edit2.Text,´.´,´´, [rfReplaceAll]); 
  str:= StringReplace(str,´/´,´´, [rfReplaceAll]); 
  Edit3.Text:=str; 
end;


[b:08e0b88ffc]melhor ainda no evento onenter , com ele mesmo sugeriu[/b:08e0b88ffc]

procedure TForm1.Edit1Enter(Sender: TObject);
var
  str: String;
begin
  str:= StringReplace(Edit1.Text,´.´,´´, [rfReplaceAll]);
  str:= StringReplace(str,´/´,´´, [rfReplaceAll]);
  Edit1.Text:=str;
end;



GOSTEI 0
POSTAR