Case

[R2009]

Hi Zeb22,

ich hab den Eindruck du hast gar kein Interesse daran dass dein Problem gelöst wird.
Hier gabs soviele Anregungen warum äusserst du dich nicht dazu?
Sollte das problem gelöst sein so sags bitte.

Vile Grüsse

[Zeb22]

oh Sorry. Ich bin so in meinen Prüfungsvorbereitungen drin das ich vollkomm vergessen habe das ich das Problem bereits gelöst bekommen habe. Dennoch vielen Dank, es ist immer wieder schön hier zu posten und zu erleben wie engagiert die Leute hier posten.

Beim nächsten Mal werde ich mich auf jeden fall besser verhalten als bei diesen Thema. :-D

[mkinzler]

Und wie hast du es gelöst?

[DP-Maintenance]

Dieses Thema wurde von "Daniel" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.

[Stormy]

Er wird sicher das "zahl :=" im Case-Block entfernt haben da ShowMessage keinen Rückgabewert hat und es so nicht funktionieren konnte. Ausserdem hat er ein end; vergessen gehabt.


Gruß
Stormy

[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;
    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 :  Showmessage('Sehr gut');
  2 :  Showmessage('Gut');
  3 :  Showmessage('Befriedigend');
  4 :  Showmessage('Ausreichend');
  5 :  Showmessage('Mangelhaft');
  6 :  Showmessage('Ungenügend');
  ELSE Showmessage('Diesen Notenwert gibt es nicht.');
 end;


end;
end.

Ich hab mir das Leben schwer gemacht, im Grunde ist das ja so einfach. Die Var Zahl die ich oben Konventiert habe, sucht sich im Case dann einfach die Anweisung raus, wenn ich z.b eine 3 ins Edit Feld eingebe kommt die Showmessage Box = Befriedigend u.s.w

Das wars, Vielen Dank für eure Beiträge. Ich muß mir mal angewöhnen einfach mal 10 minuten intensiv darüber nachzudenken, dann komm ich auch selber darauf.

[himitsu]

dazu kommt aber noch etwas:
- Warum ist Zahl global definiert? Wo es doch nur lokal benötigt wird
- und selbst wenn du es unbedingt gloabl definieren willst ... ist dir schonmal der passende Abschnitt in der Form aufgefallen? (die Beiden mit den Kommentaren)

[Zeb22]

Bei uns im Fach Techniklehre hat man uns gesagt, macht die Variablen ruhig alle Global, das schadet schon nichts :wink:

[Stormy]

Das mag noch für kleine Prjekte zutreffen aber spätestens wenn du es mal mit umfangreicheren Code zu tun hast wirst du es vermeiden alles Global zu deklarieren!


Gruß
Stormy