今天客戶要求在報表裡的grid裡輸入三個值 如果"連續"超過或小於中心值三次就發mail通知與字體變紅。(如附件)

我的程式是這樣寫的
設一個integer變數 sRow和sRow1
中心值 Midvalue := strTofloat(midval.text)
CellValue := StrToFloat(Cells[i,j]);
if Cells[i,j] <> ' ' then
begin
if CellValue > MidValue then
begin
sRow := sRow 1 ;
end else
sRow := sRow -1 ;
if CellValue < MidValue then
begin
sRow1 := sRow1 1 ;
end else
sRow1 := sRow1 -1 ;
if (sRow = 3)or(sRow1 = 3 )then
begin
Canvas.Font.Color:=ClRed;
MailFlag := True;
end;
end;

但怎麼輸入sRow都是1...sRow1 等於-1...
不知道我的邏輯是否有錯?
請問是否有更好的想法可以幫忙解決此問題呢?

附加檔案：5123402d8570c_如果連續超過中心值三次就發mail通知與字體變紅.docx

1.當然, 你犯了一個很大的邏輯上的錯誤
先看第一組紅字 (我不要用公式, 用常式來說明)
if CellValue < MidValue then
這是否有矛盾
依上述的判斷
if CellValue <= MidValue

然而, 你卻又下了第二組
if CellValue < MidValue 為真
否則為否
這豈又不把已經計算的值, 還原成第一組條件了嗎?
難怪你的值永遠在 1 與 -1

if CellValue > MidValue then
begin
sRow := sRow 1 ;
end else
sRow := sRow -1 ;
if CellValue < MidValue then
begin
sRow1 := sRow1 1 ;
end else
sRow1 := sRow1 -1 ;
if (sRow = 3)or(sRow1 = 3 )then
begin
Canvas.Font.Color:=ClRed;
MailFlag := True;
end;
end;

但怎麼輸入sRow都是1...sRow1 等於-1...
不知道我的邏輯是否有錯?
請問是否有更好的想法可以幫忙解決此問題呢?

謝謝版主的回答~感激您~