Fórum como remover ponto e / ??? #295974

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;

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;

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

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

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