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;