Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - val? Inputbox/code?
Chippie82 - Di 08.11.05 22:53
Titel: val? Inputbox/code?
Hallo Leute, habe ein paar Fragen zu folgendem Quelltext:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| 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
Lake - Mi 09.11.05 06:02
Hallo,
ich denke der funktionierende Quelltext hilft Dir weiter. Fragen zu 1.) Val und 2.) InputBox werden in der Onlinehilfe beantwortet. 3.) ja.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| procedure TForm1.Button1Click(Sender: TObject);
var
Messwertspeicher : Array[1..10] of Double;
Messwert,
Summe :Double;
Anzahl,code :Integer;
begin
Summe := 0;
Anzahl := 0;
Messwert := 0;
repeat
Anzahl := Anzahl + 1;
Summe := Summe + Messwert;
val (InputBox('MESSWERT: '+IntToStr(Anzahl),'bitte Messwert eingeben', ''),Messwert,code);
If Messwert > 0 then
begin
Messwerte.lines.add('Nr.' + IntToStr(Anzahl) + ': ' + FloatToStr(Messwert));
Messwertspeicher[Anzahl] := messwert;
end;
If Anzahl = 10 then Messwert := 0;
until Messwert = 0;
Messwerte.lines.add('Messwerteingabe beendet!');
end; |
Cybo - Mo 23.01.06 22:41
da wir gerade bei Inputbox sind, kann ich das einstellen, dass anstatt der Eingabe *** angeziegt werden? Bei einem normalen Edit ist ja klar wie das geht, aber bei einer Inputbox ?
Weiß es jemand?
MfG
Cybo - Di 24.01.06 21:16
Ich danke dir :) Funktioniert wunderbar.
MfG
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!
Lannes hat folgendes geschrieben: