Wie kann ich ersetzen ein besonderes Zeichen in einer angegebenen Zeichenfolge mit Leerzeichen oder ohne Leerzeichen mithilfe von delphi

Wie kann ich ersetzen spezielle Zeichen in einer angegebenen Zeichenfolge mit Leerzeichen, oder entfernen Sie es einfach, durch die Verwendung von Delphi? Das folgende funktioniert in C#, aber ich weiß nicht wie er geschrieben in Delphi.

public string RemoveSpecialChars(string str)
{
    string[] chars = new string[] { ",", ".", "/", "!", "@", "#", "$", "%", "^", "&", "*", "'", "\"", ";","_","(", ")", ":", "|", "[", "]" };

    for (int i = 0; i< chars.Lenght; i++)
    {
        if (str.Contains(chars[i]))
        {
            str = str.Replace(chars[i],"");
        }
    }
    return str;
}

InformationsquelleAutor user3345195 | 2014-02-24

  1. 8

    Ich würde schreiben Sie die Funktion wie folgt:

    function RemoveSpecialChars(const str: string): string;
const
  InvalidChars : set of char =
    [',','.','/','!','@','#','$','%','^','&','*','''','"',';','_','(',')',':','|','[',']'];
var
  i, Count: Integer;
begin
  SetLength(Result, Length(str));
  Count := 0;
  for i := 1 to Length(str) do
    if not (str[i] in InvalidChars) then
    begin
      inc(Count);
      Result[Count] := str[i];
    end;
  SetLength(Result, Count);
end;

    Die Funktion ist ziemlich offensichtlich, wenn Sie sehen, es aufgeschrieben. Ich bevorzuge es, zu versuchen zu vermeiden, die Durchführung einer großen Anzahl von heap-Zuweisungen, die ist, warum der code pre-reserviert einen Puffer und dann Finalisiert seiner Größe am Ende der Schleife.

    Bedeutet es ich muss FreeAndNil das Ergebnis dieser Funktion, nachdem ich es?
    Nein, überhaupt nicht, es ist ein string

    InformationsquelleAutor David Heffernan

  2. 2

    Eigentlich ist es StringReplace Funktion in der unit StrUtils, die kann z.B. so verwendet werden:

    uses StrUrils;

...

var
  a, b: string;
begin
  a := 'Google is awesome! I LOVE GOOGLE.';
  b := StringReplace(a, 'Google', 'Microsoft', [rfReplaceAll, rfIgnoreCase]); 
  // b will be 'Microsoft is awesome! I LOVE Microsoft'
end;

    So können Sie den code schreiben, der in fast der gleichen Weise, wie Sie in C# (anstelle von Enthält Sie können Verwendung der Pos-Funktion hier). Aber ich würde empfehlen, mit HeartWare's Ansatz, da sollte es viel effizienter.

    Funktioniert dies nicht. OP bittet um Zeichen zu ersetzen, nicht einen string. Ich Frage mich, ob wir diese Funktion nutzen können, zu ändern, einen pool von Zeichenfolgen zu einer Zeichenfolge.

    InformationsquelleAutor AlexP11223

  3. 0

    Versuchen, diese:

    FUNCTION RemoveSpecialChars(CONST STR : STRING) : STRING;
  CONST
    InvalidChars : SET OF CHAR = [',','.','/','!','@','#','$','%','^','&','*','''','"',';','_','(',')',':','|','[',']'];

  VAR
    I : Cardinal;

  BEGIN
    Result:='';
    FOR I:=1 TO LENGTH(STR) DO
      IF NOT (STR[I] IN InvalidChars) THEN Result:=Result+STR[I]
  END;
    Können wir irgendeine andere Logik.. Andere als diese... Zu ersetzen spezielle Zeichen in einem gegebenen string

    InformationsquelleAutor HeartWare

  4. -1
    const
  InvalidChars  =
    [',','.','/','!','@','#','$','%','^','&','*','''','"',';','_','(',')',':','|','[',']'];

var
  // i, Count: Integer;
  str: String;

begin
  Writeln('please enter any Text');
  Readln(str);
  Writeln('The given Text is',str);
  Count := 0;
  for i := 1 to Length(str) do
    if (str[i] in InvalidChars) then
    begin
      str[i] := ' ';
      Write('');
    end;
  Writeln(str);
  Readln;
end.
    Diese gibt keine Antwort auf die Frage, die gestellt wurde
    Austausch mit Platz für die Frage.
    Schreiben auf die Konsole? Inline in der Hauptsache nicht als eine Funktion?

    InformationsquelleAutor user3345195

Schreibe einen Kommentar