Vokale und Konsonanten zählen

[Klaus01]

was ich nicht verstehe ist, daß wenn Tests laufen immer noch der Zugang zum Internet freigeschaltet ist.

Grüße
Klaus

[userF]

bitte leute ich brauch dingends hilfe wenns geht.im mom kann ich solche anmerkungen das jemand es nicht versteht wieso bei einem test noch Netz vorhanden ist echt nicht gebrauchen sorry ist ja nicht böse gemeint.

[RavenIV]

Zitat:

Zitat von Klaus01

was ich nicht verstehe ist, daß wenn Tests laufen immer noch der Zugang zum Internet freigeschaltet ist.

Grüße
Klaus

und vor allem hat er in einem Test Zeit, um hier Kommentare zu schreiben...
so stressig kann's ja nicht sein ;-)

[mkinzler]

Zitat:

Ich check das irgendwie im mom nicht so.

Klaus01 hat dir die Lösung doch schon auf dem Silbertablett präsentiert, jetzt mußt du sie nur noch einbauen.

[userF]

inc(vokale_zaehler)

muss ich das nicht als variable angeben= den zähler wie mach ich das

[userF]

Das hab ich bisher geht aber leider nicht und ich weiß nicht warum.

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:string;
{$R *.dfm}
procedure TForm1.schliessenClick(Sender: TObject);
begin
close;
end;
procedure TForm1.zaehlenClick(Sender: TObject);
vokal:=0;
konsonant:=0;
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
 vokal:=1;
end;
end.

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]

[Klaus01]

if (satz[i]='a') or (satz[i]='e') or (satz[i]='i')
or (satz[i]='u') or (satz[i]='o') then
vokal:=1;


bei Dir kommt immer 1 raus stimmts?

Dann frag Dich mal warum?

Warum schickst Du Deinen Beitrag zweimal, und beim nächsten Mal die Delphi Tags setzen.

Grüße
Klaus

[userF]

ja,ich komm aber gerade nicht drauf wieso.kannst du mir das nicht eben bitte sagen?

[Klaus01]

nein, ruhig bleiben und selber nachdenken.

Grüße
Klaus

[userF]

sorry ich hab noch 15 minuten dann ist es vorbei ich bin voll fertig im mom.ich seh den fehler einfach nicht.sorry das ich das 2mal gesendet hatte und nicht die regeln beachtet hatte