Zeitspanne bei "if" angeben

[widowmaker2k7]

Hallo und guten Tag,

bei if kann man ja angeben, dass wenn eine Zahl kleiner ist als z.B 7, er dann mit etwas beginnt, sprich:

Delphi-Quellcode:

    if a < 7 then
      begin

Nur wie kann ich eine Zeitspanne bestimmen? Sagen wir von 7 bis 14?

[BenjaminH]

Du willst also, dass der Ausdruck nur dann wahr ist, wenn eine bestimmte Uhrzeit erreicht ist?
Die aktuelle Uhrzeit erhältst du mit getTime für einen Vergleich mit einer anderen Uhrzeit solltest du dir dann den Typen TDateTime ansehen.

Viel Erfolg,
Benjamin

[Dax]

Wenn a zwischen 7 und 14 ist, ist a größer als 7 und kleiner als 14. Und jetzt du ;)

[widowmaker2k7]

Also das Programm hat nix mit Zeit zu tun, sondern ist ein kleines Witz Programm, dass wenn man sein Alter angibt, Kommentare dazu kommen.

Dazu will ich die Jahre in mehrere Stufen einteilen, z.B. bis 7 Jahre, dann von 7 bis 14 und von 14 bis 18 und so weiter.

Hier ist schon mal der Code zu meinem bisherigen Vorhaben:

Delphi-Quellcode:

procedure TForm1.sButton1Click(Sender: TObject);
var a, kommentar: integer;
begin
  a := strtoint (labelededit1.Text);
  sGauge1.MinValue := 0;
  sGauge1.MaxValue := 100;
  sGauge1.Progress := a;
  sGauge1.visible := true;
    if a < 7 then
      begin
        Memo1.visible := true;
        Memo1.Text := 'Nicht mal in der Schule, aber schon am PC sitzen';
      end;
    if a > 7 then
      begin
        Memo1.visible := true;
        Memo1.Text := 'Kaum Haare am Sack und schon irgendwelche Programme ausprobieren...';
      end;
end;

end.

das mit dem und hab ich auch schon ausprobiert, (also mit "and") aber ich hab echt keinen blassen wie ich das hinschreiben soll.

if a > 7 and a < 14 then ging nicht. deswegen brauch ich ja hilfe, weil ich davon leider noch keine Ahnung habe.

[Apollonius]

Das ist fast richtig. Du musst nur die Einzelbedingungen einklammern. Und in deinem Fall bietet sich insgesamt auch ein case-of an.

[widowmaker2k7]

AAH vielen Dank, klappt wunderbar, das mit den Klammern wusste ich nicht.

mfg

[DeddyH]

Aber wie bereits angesprochen, nimm besser case.

Delphi-Quellcode:

case a of
  0..7  : ShowMessage('Zu jung');
  8..14 : ShowMessage('Babyzocker');
  15..17: ShowMessage('Was weiß ich');
  else    ShowMessage('Du bist volljährig und musst selber wissen, was Du tust');
end;

So in der Art.