Delphi Aufgabe - Prämien

[Popov]

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;