Delphi-Quellcode:
procedure tForm1.EntryMeasure(var aMess : tMessungen; i:integer);
begin
for i:=1 to 50 do
with aMess[i] do
begin
datum:=edit1.text;
Htemperatur:=strtofloat(edit2.text);
Ttemperatur:=strtofloat(edit3.text);
Niederschlag:=strtofloat(edit4.text);
Luftfeuchte:=strtoint(edit5.text);
Luftdruck:=strtofloat(edit6.text);
Windgeschwindigkeit:=strtofloat(edit7.Text);
end;
end;
Wie ich das hier sehe, wird das eine, was eingelesen wird, in jedes Array-Feld gepackt. Wie mache ich das denn, dass ich eine Folge von Messdaten ins erste Array-Feld packe und speichere und die nächste folge in das zweite Array-Feld kommt?