1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
unit fhunit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Graphics;
type
tMessgroesze = (mgTemperatur,mgLuftfeuchte,mgWindgeschwindigkeit,mgWindrichtung,
mgNiederschlag,mgGlobalstrahlung,mgLuftdruck);
tZeitgroesze = (zgJahr,zgMonat,zgTag,zgStunde,zgMin10);
tMesswerte = array[tMessgroesze] of extended;
tZeit = array[tZeitgroesze] of integer;
tMesspunkt = record
zeit: tZeit;
mW: tMesswerte;
end;
const
messNamen: array[tMessgroesze] of string =
('Temperatur','Luftfeuchte','Windgeschwindigkeit','Windrichtung',
'Niederschlag','Globalstrahlung','Luftdruck');
maszEinheit: array[tMessgroesze] of string =
('°C','%','m/s','°','mm','W/m²','mbar');
monatsNamen: array[1..12] of string =
('Januar','Februar','März','April','Mai','Juni','Juli',
'August','September','Oktober','November','Dezember');
farben: array[tMessgroesze] of tColor =
($0000DF,$CFAF7F,$007FFF,$FF00FF,$FFAF3F,$3FAFAF,$AFAFAF);
implementation
end.
|
