Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Einen Code optimieren

   
    by MrKnogge, 13. Jan 2007
  Case geht nur bei Rdinal-Typen, man könnte es nur sehr geringfügig optimieren:
  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';