Vokale entfernen

[Connor Temple]

So, wir haben heute in der Schule die Lösung bekommen, mit Case haben wir vorher aber auch nicht gearbeitet, so sieht mein Text jetzt aus:

Delphi-Quellcode:

procedure TForm1.EntvokalisierenClick(Sender: TObject);
var Text                                    :String   ;
    i                                       :Integer  ;
begin
Text := Normaltext.Text ;

i := 1 ;

 While i <= length(Text) Do
   Begin
      Case Text[i] of
      'A','E','I','O','U','a','e','i','o','u'         :
         Begin
             Delete (Text, i, 1) ;
             i := i - 1 ;
         end;
   end;
   i := i + 1 ;

AusgabeText.Text := Text;
 end;
end;
end.

Ich musste ein bisschen selbst dazu schreiben und langsam wird es verständlicher mit Delphi umzugehen...

[DeddyH]

Das Hochzählen von i gehört aber mit in die While-Schleife, oder nicht?

[mkinzler]

Und beim Löschen unbedingt die Schleife umdrehen!

[DeddyH]

Wieso? Es wird ja keine For-Schleife verwendet, da ist das in der Tat notwendig.

[mkinzler]

Zitat von DeddyH:

Wieso? Es wird ja keine For-Schleife verwendet, da ist das in der Tat notwendig.

Wenn du eine normale Schleife nimmst, werden doppelte Vokale auch nicht erkannt.

[DeddyH]

Ich kann Dir nicht folgen: wenn ein Vokal gefunden wird, wird er gelöscht und der Zeichenindex dekrementiert, anschließend in jedem Fall inkrementiert, so dass er auf dem nächsten Zeichen steht. Da sollten doch auch doppelte Vokale korrekt erkannt werden (gut, über das hin und her kann man sich streiten, funktionieren sollte es aber).

[mkinzler]

Ich habe den ursprünglichen Code angesehen, da fehlte das i := i - 1; aber eine umgekehrte Schleife würde dies auch überflüssig machen

[user0815]

Zitat:

Das Hochzählen von i gehört aber mit in die While-Schleife, oder nicht?

Ist mit drinnen, genau wie die Ausgabe, das end gehört zum case

Delphi-Quellcode:

  i := 1;

  while i <= length(Text) do
  case Text[i] of
    'A','E','I','O','U','a','e','i','o','u' : Delete(Text, i, 1);
    else inc(i); // i := i + 1;
  end;

[DeddyH]

Stimmt, das liegt an der "kreativen" Einrückung.

[Fussel9]

Viele Wege führen nach Rom...