array auslesen

[ibp]

array in memo:

Delphi-Quellcode:

procedure tForm1.MeasureToMemo(var aMess : tMessungen);
var i:integer;
begin
  for i:=1 to 50 do
    with aMess[i] do
      Memo1.lines.add(datum+
                      floattostr(Htemperatur)+' '+
                      floattostr(Ttemperatur)+' '+
                      floattostr Niederschlag)+' '+
                      inttostr(Luftfeuchte)+' '+
                      floattostr(Luftdruck)+' '+
                      floattostr(Windgeschwindigkeit));
end;