Überprüfen ob bereits ein Eintrag vorhanden ist

Halunkel · Beiträge: 34

Hallo!

Ich würde gerne andere Objekte ausblenden, sobald ein Eintrag in einer Combobox ausgewählt wurde. Aber wie schaffe ich das ohne großen Quelltext??

Eine Möglichkeit wäre:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

if combobox1.text = 'Eintrag1' then
  checkbox1.enabled := false;
if combobox1.text = 'Eintrag2' then
  checkbox1.enabled := false;
if combobox1.text = 'Eintrag3' then
  checkbox1.enabled := false;

Aber irgendwie ist die Lsg. blöd!

Gibts da ne schönere Lsg.??

Narses · Verfasst: Mo 29.05.06 22:24

Moin!

Schau dir mal:

markieren

Delphi-Quelltext

1:	ComboBox1.Items.IndexOf()

an.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

markieren

Delphi-Quelltext

1:	case combobox.itemindex of

ist's da schon eher

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

DelphiAnfänger · Verfasst: Mo 29.05.06 22:35

markieren

Delphi-Quelltext

1:
2:
3:
4:

case combobox1.itemindex of
 0 : checkbox1.enabled := false;
 1 : checkbox1.enabled := false;
 2 : checkbox1.enabled := false;

wenn immer das selbe ausgeführt werden soll:

markieren

Delphi-Quelltext

1:
2:

case combobox1.itemindex of
 0,1,2 : checkbox1.enabled := false;

ob das geht weiß ich net musst du mal probieren:

markieren

Delphi-Quelltext

1:
2:

case combobox1.itemindex of
 0..2 : checkbox1.enabled := false;

EDIT: da war ja jemand schneller

Halunkel · Beiträge: 34

Danke..

und wenn ich mehrere Checkboxen ausblenden möchte?

Die Caseformel funktioniert irgendwie nur, wenn ich nur Checkbox1 ausblende. Wie verknüpfe ich es?

Muss ich schreiben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

case combobox1.itemindex of
 0..17 :  Checkbox1.enabled := false;
case combobox1.itemindex of
 0..17 :  Checkbox2.enabled := false;
case combobox1.itemindex of
 0..17 :  Checkbox3.enabled := false;

DelphiAnfänger · Verfasst: Mo 29.05.06 23:48

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

case combobox1.itemindex of
 0..17 : begin
          Checkbox1.enabled := false;
          Checkbox2.enabled := false;
          Checkbox3.enabled := false;
         end;

bei dem bin ich mir nicht sicher obs geht musst du mal ausprobieren:

markieren

Delphi-Quelltext

1:
2:

case combobox1.itemindex of
 0..17 : for i:=1 to 3 do Checkbox[i].enabled := false;

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Letzteres klappt natürlich NICHT, es sei denn CheckBox ist ein Array of TCheckBox. Aber klappen tut es so:

markieren

Delphi-Quelltext

1:
2:

case combobox1.itemindex of   
 0..17 : for i:=1 to 3 do (FindComponent('CheckBox'+IntToStr(i)) as TCheckBox).enabled := false;

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Halunkel · Beiträge: 34

Danke für eure Antworten!!
Nun würde ich gerne verschiedenen Einträgen verschieden Werte zuordnen und dann in einem Editfeld ausgeben.
Im richtigen Programm kommen noch viele andere WErte dazu, deshalb ist es wichtig den Wert in einer Variablen zu speichern. Aber leider funktioniert das hier nicht!

markieren

Delphi-Quelltext

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

var a : double;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case comboBox1.ItemIndex of
0: a := 5;
1: a := 15;

Edit1.text := FloatToStr (a);
end;

[/user] · Beiträge: 30

Versuchs mal so:

markieren

Delphi-Quelltext

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

var a : double;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case comboBox1.ItemIndex of
    0: a := 5;
    1: a := 15;
  end;
  Edit1.text := FloatToStr (a);
end;

Halunkel · Beiträge: 34

Perfekt!!

Vielen Dank das klappt!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme