Vokale entfernen

[Connor Temple]

Also soll ich die "While >= length(Text)" schreiben?
Das beschriebene Index hatten wir in Verbindung mit Delete noch gar nicht.
Deswegen hab ich grad voll das Problem eure Lösungen so zu verstehen...

[Fussel9]

... welcher der folgenden Begriffe sagt die denn was:

- rekusiv
- Menge
- pos({code})
- if ...or... then

je nach dem welche du kennst kann man einen Ansatz herausarbeiten

[Fussel9]

Habs, als rekursive Lösung.

d.h. das sich die procedure oder hier function in sich selbst aufruft.

das funktioniert hier z.B. so:

Ist der String leer?
-Nein
Ist der erste Buchstabe ein Vokal?
-Ja : lösche ihn und frage erneut
-Nein : merke ihn dir
_________lösche den ersten Buchstaben
_________gebe den gemerkten Buchstaben mit dem ergebniss einer erneuten prüfung aus

-Ja tue nichts


Also für das Wort 'Vokal' ergibt sich folgendes:

ist V ein Vokal?
-Nein
-result1:=V+ ist o ein Vokal?
_________-Ja
_________-result2:= ist k ein Vokal?
__________________-Nein
__________________-result3:=k+ ist a ein Vokal?
___________________________-Ja
___________________________-result4:= ist l ein Vokal?
____________________________________-Nein
____________________________________-result5:=l
_______________________________________________res ult1:=Vkl

ich glaube der Rest wird spätestens dann klar wenn du dir den Quellcode ansiehst...

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

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

[Sir Rufo]

So, dann mal passend formatiert ...

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;

... und jetzt mal ein wenig optimiert ...

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' :
          Delete ( Text, i, 1 ) ;
      else  // case
        i := i + 1;
      end;  // case
    end;  // while

  AusgabeText.Text := Text;
end;

... und dann noch mal so, wie es sich eigentlich gehört
wegen der Trennung von Code und Oberfläche (EVA)

Delphi-Quellcode:

function Entvokalisieren( const AStr : string ) : string;
var
  i : integer;
begin
  Result := AStr;

  i := 1;

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

end;

procedure TForm1.EntvokalisierenClick(Sender: TObject);
begin
  AusgabeText.Text := Entvokalisieren( NormalText.Text );
end;