Vokale entfernen

[Connor Temple]

Hab mal wieder ein Problem, dass diesmal tatsächlich an meinen Delphikenntnissen scheitert und nicht an meinen Mathekenntnissen *hust*

Also gut, es geht darum in einem beliebig eingebbaren Text die Vokale zu entfernen, allerdings habe ich ein Problem mit dem Delete Befehl.
Ich wollte den Text mit einer While-Do-Schleife durchgehen und dabei jeden Vokal entfernen, aber wie mache ich das?
Bei einem Delete-Befehl ist es ja so, dass man die Zahl des Zeichens mit angeben muss, aber wie macht man sowas in einem beliebig eingebbaren Text?

Hoffe ihr versteht, was ich meine und könnt mir helfen...

[mkinzler]

Man könnte es auch mit StringReplace() versuchen

[Connor Temple]

Damit weiß ich leider nicht umzugehen, ich kann nur das machen, was wir im Unterricht hatten, wir hatten Schleifen und fangen jetzt grade mit Strings an, aber mein Lehrer meinte ich solle es mit einem Delete-String machen.

[TonyR]

ja, dein Ansatz ist doch gut, zeig doch mal, was du bisher probiert hast!

[DeddyH]

Eine sehr unperformante Variante: alle Vokale in Groß- und Kleinschreibung in einem konstanten Array deklarieren. Dann dieses Array in einer Schleife durchgehen und dann in einer weiteren Schleife die Position des aktuellen Vokals ermitteln und solange löschen, bis dieser Vokal nicht mehr enthalten ist, Pos also 0 zurückgibt.

[mkinzler]

Oder mit 2 Strings: über Quellstring iterieren und nur Konsonaten/zahle usw. in Zielstring übernehmen

[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.