Schweizer Sturmforum

Code: Alles auswählen

  function CheckForTstmFcstVoralpenSaentis : boolean;
  var
    fWS_Hoernli, fWS_Guettingen, fWS_StGallen : double;
    fWD_Hoernli, fWD_Guettingen, fWD_StGallen : double;
  begin
    Result := false;

    GetValuesForANETZStation(fWS_Hoernli, fWD_Hoernli, ABK_HOERNLI, 250, 360, 0, 25);
    GetValuesForANETZStation(fWS_Guettingen, fWD_Guettingen, ABK_GUETTINGEN, 290, 360, 0, 45);
    GetValuesForANETZStation(fWS_StGallen, fWD_StGallen, ABK_STGALLEN, 310, 360, 0, 70);

    if ((((fWD_Hoernli >= 250) and (fWD_Hoernli <= 360)) or ((fWD_Hoernli >= 0) and (fWD_Hoernli <= 25))) and (fWS_Hoernli > 1))
       and ((((fWD_Guettingen >= 290) and (fWD_Guettingen <= 360)) or ((fWD_Guettingen >= 0) and (fWD_Guettingen <= 45))) and (fWS_Guettingen > 0))
       and ((((fWD_StGallen >= 310) and (fWD_StGallen <= 360)) or ((fWD_StGallen >= 0) and (fWD_StGallen <= 70))) and (fWS_StGallen > 0)) then
    begin
      Result := true;
    end;
  end;