Case

[Zeb22]

Delphi-Quellcode:

unit Unit1;    

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);





  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;



var
  Form1: TForm1;
  zahl:integer;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin

 zahl := StrToInt(Edit1.Text);


case zahl OF
  1 : zahl := Showmessage('Sehr gut');
  2 : zahl := Showmessage('Gut');
  3 : zahl := Showmessage('Befriedigend');
  4 : zahl := Showmessage('Ausreichend');
  5 : zahl := Showmessage('Mangelhaft');
  6 : zahl := Showmessage('Ungenügend');
  ELSE zahl := Showmessage('Diesen Notenwert gibt es nicht.');
end;

end.

Läuft nicht, brauch Hilfe

[jfheins]

[x] Du hast ein Problem
[*] Du möchtest Hilfe und hast deshalb erklärt, was passieren sollte, und was stattdessen passiert.

[DSFreak]

Versuche mal, die Variable zahl innerhalb der Prozedur zu deklarieren.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  zahl : Integer;
begin
  [...]

Ansonsten würde uns die Fehlermeldung o.ä. sicher weiterhelfen.

[himitsu]

Zitat:

Läuft nicht, brauch Hilfe

Das ist keine Fehlerbeschreibung, im Sinne der DP-AGB

Was läuft nicht (möglichst genaue Fehlerbeschreibung),
wie soll es laufen
und was hast du schon alles versucht.

[Jens Hartmann]

Hallo,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
zahl := StrToInt(Edit1.Text); 
case zahl OF 
  1 : zahl := Showmessage('Sehr gut'); 
  2 : zahl := Showmessage('Gut'); 
  3 : zahl := Showmessage('Befriedigend'); 
  4 : zahl := Showmessage('Ausreichend'); 
  5 : zahl := Showmessage('Mangelhaft'); 
  6 : zahl := Showmessage('Ungenügend'); 
  ELSE zahl := Showmessage('Diesen Notenwert gibt es nicht.'); 
end;

Was hast Du den für eine Fehlermeldung. Eventuell das die Var. nicht existiert.

dann.. SO

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  zahl : integer;
begin 

zahl := StrToInt(Edit1.Text); 

...

[EDIT] Da war ja einer schneller, hab gar keinen roten Kasten gehabt


Gruß Jens

[DSFreak]

Zitat von Jens Hartmann:

Was hast Du den für eine Fehlermeldung. Eventuell das die Var. nicht existiert.

Die Variable existiert ja, nur global...

[Sprint]

Delphi-Quellcode:

  case Zahl of
    1: ShowMessage('Sehr gut');
    2: ShowMessage('Gut');
    {...}
    6: ShowMessage('Ungenügend');
  else
    ShowMessage('Diesen Notenwert gibt es nicht.');
  end;

Du musst jetzt mal langsam lernen, das du dir bei Problemen selber hilfst.
Die IDE/Editor zeigt dir ja an wo der Fehler ist.

Markiere z.B. case im Editor und drücke F1. Wenn du dir die Beispiele in der
Hilfe anschaust, dann würdest du bestimmt selber draufkommen, was du falsch gemacht
hast.

[Jens Hartmann]

Zitat von DSFreak:

DIe Variable existiert ja, nur global...

Hab ich übersehen

[Cyf]

Um es noch mal konkreter zu formulieren.. was macht dich daran stutzig?

Delphi-Quellcode:

procedure ShowMessage(const Msg: string);

zahl := Showmessage('Sehr gut');

[himitsu]

Also wenn das so ist, dann müßte der Compiler eine aussagekräftige Fehlermeldung rauswerfen und diese hättest du uns gleich am Anfang geben sollen, da hierdurch alle möglichen Vermutungen gleich durch eine Lösung hätten ersetzt werden können.