Edit vokale zählen

[ScrollbarKopf]

Könnt ihr mir bitte helfen weiß nicht mehr weier das programm soll aus den text der ins edit geshcrieben wurde alle vokale suchen das habe ich bisher

Delphi-Quellcode:

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
za:integer;
begin
case s[i] of
'a':za:=za +1;
'e':za:=za +1;
'i':za:=za +1;
'o':za:=za +1;
'u':za:=za +1;
edit2.text:= inttostr (za);

[ferby]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
za:integer;
begin

za:=0;
s:=edit1.text;

for i=1 to length(s1) do
begin
case s[i] of
'a':inc(za); 
'e':inc(za);
'i':inc(za);
'o':inc(za);
'u':inc(za);
edit2.text:= inttostr (za);
end;

oode ist ungetestet, müsste aber so ca. gehen

[Bentissimo]

Oder ganz allgemein:

Delphi-Quellcode:

function NumberOfVocals(AText: String): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to Length(AText) do
    if UpCase(AText[I]) in ['A', 'E', 'I', 'O', 'U'] then
      Inc(Result);
end;

[mkinzler]

-Inhalt des Edits in s kopieren-
-Schleife über die Buchstaben
-

Delphi-Quellcode:

if s[i] in ['1', 'e', 'i', 'o', u'] then ...

[NormanNG]

Hi,

das ist doch schon mal ein Anfang :-D

Überleg dir mal folgendes:
1) Du zählst die Variable ZA für jeden gefundenen Vokal weiter. Was ist der Anfangswert?
2) Du suchst die Vokale im String S. Auch hier muss S einen Anfangsinhalt bekommen.
3) Du betrachtest in S den I-Ten Buchstaben. Welche Werte soll I annehmen/durchlaufen?
4) eine Case-Anweisung wird immer mit [end;] abgeschlossen.

[roter Kasten] lasst es ihn doch erstmal selbst versuchen :-D [/rk]

[ScrollbarKopf]

Danke aber bei deisen code bekomme ich so nette fehler wie [Fehler] Unit1.pas(44): Inkompatible Typen: 'Boolean' und 'procedure, untyped pointer or untyped parameter'[Fehler] Unit1.pas(43): Konstantenausdruck erwartet
[Fehler] Unit1.pas(36): Inkompatible Typen: 'Boolean' und 'Integer'

[ScrollbarKopf]

beide r function geht alles danke

[NormanNG]

Zitat:

Zitat von ScrollbarKopf

Danke aber bei deisen code bekomme ich so nette fehler wie ...

"Copy & Paste-Error" - Verstanden hast du die Sache wohl noch nicht?