Code vereinfachen

[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]