AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zeitspanne bei "if" angeben

Ein Thema von widowmaker2k7 · begonnen am 28. Jan 2008 · letzter Beitrag vom 28. Jan 2008
Antwort Antwort
Benutzerbild von widowmaker2k7
widowmaker2k7

Registriert seit: 18. Jan 2008
Ort: Saarbrücken
27 Beiträge
 
Delphi 7 Personal
 
#1

Re: Zeitspanne bei "if" angeben

  Alt 28. Jan 2008, 16:17
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.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz