运行出错了,请指教．

2008-05-23 04:11:24 149 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

R_柱状图（加误差线，显著性差异）先放最终效果图结果图 # bar_plot 2021/01/19 # 导入所需的包 library(ggplot2) library(ggthemr) library(ggsignif) library(tidyverse) library(dplyr) library(ggpubr) library(devEMF) # 导入并处理数据,需要两张表，一个是原始汇总表格，另外一些是每一... 阅读详情

var
Codes:array[0..2] of Byte;
kuadu:array of Byte;
bMax,bMin:Byte;
str:string;
i,j,s: integer;

begin
SetLength(kuadu,(FCurveList.Count-1));　　//////FCurveList：TStringList;无错
kuadu[j]:=0;
for j:=FCurveList.Count-1 downto 0 do
begin
str:=Copy(FCurveList[j],7,3); //////FCurveList：TStringList;无错
Codes[0]:=Ord(str[1]);
Codes[1]:=Ord(str[2]);
Codes[2]:=Ord(str[3]);
bMax:=Codes[0];
bMin:=Codes[0];
for s:=1 to 2 do
begin
bMax:=Max(bMax, Codes[s]);
bMin:=Min(bMin,Codes[s]);
end;
kuadu[j]:=bMax-bMin;
showmessage(inttostr(kuadu[j]));
end;

说明：求kuadu[j]时，显示invalid pointer operation错误

...全文