Code Inputbox val???

**Chippie82**

Hallo Leute, habe ein paar Fragen zu folgendem Quelltext:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);  

 var  

  Anzahl: Array[1..10] of Double;  

  Messwertspeicher: Double;  

  Messwert:Double;  

  Anzahl:Integer;  

  code:integer;  

   begin  

    Summe:= 0;  

    Anzahl:= 0;  

     repeat  

      Anzahl:= Anzahl + 1;  

      Summe:=Summe+Messwert;  

      val (InputBox('MESSWERT','bitte Messwert eingeben', ''),Messwert,code);  

       If Messwert >0 then  

        Messwerte.lines.add('Nr.'+inttostr(Anzahl)+':'+floattostr(Messwert));  

        Messwertspeicher[anzahl]:=messwert;  

         UNTIL Messwert = 0;  

          Messwertspeicher[anzahl]:=messwert;  

          Messwerte.lines.add('Messwerteingabe beendet!');  

          anzahl:=anzahl-1;  

        end;

Nun meine Frage/n:
1. Was bezweckt val vor der Inputbox?
2.Was genau mache ich mit der Variablen code und Messwert in der Zeile mit der Inputbox?
3. Ist es richtig, dass ich in dieser Zeile (Messwertspeicher[anzahl]:=messwert

mit Anzahl meine Messwerte 1-10 meine, also das Anzahl für meine Arrays von 1 bis 10 steht?

Ich hoffe ihr könnt mir weiterhelfen!!!

Vielen Dank schon mal.

Euer Chippie

Code Inputbox val???

Code Inputbox val???

Forumregeln