Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Zeichen entfernen


jamany - So 30.03.03 16:20
Titel: Zeichen entfernen
Wie müsste ich folgenden PHP-Code in Delphi schreiben?


Quelltext 
1:
2:
3:
4:
 
    $s=strtoupper($s);
    $search="/[^A-ZäöüÄÖÜß0-9 ,\.\&\-\+\*\%\/\$]/";
    $replace="";
    $s=preg_replace($search,$replace,$s);


Müsste eben aus einem String alle Zeichen entfernen, außer a-z, Umlaute, ß, und Ziffern...


wulfskin - So 30.03.03 16:45
Hallo Jamany!

Da es leider keine Regulären Ausdrücke in Delphi gibt, musst du das selber erledigen. Ich würde das so machen:

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
 
function ReplaceChars(const S: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(S) do begin
    if not (S[I] in ['0'..'9', 'a'..'z', 'A'..'Z', 'ä'..'ü', 'Ä'..'Ü', 'ß') then
      Result := Result + S[I];
  end;
end;
// Ungetestet, keine Gewährleistung ;)
Gruß wulfskin!


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!