Vokale entfernen

[himitsu]

@mkinzler: Die Aufgabe ist die Verwendung von Delete
(glaub ich zumindestens so verstanden zu haben)


Kennt ihr IN schon?

Delphi-Quellcode:

if s[index] in ['a', 'A', 'e', ...] then 
  Delete(s, index, 1);

// entspricht
if (s[index] = 'a') or (s[index] = 'A') or (s[index] = 'e') or ... then 
  Delete(s, index, 1);

Und nicht vergessen ... beim Löschen solltest du die Schleife rückwärts (downto) laufen lassen, da sich beim Löschen der Index verschiebt, was in einer Vorschleife nicht angepaßt wird, es sei denn man rechnet einen Offset mit ein oder verwendet eine While-Schleife.