Vokale Zählen

[userF]

Hallo, ich weiß nicht weiter und ich finde einfach den Fehler nirgens.Könnte sich vieleicht mal jemand meinschulprojekt ansehen und mir sagen was ich falsch mache? Währe echt voll nett von euch.

Delphi-Quellcode:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    eingabe: TEdit;
    vokale: TLabel;
    Label2: TLabel;
    ausgabevokale: TEdit;
    ausgabekonsonanten: TEdit;
    zaehlen: TButton;
    schliessen: TButton;
    procedure zaehlenClick(Sender: TObject);
    procedure schliessenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
var
  Form1: TForm1;
implementation
var satz:string;
    i:integer;
    buchstabe:integer;
    vokal:string;
    konsonant:string;
{$R *.dfm}
procedure TForm1.schliessenClick(Sender: TObject);
begin
close;
end;
procedure TForm1.zaehlenClick(Sender: TObject);
begin
 for i:=1 to length(satz) do
 if (satz[i]='a') or (satz[i]='e') or (satz[i]='i')
or (satz[i]='u') or (satz[i]='o') then
satz[i]:=vokal[1];
 else satz[i]:=konsonant[1];
end;
end.

[edit=sakura] [delphi]-Tags. Mfg, sakura[/edit]

[sakura]

Nutze bitte den Edit-Button an Deinem Beitrag und gib der Frage einen aussagekräftigen Titel.

Danke,
...:cat:...

[userF]

sorry ich hab noch keiner erfahrung wie das geht mit Edit hab noch nicht so viel gepostet hier.werd mich bemühen das zu ändern.danke für deinen Tip

[Matze]

Hi,

ändere bitte den Titel in einen aussagekräftigen.

Zu deinem Problem:
Du hast nirgendwo vokal implementiert, sondern lediglich deaklariert. Irgendwo musst du vokal sicher noch etwas zuweisen. Ich beziehe mich auf diese Stelle:

Delphi-Quellcode:

satz[i] := vokal[1];

Edit: Genauso bei konstant und was ist satz, weist du da etwas zu?

Edit: Klicke einfach in deinem ersten Beitrag oben rechts auf http://www.delphipraxis.net/template.../icon_edit.gif und ändere den Titel. ;)

[mkinzler]

Vielleicht wäre es besser, wenn du uns sagen würdest, was genau nicht klappt und wenn ein Fehler kommt, wo und welcher. Eine kurze Beschreibung des Soll-Zustandes wär auch kein Fehler.

[Matze]

Jetzt mit dem Titel wird alles klar. Hier eine mögliche Lösung:

Delphi-Quellcode:

procedure TForm1.BtnZaehlenClick(Sender: TObject);
var
  i: Integer;
  VokNum, KonstNum: Integer;
  Satz: string;
begin
  VokNum := 0;
  KonstNum := 0;

  // Groß-/Kleinschreibung ignorieren
  Satz := AnsiLowerCase(EdtSatz.Text);

  for i := 1 to Length(Satz) do
  begin
    if Satz[i] in ['a', 'e', 'i', 'o', 'u'] then
      inc(VokNum)
    else
      inc(KonstNum);
  end;

  LblVokNum.Caption := IntToStr(VokNum);
  LblKonstNum.Caption := IntToStr(KonstNum);
end;

Eigentlich sind der Code und die Komponentennamen selbsterklärend.

[Klaus01]

Delphi-Quellcode:

implementation
var satz:string;
    i:integer;
    buchstabe:integer;
    vokal:Integer;
    konsonant:Integer;
{$R *.dfm}
procedure TForm1.schliessenClick(Sender: TObject);
  begin
    close;
  end;
procedure TForm1.zaehlenClick(Sender: TObject);
  begin
    vokal:=0;
    konsonant:=0;
    for i:=1 to length(satz) do
      if (satz[i]='a') or (satz[i]='e') or (satz[i]='i')
         or (satz[i]='u') or (satz[i]='o') then
        inc(vokal;
      else 
       inc(konsonant);
end;

Andere Lösungsansätze findest Du auch in Deinem ersten Thread:
http://www.delphipraxis.net/internal...ghlight=vokale

Grüße
Klaus

[userF]

Danke Matze,wo soll ich das aber bitte einfügen?

[userF]

Danke Klaus01 ich probiere ja schon länger alles aus und hab verschiedene sachen versucht aber ich bin da wohl noch zu doof um das richtig zu erkennen denk ich mal.

[Matze]

Zitat:

Zitat von userF

Danke Matze,wo soll ich das aber bitte einfügen?

Ich dachte, das wäre wirklich selbsterklärend. Das ganze ist das OnClick-Ereignis des Zähl-Buttons. Du musst natürlich entsprechend noch ein paar Komponenten auf deinem Formular platzieren und diese umbenennen oder den Code leicht ändern. Denke dich bitte etwas hinein und überlege, was mein Code macht. Da nun ein fertiges Projekt anzuhängen halte ich für übertrieben.