Ratezahl 2 Delphi (leicht)

[andiak]

das versteh ich jetzt nicht :/ was muss hier rein?... ich hab grad volgenden code im internet gefunden kann ich den nicht verwenden

Delphi-Quellcode:

if StrToInt(EEingabe.Text) = Zahl+12 then
    begin
     Panel1.Caption := 'erfroren';
     Panel1.Color  := clblue ;
     if StrToInt(EEingabe.Text) = Zahl+10 then
       begin
        Panel1.Caption :=  'kalt';
        Panel1.Color  := clblue ;
     if StrToInt(EEingabe.Text) = Zahl+8 then
       begin
        Panel1.Caption :=  'kuehl';
        Panel1.Color  := clblue ;
     if StrToInt(EEingabe.Text) = Zahl+6 then
       begin
        Panel1.Caption :=  'lau warm';
        Panel1.Color  := clred ;
     if StrToInt(EEingabe.Text) = Zahl+4 then
       begin
        Panel1.Caption :=  'warm';
        Panel1.Color  := clred ;
     if StrToInt(EEingabe.Text) = Zahl+3 then
       begin
        Panel1.Caption :=  'waermer';
        Panel1.Color  := clred;
     if StrToInt(EEingabe.Text) = Zahl+1 then
       begin
        Panel1.Caption :=  'heiß';
        Panel1.Color  := clred ;
    end
  else
     if StrToInt(EEingabe.Text) = Zahl-12 then
       begin
        Panel1.Caption := 'erfroren';
        Panel1.Color  := clblue ;
     if StrToInt(EEingabe.Text) = Zahl-10 then
       begin
        Panel1.Caption :=  'kalt';
        Panel1.Color  := clblue ;
     if StrToInt(EEingabe.Text) = Zahl-8 then
       begin
        Panel1.Caption :=  'kuehl';
        Panel1.Color  := clblue ;
     if StrToInt(EEingabe.Text) = Zahl-6 then
       begin
        Panel1.Caption :=  'lau warm';
        Panel1.Color  := clred ;
     if StrToInt(EEingabe.Text) = Zahl-4 then
       begin
        Panel1.Caption :=  'warm';
        Panel1.Color  := clred ;
     if StrToInt(EEingabe.Text) = Zahl-3 then
       begin
        Panel1.Caption :=  'waermer';
        Panel1.Color  := clred;
     if StrToInt(EEingabe.Text) = Zahl-1 then
       begin
        Panel1.Caption :=  'heiß';
        Panel1.Color  := clred ;
    end;
  if StrToInt(EEingabe.Text) = Zahl then
    begin
      Panel1.Caption :=  'und verbrannt';
      Panel1.Color  := clred
    end