Forum: Programmieren allgemein
by Connor Temple,
8. Dez 2010
@DeddyH
So wie du es machst versteh ich das echt gar nicht, wir fangen ja auch grade erst mit Delphi an, da ist das okay...
Forum: Programmieren allgemein
by Connor Temple,
8. Dez 2010
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:
procedure TForm1.EntvokalisierenClick(Sender: TObject);
var Text :String ;
i :Integer ;
begin
Text := Normaltext.Text ;
i := 1 ;
While i <= length(Text) Do
Forum: Programmieren allgemein
by Connor Temple,
7. Dez 2010
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...
Forum: Programmieren allgemein
by Connor Temple,
7. Dez 2010
In haben wir leider nicht benutzt.
procedure TForm1.Button1Click(Sender: TObject);
var Text :String;
i :Integer;
begin
Text := Texteingabe.Text ;
i := 1 ;
While i <= length(Text) Do
Begin
If Text = 'a'
Forum: Programmieren allgemein
by Connor Temple,
7. Dez 2010
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.
Forum: Programmieren allgemein
by Connor Temple,
7. Dez 2010
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...