错误更正: if BoolFZ then begin if I > Length(DrawText) then DrawSubText := ' else begin DrawSubText := Copy(DrawText, Length(DrawText) - I + 1, 1); if DrawSubText = '-' then DrawSubText := '; end; end else begin if I > Length(DrawText) then DrawSubText := ' else DrawSubText := Copy(DrawText, Length(DrawText) - I + 1, 1); end; 将对应的代码段覆盖即可
if I > Length(DrawText) then DrawSubText := ' else DrawSubText := Copy(DrawText, Length(DrawText) - I + 2, 1); 将以上两行改为 if I >= Length(DrawText) then DrawSubText := ' else DrawSubText := Copy(DrawText, Length(DrawText) - I + 1, 1);