Delphi-PRAXiS - Delphi Code Inputbox val???

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Code Inputbox val??? (https://www.delphipraxis.net/56622-code-inputbox-val.html)

Code Inputbox val???

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

Re: Code Inputbox val???

Klick das val in deinem Delphi an und drück F1 :)

Re: Code Inputbox val???

Delphi-Quellcode:

InputBox('MESSWERT','bitte Messwert eingeben', '')

Öffnet ein eingabefenster (die InputBox) und fördert zur Eingabe eines Meßwertes.

Delphi-Quellcode:

val(...,Messwert,code);

Wandelt die Eingabe, welche ja ein String ist, in eine Zahl (Double) um.

Und Code gibt (wie es in der OH steht) den Fehlercode zurück. (von der Umwandlung)

Code:

			Var S: String;

  Messwert: Double;

  Code: Integer

S := InputBox('MESSWERT', 'bitte Messwert eingeben', '');

Val(S, Messwert, Code);

If Code <> 0 Then {fehlerhafte Eingabe}

Wobei du Val auch durch eine der folgenden Befehle ersetzen könntest. (jenachdem wie Val verwendet wird, von der Fehlerbehandlung her)

Delphi-Quellcode:

			Messwert := StrToFloat(S);

Messwert := StrToFloatDef(S, 0);

Vielleicht ist es ja so besser für dich erkennbar, was dort gemacht wird. ^^

Delphi-Quellcode:

			Messwert := StrToFloatDef(InputBox('MESSWERT', 'bitte Messwert eingeben', ''), 0);
		

Delphi-Quellcode:

			S := InputBox('MESSWERT', 'bitte Messwert eingeben', '');

Messwert := StrToFloatDef(S, 0);