Fórum Caracteres Especiais #325622

function CharEspeciais(Texto:String):String;
var
i,t:integer;
begin
t:=length(texto);
i:=1;
While i <= t do
  begin
   if texto[i] in [´1´..´9´,´a´..´z´,´A´..´Z´] Then
     result:=result+Texto[i];
   i:=i+1;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=CharEspeciais(Edit1.text);
end;

function RetiraCaracteresEspeciais(Texto: string;
  Caracteres: array of Char): string;
var
  Cont: Smallint;
  StrCaractere: string;
begin
  for Cont := 0 to Length(Caracteres)-1 do
    Texto := StringReplace(Texto, Caracteres[Cont], ´´, [rfReplaceAll, rfIgnoreCase]);
  Result := Texto
end;

procedure Chamadora;
const
  Caracteres: array [0..11] of char = (´"´, ´!´, ´´, ´@´, ´$´, ´¬´,´¨´,´&´,´*´,´(´,´)´,´(´);
var 
  Texto: string;
begin
  Texto := $adsf$¨$$¬´;
  Texto  := RegiraCaracteresEspeciais(Texto , Caracteres);
  ShowMessage(Texto);
end;