Prüfen ob Zahl im Wertebereich zwischen 1001 und 1005 liegt

Danny87 · Verfasst: Sa 06.10.07 16:29

Hey Leute,

ich bekam grad ne Frage wie man prüfen kann, ob eine Zahl in einem Edit-Feld in einem gewissen Wertebereich (1001 - 1005) liegt.
Ich wollte natürlich sofort mit meinem schier endlosen Wissen angeben (hatte sowas ja schließlich früher schon mal gemacht) und musste feststellen, dass mein Wissen scheinbar doch endlich ist

Ich hab ihm geschrieben, er solle mal

markieren

Delphi-Quelltext

1:	if zahl in [1001..1005] then ...

probieren.
Das funktioniert so allerdings nicht.
Ich würde ja die Suche bemühen, aber die hat mir alles geliefert außer das was ich suche *g*

Wie ging das noch gleich?
Bitte helft mir dabei mein Wissen wieder endlos werden zu lassen

Grüße
Daniel

Gausi · Verfasst: Sa 06.10.07 16:35

markieren

Delphi-Quelltext

1:	if (zahl >= 1001) and (zahl <= 1005) then

Oder suchst du was komplizierteres? :gruebel:

_________________
We are, we were and will not be.

Danny87 · Verfasst: Sa 06.10.07 16:38

OH MEIN GOTT!! :shock:

Peinlich, peinlich....hab ich mal wieder zu verwirrend gedacht^^
Danke xD

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

Gausi hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	if (zahl >= 1001) and (zahl <= 1005) then

Oder suchst du was komplizierteres? :gruebel:

Vielleicht so,

markieren

Delphi-Quelltext

1:	if (Zahl-1000) in [1,2,3,4,5] then

,

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

Lannes · Verfasst: Sa 06.10.07 17:13

Hallo,

dann so:

markieren

Delphi-Quelltext

1:
2:

if (Zahl-1000) in [1..5] then 
  //...

oder so:

markieren

Delphi-Quelltext

1:
2:
3:

case Zahl of
  1000..1005 : ShowMessage('im Wertebereich');
  end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

GericasS · Verfasst: Sa 06.10.07 17:15

Hey,

ich danke vielmals dafür das es hier besprochen wurde !

EDIT :

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:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (zahl >= 1001) and (zahl <= 1005) then 
begin
if edit1.text = '1001' then
begin
panel1.Caption := 'Monitor Fujitsu-Siemens' ;
panel2.Caption := '199,99€' ;
end;
if edit1.Text = '1002' then
begin
panel1.caption := 'Festplatte 250 GB' ;
panel2.caption := '89,50€' ;
end;
if edit1.Text = '1003' then
begin
panel1.caption := 'Motherboard mit CPU' ;
panel2.caption := '155,00€' ;
end;
if edit1.Text = '1004' then
begin
panel1.caption := 'DVD-Combolaufwerk' ;
panel2.Caption := '36,90€' ;
end;
if edit1.Text = '1005' then
begin
panel1.caption := 'PC Tower-Gehäuse' ;
panel2.caption := '44,80€' ;
end;
end;


end.

so wirklich funktionieren tut es noch nicht, wie soll ich die Meldung einbauen wenn die Zahl nicht vorhanden ist ?

_________________
Alexander N.
Neue Bewaffnung Amilo xi2428 T9300

jasocul · Verfasst: Sa 06.10.07 18:05

Ausgehend davon, dass Zahl ein Integer ist und den gleichen Wert hat, wie edit1.text:

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:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (zahl >= 1001) and (zahl <= 1005) then 
  begin
    case zahl of
      1001 : begin
        panel1.Caption := 'Monitor Fujitsu-Siemens' ;
        panel2.Caption := '199,99€' ;
      end;
      1002 : begin
        panel1.caption := 'Festplatte 250 GB' ;
        panel2.caption := '89,50€' ;
      end;
      1003 : begin
        panel1.caption := 'Motherboard mit CPU' ;
        panel2.caption := '155,00€' ;
      end;
      1004 : begin
        panel1.caption := 'DVD-Combolaufwerk' ;
        panel2.Caption := '36,90€' ;
      end;
      1005 : begin
        panel1.caption := 'PC Tower-Gehäuse' ;
        panel2.caption := '44,80€' ;
      end
      else
        ShowMessage('Eigentlich ein unmöglicher Fall');
    end;
  end
  else
  begin
    ShowMessage('Falsche Eingabe');
  end;
end.

An Deinen Einrückungen solltest Du arbeiten. :wink:

GericasS · Verfasst: Sa 06.10.07 23:39

Okay,

danke für dem Source werde mich morgen mal melden !

_________________
Alexander N.
Neue Bewaffnung Amilo xi2428 T9300

Danny87 · Verfasst: So 07.10.07 04:20

GericasS hat folgendes geschrieben:

Okay,

danke für dem Source werde mich morgen mal melden !

Huch^^
da is ja der Fragesteller xD

GericasS · Verfasst: Di 09.10.07 08:07

Hey,

