Autor Beitrag
kiwicht
ontopic starontopic starontopic starontopic starontopic starofftopic starofftopic starofftopic star
Beiträge: 1021

Win 7, MacOS
Delphi x, VBA, PHP, ...
BeitragVerfasst: Do 15.07.04 09:18 
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:

ausblenden 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
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1696
Erhaltene Danke: 1

Win XP, Debian Lenny
Delphi 6 Personal
BeitragVerfasst: 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 ;)

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.
kiwicht Threadstarter
ontopic starontopic starontopic starontopic starontopic starofftopic starofftopic starofftopic star
Beiträge: 1021

Win 7, MacOS
Delphi x, VBA, PHP, ...
BeitragVerfasst: 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!