Einzelnen Beitrag anzeigen

Popov
(Gast)

n/a Beiträge
 
#15

AW: Delphi Aufgabe - Prämien

  Alt 8. Feb 2012, 22:43
Da gibt es viele Möglichkeiten, aber hier bietet sich StrToIntDef gerade zu an.

Alter := StrToIntDef(Edit1.Text, -1); Wird etwas falsches angegeben, z.B. Text statt Zahl, bekommt Variable Alter den Wert -1. Und da es mindestens 0 Jahre alt sein muss um in der Firma arbeiten zu dürfen reicht nun eine einfache if Alter > -1 Anfrage. Gibt einer -25 dann ist es auch < 0, also perfekt.

Ansonsten vielleicht etwas genauer:

Delphi-Quellcode:
const
  Min = 16;
  Max = 65;
var
  Alter: Integer;
begin
  Alter := StrToIntDef(Edit1.Text, -1);

  if (Alter < Min) or (Alter > Max) then
    ShowMessage('Falsche Alterseingabe')
  else
    ShowMessage('Alles klar, der Typ ist ' + IntToStr(Alter) + ' Jahre alt');
end;
  Mit Zitat antworten Zitat