Vokale entfernen

[Aphton]

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

Hab den Thread noch nicht ganz durchgelesen, aber dein Fehler ist leicht behebbar:
einfach statt Delete(Text,a) ein Delete(Text,a,1) machen.
Das heißt soviel wie: Lösche von Text, ab der Stelle a, 1 Stelle.

Edit: Warum wird hier eigentlich ständig um den heißen Brei herumgeredet?
*duck_und_weglauf

MfG