ich hab da doch noch eine Frage, hab das ganze jetzt mal weiter geführt, nur wie geb ich ihm zu verstehen das case ** of für das Edit Feld bestimmt ist bzw. vom edit Feld ausgeht, da "zahl" edit1.text sein soll !

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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (zahl >= 1001) and (zahl <= 1005) then
  begin
    case zahl of
      1001 : begin
        panel1.Caption := 'Monitor Fujitsu-Siemens' ;
        panel2.Caption := '199,99€' ;
      end;
      1002 : begin
        panel1.caption := 'Festplatte 250 GB' ;
        panel2.caption := '89,50€' ;
      end;
      1003 : begin
        panel1.caption := 'Motherboard mit CPU' ;
        panel2.caption := '155,00€' ;
      end;
      1004 : begin
        panel1.caption := 'DVD-Combolaufwerk' ;
        panel2.Caption := '36,90€' ;
      end;
      1005 : begin
        panel1.caption := 'PC Tower-Gehäuse' ;
        panel2.caption := '44,80€' ;
      end
      else
        ShowMessage('Eigentlich ein unmöglicher Fall');
    end;
  end
  else
  begin
    ShowMessage('Falsche Eingabe');
  end;
end;
end.

_________________
Alexander N.
Neue Bewaffnung Amilo xi2428 T9300

TProgger · Beiträge: 148 XP D6, D2007 prof

ganz am Anfang:
Zahl := StrToIntDef(Edit1.Text); ?

GericasS · Verfasst: Di 09.10.07 08:20

TProgger hat folgendes geschrieben:

ganz am Anfang:
Zahl := StrToIntDef(Edit1.Text); ?

oh peinlich :oops:

_________________
Alexander N.
Neue Bewaffnung Amilo xi2428 T9300

GericasS · Verfasst: Di 09.10.07 08:40

Eine weitere Frage stellt sich dann noch für mich , wofür sind diese Zeilen ?

markieren

Delphi-Quelltext

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

 end;
      1005 : begin
        panel1.caption := 'PC Tower-Gehäuse' ;
        panel2.caption := '44,80€' ;
      end
      else
       ShowMessage('Eigentlich ein unmöglicher Fall');
    end;
  end
  else
  begin

wenn das hier unten nocheinmal erscheint !

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

 else
  begin
    ShowMessage('Falsche Eingabe');
  end;
end;

Grüße

GericasS

_________________
Alexander N.
Neue Bewaffnung Amilo xi2428 T9300

TProgger · Beiträge: 148 XP D6, D2007 prof

Edit: Die erste (im case) ShowMessage ist überflüssig, würd ich sagen...

GericasS · Verfasst: Di 09.10.07 08:47

TProgger hat folgendes geschrieben:

Edit: Die erste (im case) ShowMessage ist überflüssig, würd ich sagen...

das dachte ich mir nämlich auch, bewirken tun sie im Endeffekt doch beide das gleiche oder ?

Grüße

_________________
Alexander N.
Neue Bewaffnung Amilo xi2428 T9300

TProgger · Beiträge: 148 XP D6, D2007 prof

die im case würde ja nie aufgerufen, die zweite erscheint, wenn die Zahl nicht im Bereich ist.

GericasS · Verfasst: Di 09.10.07 09:01

TProgger hat folgendes geschrieben:

die im case würde ja nie aufgerufen, die zweite erscheint, wenn die Zahl nicht im Bereich ist.

ja stimmt, dann mach ich die mal raus !

_________________
Alexander N.
Neue Bewaffnung Amilo xi2428 T9300

jasocul · Verfasst: Di 09.10.07 09:07

Ich habe mich schon gefragt, wann Dir das auffällt. :mrgreen:

Deswegen hatte ich ja schon geschrieben, dass das ein unmöglicher Fall ist.

Du kannst auch einfach diesen Teil rausschmeissen:

markieren

Delphi-Quelltext

1:	if (zahl >= 1001) and (zahl <= 1005) then

inklusive dem passenden else. Das hat den Vorteil, dass Du bei einem veränderten Zahlen-Bereich nur das Case anpassen musst. Dafür muss natürlich das else für das case erhalten bleiben.

GericasS · Verfasst: Di 09.10.07 09:10

jasocul hat folgendes geschrieben:

Ich habe mich schon gefragt, wann Dir das auffällt. :mrgreen:

Deswegen hatte ich ja schon geschrieben, dass das ein unmöglicher Fall ist.

Hey,

danke das du es noch auflöst :lol:

aber ich hatte erst heute morgen so wirlich Zeit mir den Source mal anzuschauen.

Zitat:

inklusive dem passenden else. Das hat den Vorteil, dass Du bei einem veränderten Zahlen-Bereich nur das Case anpassen musst. Dafür muss natürlich das else für das case erhalten bleiben.

Danke

Grüße

_________________
Alexander N.
Neue Bewaffnung Amilo xi2428 T9300

Lannes · Verfasst: Di 09.10.07 09:13

Hallo,

und damit es übersichtlich wird noch die Panelbeschriftung in eine Prozedur auslagern:

markieren

Delphi-Quelltext

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

procedure TForm1.SetPanelCaption(sArtikel,sPreis: String);  
begin
  Panel1.Caption := sArtikel;  
  Panel2.Caption := sPreis;
end;

procedure TForm1.Button1Click(Sender: TObject);  
begin
    case zahl of  
      1001 : SetPanelCaption('Monitor Fujitsu-Siemens','199,99€');
      1002 : SetPanelCaption('Festplatte 250 GB','89,50€');
      //...  
      else ShowMessage('Falsche Eingabe');  
    end;
end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme