delphi 如何得到循环中满足条件的第一个值和最后一个值
fory:=1toFrameYdo。。。。。forx:=1toFrameXdobeginif(Hcor[x]>=Threshold)and(peakBegin=False...
for y := 1 to FrameY do
。。。。。
for x := 1 to FrameX do
begin
if (Hcor[x] >= Threshold) and (peakBegin = False) then
。。。。。。。
我想得到满足if条件的第一个Y 值和最后一个Y 值
谢谢各位大侠 展开
。。。。。
for x := 1 to FrameX do
begin
if (Hcor[x] >= Threshold) and (peakBegin = False) then
。。。。。。。
我想得到满足if条件的第一个Y 值和最后一个Y 值
谢谢各位大侠 展开
展开全部
var
GetFirst: boolean;
fiFristYValue,fiLastYValue: integer;
begin
.......
//之前的不写了,从这里开始
GetFirst:= false;
fiFristYValue := 0;
fiLastYValue := 0;
if (Hcor[x] >= Threshold) and (peakBegin = False) then
begin
if GetFirst then
begin
fiLastYValue := Y;
end
else
begin
fiFirstYValue := Y;
GetFirst := true;
end;
end;
end;
程序运行完,fiFirstYValue就是第一个满足条件的Y,fiLastYValue就是最后一个满足条件的Y值!
GetFirst: boolean;
fiFristYValue,fiLastYValue: integer;
begin
.......
//之前的不写了,从这里开始
GetFirst:= false;
fiFristYValue := 0;
fiLastYValue := 0;
if (Hcor[x] >= Threshold) and (peakBegin = False) then
begin
if GetFirst then
begin
fiLastYValue := Y;
end
else
begin
fiFirstYValue := Y;
GetFirst := true;
end;
end;
end;
程序运行完,fiFirstYValue就是第一个满足条件的Y,fiLastYValue就是最后一个满足条件的Y值!
2012-01-06
展开全部
var y1,y2:int;
y1=0;y2=0;
for y := 1 to FrameY do
for x := 1 to FrameX do
begin
if (Hcor[x] >= Threshold) and (peakBegin = False) then
begin
if y1=0 then y1:=y;
y2:=y;
end
y1=0;y2=0;
for y := 1 to FrameY do
for x := 1 to FrameX do
begin
if (Hcor[x] >= Threshold) and (peakBegin = False) then
begin
if y1=0 then y1:=y;
y2:=y;
end
本回答被提问者采纳
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询