Einen Code optimieren

[MrKnogge]

Case geht nur bei Rdinal-Typen, man könnte es nur sehr geringfügig optimieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  date: TDate;
begin
//
  date := strtodate(edit1.Text);

  if date > strtodate('01.01.2007') then label2.Caption := '1.Zeitbereich';
  if date > strtodate('01.02.2007') then label2.Caption := '2.Zeitbereich';
  if date > strtodate('01.03.2007') then label2.Caption := '3.Zeitbereich';
end;

Gruß