这样如何

(*

Record_R[0]   记录变量

Condition  输入变量

rising_edge 上升沿输出

falling_edge 下降沿输出

*）

IF NOT  Record_R[0] AND Condition THEN

    //  上升沿执行区域

    rising_edge:=TRUE;

    Record_R[0]:=TRUE;

ELSE

    rising_edge:=FALSE;

END_IF;

IF  Record_R[0] AND NOT  Condition THEN

    //下降沿执行区域

    falling_edge:=TRUE;

    Record_R[0]:=FALSE;

ELSE

    falling_edge:=FALSE;

END_IF;