probleme mit case-Anweisung

malibu85 · Beiträge: 51

Hallo, ich habe ein Problem mit einer case-anweisung. Ich möchte über ein Edit-feld ein Zeichen einlesen. Wenn die gewünschten Zeichen A oder x eingegeben wurde, soll der dazu gehörige Text auch ausgegeben werden wenn keines der beiden Zechen eingegeben wurde, dann soll die else - anweisung ausgeführt werden. Irgendwie springt mein Programm sofort in die else-anweisung und gibt bei jeder eingabe den Text der else-anweisung aus obwohl die richtigen zeichen eingegeben wurden

hier der quelltext

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var
  Form1: TForm1;
  c:char;
  s:string;

implementation

{$R *.nfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

s:=edit1.Text;

case c of
'A':s:='Sie haben ein großes A eingegeben';
'x':s:='Sie haben ein x gedrückt';

else
    s:='Dies ist eine ungültige Eingabe';
end;

label1.caption:=s;

end;

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

Du hast c nicht zugewiesen sonder s!

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

Calculon · Verfasst: Fr 21.12.07 16:15

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  s: string;
begin
    case UpCase(key) of
        'A': s:='Sie haben ein großes A eingegeben';
        'X': s:='Sie haben ein x gedrückt';
      else
        s := 'Dies ist eine ungültige Eingabe';
    end;
  Label1.Caption := s;
end;

_________________
Hallo Mutti

malibu85 · Beiträge: 51

so ganz habe ich das noch nicht verstanden. Das Beispiel von oben ist aus enem Buch und ich habe es 1 ´zu 1 abgetippt und es hat nicht funktioniert. Ich bekomme immer Fehlermeldungen bezüglich der Datentypen char und integer oder string und integer. Aus diesem Grug abe ich ein anders Beispiel abgetippt auch 1:1. Auch hier bekomme ich die Fehlermeldung [Pascal Fehler] Unit1.pas(36): E2010 Inkompatible Typen: 'Integer' und 'Char'

dabei ist mir der Quelltext ziemlich logisch aufgebaut...kann mir nicht vorstellen, dass es nicht klappt
hier der Quelltext

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var
  Form1: TForm1;
  eingabe: integer;
  ausgabe:string;

implementation

{$R *.nfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

eingabe:=StrToInt(edit1.Text);

case eingabe of
'1':ausgabe:='Sie haben eine 1 eingegeben';
'2':ausgabe:='Sie haben eine 2 eingegeben';

end;

label1.Caption:=ausgabe;

end;

elundril · Verfasst: Fr 21.12.07 17:13

weg mit den Hochkommas bei der Case-anweisung. Hochkommas signalisieren dem Compiler immer einen String. Da du aber interger hast regt sich der Compiler auf. Also so bitte:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  Form1: TForm1;
  eingabe: integer;
  ausgabe:string;

implementation

{$R *.nfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
eingabe:=StrToInt(edit1.Text);

case eingabe of
  1:ausgabe:='Sie haben eine 1 eingegeben';
  2:ausgabe:='Sie haben eine 2 eingegeben';
end;

label1.Caption:=ausgabe;

end;

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

malibu85 · Beiträge: 51

zum Glück jetzt stimmt es..war wohl doch nicht 1:1 abgetippt

danke

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme