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.

[Connor Temple]

In haben wir leider nicht benutzt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Text                               :String;
    i                                  :Integer;
begin
Text := Texteingabe.Text ;
i := 1 ;
While i <= length(Text) Do
     Begin
          If Text[i] = 'a'
            Then Delete (Text, a) ;

     i := i + 1 ;
     end;
Textausgabe.Text := Text;
end;

end.

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

[Fussel9]

Hi, wir haben ähnliche programme schon einmal geschrieben vielleicht kann dir das Programm weiter hälfen (->Anhang)


€DIT:

Wenn du alle großen und kleinen Vokale und Konsonanten überprüfen willst wirst du IN benutzen müssen, sonst musst du jede Prüfung einzeln machen oder gehst mit ner or Bedingung in eine If schleife, was auch viel zu schreiben ist ^^


Beispiel:

Delphi-Quellcode:

function DeineForm.tötedievokale(deinstring: String; p:Integer) : String
var i: Integer;
    temp: String;
begin
result:='';
i:=p;
if (deinstring[i]='a') or (deinstring[i]='e') or (deinstring[i]='i')  {.... und so weiter ...} then 
begin
  temp:=copy(deinstring,1,(i-1)); //alles ohne den Vokal
  delete(deinstring,1,(i)); //alles mit dem Vokal
    if not(i = length(deinstring)) then
      begin
        i:=i+1;
        temp:=temp+self.tötedievokale(deinstring,i);
      end
    else
      begin
        temp:=deinstring;
      end;
result:=temp;
end;

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