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.