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 值

谢谢各位大侠
展开
 我来答 举报
百度网友456a6ec
2012-01-06
知道答主
回答量:6
采纳率:0%
帮助的人:7.5万
展开全部
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值!
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
匿名用户
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
本回答被提问者采纳
1 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式