Как правильно реализовать ошибку в программе...

[Rayhorn]

Вот код суммы эл-тов>10 динамического массива который находится в stringgrid

sum:=0;
      SetLength(a,n);
      for i:=1 to n do
        a[i-1]:=StrToFloat(strgrds.cells[i,1]);
      for i:=0 to n-1 do
        if a[i]>10 then sum:=sum+a[i];
      vis1;
      Form2.Ilabel1.Caption:='Сумма >10';
      Form2.Iedit1.Text:=FloatToStr(sum)

и вот допустим если в массиве нет эл-тов >10, я хочу что бы высветилась ошибка "Нет эл-тов > 10"
MessageDlg('Нет чисел >10',mtWarning,[mbOK],0);
как это правильно реализовть?

[Serge_Bliznykov]

for i:=0 to n-1 do
        if a[i]>10 then sum:=sum+a[i];

k:=0;
for i:=0 to n-1 do
        if a[i]>10 then begin sum:=sum+a[i]; inc(k) end;
if k=0 then ShowMessage('Нет элементов больше 10')
else ....

p.s. в данном случае избыточно подсчитывается количество подходящих элементов.
Если нужно просто проверить факт наличия таких чисел, то можно обойтись и булевской переменной

isFoundMore10 := false;
for i:=0 to n-1 do
        if a[i]>10 then begin
            sum:=sum+a[i];
            isFoundMore10 := true;
        end;

[Аватар]

Можно вообще без вспомогательных переменных, поскольку сумма положительных чисел

sum:=0;
for i:=0 to n-1 do if a[i]>10 then sum:=sum+a[i];
if sum=0 then сообщение

[Serge_Bliznykov]

Можно вообще без вспомогательных переменных, поскольку сумма положительных чисел

точно так!