主题：为什么这么写，fstrad一直是1？ 从来没有0 的时候？

你的思路是什么？无条件对fs赋值为1？没有重置数值的条件？

那得这么写

variable:fstrad=0;
if fstrad=0 and 下单条件  then begin
  buy (1,2,market);
  fstrad:=1
end

if holding=0 and 下单条件 and fstrad=1 then begin

    buy........;

end

如果要重置变量，那么再加一句

if 重置条件 then

     fstrad:=0;

end

但是当开多平空条件没有达成的时候应该一直是0 啊

那么既然有这个思路，那你要写出来啊，全局变量定义好后不做赋值处理， 这个值怎么会变

加一句

if not(开多平空条件) then firsttrade:=0;