Blog do Regis –; Meus aprendizados

Heute hatte ich ein altes System getan in Delphi zum Generieren von Dateien mit einigen Informationen ändern. Nestas informações há elementos que se utilizam de caracteres não Alpha-numéricos como “;:”; e “;/”; und siehe, zu meiner Überraschung bin ich verpflichtet, sie zu entfernen.

Procurei por uma função que substituísse caracteres como “;Ç”; para “;C”; und fand nur Entfernung Funktionen.

Dann habe ich meine, das ist knapp unter.

{
  Sonderzeichen für ASCII-Entsprechungen ersetzt
}
Funktion ReplaceNonAscii(const s: Zeichenfolge) : Zeichenfolge;
Var ich, POS: Ganze Zahl;
const undesiredchars : Zeichenfolge = ' / ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ × ØÙÜÚÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùüúþÿ';
const ersetzt : Zeichenfolge = 'AAAAAAACEEEEIIIIDNOOOOOxOUUUbBaaaaaaaceeeeiiiionooooo Ouuuby';
Begin
  SetLength(Ergebnis, Länge(s));
  denn ich := 1 Länge(s) do
    begin
      pos :Ord =(s[Ich]);
      if (s[Ich] in [#32, #48..#57, #65..#90, #97..#122]) then
        Result[Ich] := s[Ich]
      else
        begin
          pos := AnsiPos(s[Ich], undesiredchars);
          Ergebnis[Ich] := ersetzt[POS + 1];
        Ende;
    Ende;

Ende;