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! :mrgreen:

[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! :thuimb:
Am späten Abend lässt das logische Denken nach! :mrgreen:

[glkgereon]

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

[sCrAPt]

Ich versteh das nicht?! Wie geht das?

:angle:, sCrAPt

[alcaeus]

Zitat:

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]:oops: Zum ersten mal Delphi-Tags vergessen[/edit]

[sCrAPt]

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

:angle:, sCrAPt

[Luckie]

Zitat:

Zitat von sCrAPt

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

Gewußt wie. :zwinker: