Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Vokale Zählen

    Delphi
    by Noobinator, 18. Jun 2006
  ....
  procedure TForm1.Button1Click(Sender: TObject);
  var
  i: Integer;
  vokal, KonstNum: Integer;
  Satz: String;
  begin
  vokal := 0;
  KonstNum := 0;
• Forum: Sonstige Fragen zu Delphi

  Re: Vokale Zählen

    Delphi
    by Noobinator, 18. Jun 2006
  for i := 1 to Length(Satz) do
  begin
  if Satz in then
  inc(VokNum)
  else
  inc(KonstNum);
  end;
  
  
  du definierst jedes zeichen außer die Vokale als Konsonanten, aber auch Leerzeichen und Satzzeichen sind zeichen.
• Forum: Sonstige Fragen zu Delphi

  Re: Vokale Zählen

    Delphi
    by Noobinator, 18. Jun 2006
  Ich habe das doch schon einzeln gepostet.
  was verstehst du an meinem Text nicht, denn ich auch schon kommentiert habe...
  aber eine Frage: ein bissl englisch kannst du?
  oder du kennst die schleifen, if anweisungen?
  
  das einfach auf deinen Button legen.
  procedure TForm1.Button1Click(Sender: TObject);
  var konsonanten,vokale,i:integer;
  begin
  edit1.Text:=ansilowercase(edit1.text);// Groß- und...
• Forum: Sonstige Fragen zu Delphi

  Re: Vokale Zählen

    Delphi
    by Noobinator, 18. Jun 2006
  also du fügst in deine Form ein edit ein, 2 labels und ein button.
  
  auf den button machst du dann:
  procedure TForm1.Button1Click(Sender: TObject);
  var konsonanten,vokale,i:integer;
  begin
  // beides 0 setzen
  konsonanten:=0;
  vokale:=0;