Vokale entfernen

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