Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Aus einem String die Ziffern entfernen


kiwicht - Do 15.07.04 09:18
Titel: Aus einem String die Ziffern entfernen
ollá zusammen

ich versuche mit folgendem "Algo" einen String, der einen Strassennamen enthält auf Ziffern (Hausnummer) zu überprüfen, und diese dann zu entfernen:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
  for i := 0 to Length(strasse) do
  begin
    if strasse[i] = '0' OR    if strasse[i] = '1' OR    if strasse[i] = '2' OR
    if strasse[i] = '3' OR    if strasse[i] = '4' OR    if strasse[i] = '5' OR
    if strasse[i] = '6' OR    if strasse[i] = '7' OR    if strasse[i] = '8' OR
    if strasse[i] = '9' then  strasse[i] := ''
  end;


meine erste Frage:

geht das ganze auch einfacher, kompakter?

und meine 2. Frage, wenn die erste zu verneinen ist:
>> strasse[i] := ''; << führt zu "String - Char - Inkompatibilität" ...

ist ja auch logisch eigentlich... nur was könnte ich anders tun, um die Ziffern da rauszubekommen mit meinem Script?

danke euch schonma

ki


maxk - Do 15.07.04 09:42

for i:=length(strasse) downto 1 do if strasse[i] in ['0'..'9'then Delete(strasse,i,1);Nicht getestet ;)


kiwicht - Do 15.07.04 10:17

hehe... klingt aber gut... dann übernehm ich mal das Testen :D

Dank dir!

ki

//EDIT

jap, funzt einwandfrei!

many thx!