Vokale entfernen

[himitsu]

Zitat von Connor Temple:

So siehts aus, mein Fehler liegt jetzt aber bei dem Delete, außerdem möchte ich das gerne für alle Vokale in Groß- und Kleinschreibung benutzen.
Aber so kommt ein Fehler, ich weiß echt nicht mehr weiter und verzweifel grad schon wieder an diesem komischen Programm, das einfach nicht versteht was ich von ihm will -.-

Schön, daß man uns nie den Text der Fehlermeldung sagt.
Aber ich kann's mir zum Glück denken, da heute die Glaskugel mal funktioniert.
Irgendwas vonwegen fehlendem Parameter ... niwa?
Schau mal in die OH, was sie dir zum Delete sagt.

PS: i := i + 1; Den Index nur herhöhen, wenn nicht gelöscht wurde (ELSE > delete oder i+1).
Den Grund nannte ich schon. (oder eben die While-Schleife am Ende des Strings loslaufen lassen und dann rückwärts zur 1 runterzählen)

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

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

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