Hallo Delphifans,
habe eine Datumsabfrage mit ca. 100 Datumswerten. Wie kann man sowas noch optimieren.
Mit einer Case-Anweisung bring ich das einfach nicht zum Laufen. Dachte mit Case wäre es evtl. übersichtlicher.
Vielen Dank für jeden Hinweis
LingNeu
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
//
if strtodate(edit1.Text) > strtodate('01.01.2007') then
begin
label2.Caption := '1.Zeitbereich';
end;
if strtodate(edit1.Text) > strtodate('01.02.2007') then
begin
label2.Caption := '2.Zeitbereich';
end;
if strtodate(edit1.Text) > strtodate('01.03.2007') then
begin
label2.Caption := '3.Zeitbereich';
end;
end;