Code vereinfachen

[S2B]

Hi @all!
Wie kann ich so einen Code vereinfachen:

Delphi-Quellcode:

procedure TForm9.ComboBoxEx1Select(Sender: TObject);
begin
  if ComboBoxEx1.ItemIndex=0 then
  begin
    Memo1.Visible:=true;
    Memo2.Visible:=false;
    Memo3.Visible:=false;
    Memo4.Visible:=false;
  end;
  if ComboBoxEx1.ItemIndex=1 then
  begin
    Memo2.Visible:=true;
    Memo1.Visible:=false;
    Memo3.Visible:=false;
    Memo4.Visible:=false;
  end;
  if ComboBoxEx1.ItemIndex=2 then
  begin
    Memo3.Visible:=true;
    Memo2.Visible:=false;
    Memo1.Visible:=false;
    Memo4.Visible:=false;
  end;
  if ComboBoxEx1.ItemIndex=3 then
  begin
    Memo4.Visible:=true;
    Memo2.Visible:=false;
    Memo3.Visible:=false;
    Memo1.Visible:=false;
  end;
end;

Mir fällt einfach kein Weg ein, wie ich das in eine procedure reinbringen kann und so ist er ein wenig platzfressend!

[Luckie]

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Memo1.Visible := ComboBox1.ItemIndex = 0;
  Memo2.Visible := ComboBox1.ItemIndex = 1;
  Memo3.Visible := ComboBox1.ItemIndex = 2;
  Memo4.Visible := ComboBox1.ItemIndex = 3;
end;

[S2B]

Vielen Dank!
Am späten Abend lässt das logische Denken nach!

[glkgereon]

arghhh, ja klar, jetzt seh ichs auch...

[sCrAPt]

Ich versteh das nicht?! Wie geht das?

, sCrAPt

[alcaeus]

Zitat von Luckie:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Memo1.Visible := ComboBox1.ItemIndex = 0;
  Memo2.Visible := ComboBox1.ItemIndex = 1;
  Memo3.Visible := ComboBox1.ItemIndex = 2;
  Memo4.Visible := ComboBox1.ItemIndex = 3;
end;

Memox.Visible ist vom Typ Boolean
(ComboBoxx.ItemIndex = 0) ist vom Typ Boolean
Es handelt sich hier um eine Wertzuweisung so wie:

Delphi-Quellcode:

if (ComboBox1.ItemIndex = 0)[ = True] then
  Memox.Visible := True
else
  Memox.Visible := False;

[edit] Zum ersten mal Delphi-Tags vergessen[/edit]

[sCrAPt]

jetzt hab ichs auch kapiert is ja geil! und ich hab sowas immer mit case gemacht

, sCrAPt

[Luckie]

Zitat von sCrAPt:

jetzt hab ichs auch kapiert is ja geil! und ich hab sowas immer mit case gemacht

Gewußt wie.