主题：请教一下，我在逐K线模式下求开仓后最高价是多少这么些对不对？

 我想在开仓操作后，获取开仓至今后的最高价，由于我的公式是逐K线模式的，自己写了以下代码，不知道可行么？

Price:=DYNAINFO(7);

i:=0;
if THOLDING > 0
then
WHILE REF(THOLDING, i) > 0  && i < 50 DO
BEGIN
    if Price < REF(H, i)
    THEN
        Price : = REF(H, i);
END

i:=0;
if THOLDING < 0
then
WHILE REF(THOLDING, i) < 0  && i < 50 DO
BEGIN
    if Price > REF(L, i)  
    THEN
        Price : = REF(L, i);
END

是不是有更优化的代码，请高手指教，谢谢。