输出问题

a103923

哪错？修改下 编译错误:
标识符“DEBUGFILE( 1,STKLABEL+ 2 +(DAYO”长度不能大于20字符。
-------------

dayo := CALLSTOCK('', VTOPEN, 6, 0); // 当前开盘价
dc := CALLSTOCK('', VTCLOSE, 6, 0); // 当前收盘价
d := (dc - dayo) / dayo; // 计算涨幅，确保使用正确的公式


kk1B := FALSE; // 初始化kk1B为FALSE


// 调试输出当前开盘价、收盘价和涨幅
DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt',
          STKLABEL + ' 开: ' + (dayo:0:2));
DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt',
          STKLABEL + ' 收: ' + (dc:0:2));
DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt',
          STKLABEL + ' 涨: ' + (d * 100:0:2));


// 检查最近20日内是否有跌幅超过-1.8%
for i := 0 to 19 do // 遍历最近20天
begin
    // 计算过去20天的涨幅
    pastClose := CALLSTOCK('', VTCLOSE, 6, -i);
    pastOpen := CALLSTOCK('', VTOPEN, 6, -i);
    pastChange := (pastClose - pastOpen) / pastOpen; // 计算过去一天的涨幅


    // 调试输出过去20天的开盘价、收盘价和涨幅
    DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt',
              STKLABEL + ' ' + (i + 1):0 + '开: ' + (pastOpen:0:2));
    DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt',
              STKLABEL + ' ' + (i + 1):0 + '收: ' + (pastClose:0:2));
    DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt',
              STKLABEL + ' ' + (i + 1):0 + '涨: ' + (pastChange * 100:0:2));


    if pastChange < -0.018 then
    begin
        kk1B := TRUE; // 如果有一天的跌幅超过-1.8%，则设置kk1B为TRUE
        DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt',
                  STKLABEL + ' 跌超: ' + (i + 1):0);
        break; // 找到后退出循环
    end;
end;


// 输出最终结果
DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt',
          STKLABEL + ' kk1B: ' + (kk1B:0));

技术008

DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt',STKLABEL + ' 开:%.2f',dayo);

你要看函数说明，一共三个位置参数，前面两个是文件路径和一段文字描述，最后一个位置才是输出的数值

a103923

技术008 发表于 2024-11-14 13:04
DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt',STKLABEL + ' 开:%.2f',dayo);

你要看 ...

那修改下呗

技术008

上面的就是的

a103923

技术008 发表于 2024-11-14 13:48
上面的就是的

2024-11-14 14:58:13.432    AG00 开: 7705.00
2024-11-14 14:58:13.432    AG00 收: 7497.00
2024-11-14 14:58:13.433    无效的字符串格式符
2024-11-14 14:58:13.433    无效的字符串格式符
2024-11-14 14:58:13.434    无效的字符串格式符
----------------
帮修正下，如下：
dayo := CALLSTOCK('', VTOPEN, 6, 0); // 当前开盘价
dc := CALLSTOCK('', VTCLOSE, 6, 0); // 当前收盘价
d := (dc - dayo) / dayo; // 计算涨幅，确保使用正确的公式

kk1B := FALSE; // 初始化kk1B为FALSE

// 调试输出当前开盘价、收盘价和涨幅
DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt', STKLABEL + ' 开: %.2f', dayo);
DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt', STKLABEL + ' 收: %.2f', dc);
DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt', STKLABEL + ' 涨: %.2f%%', d * 100);

// 检查最近20日内是否有跌幅超过-1.8%
for i := 0 to 19 do // 遍历最近20天
begin
    // 计算过去20天的涨幅
    pastClose := CALLSTOCK('', VTCLOSE, 6, -i);
    pastOpen := CALLSTOCK('', VTOPEN, 6, -i);
    pastChange := (pastClose - pastOpen) / pastOpen; // 计算过去一天的涨幅

    // 调试输出过去20天的开盘价、收盘价和涨幅
    DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt', STKLABEL + ' 开: %.2f', pastOpen);
    DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt', STKLABEL + ' 收: %.2f', pastClose);
    DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt', STKLABEL + ' 涨: %.2f%%', pastChange * 100);

    // 检查跌幅是否超过-1.8%
    if pastChange < -0.018 then
    begin
        kk1B := TRUE; // 如果有一天的跌幅超过-1.8%，则设置kk1B为TRUE
        DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt', STKLABEL + ' 跌超: %.2f%%', pastChange * 100); // 输出跌幅
        break; // 找到后退出循环
    end;
end;

// 输出最终结果
DEBUGFILE('C:\Weisoft StockDF(x64)\Setting\OrderLog\涨跌.txt', STKLABEL + ' kk1B: %d', kk1B);

技术008

后面不可以再加%的，只能%.2f结尾