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.