Процедура в Delphi,сумма элементов массива кратных трем.

[Smogg]

поиграйтесь с TryStrToInt()

[Аватар]

F[i]:= StrToInt(StringGrid1.Cells[0,i]);

Ошибка здесь. И что у вас в самой верхней строке грида - имена колонок или числа - покажите

[spectrum988]

Установленные свойства для StringGrid:
ColCoutn:6
FixedCols:0
FixedRows:0
RowCount:1
Вводятся числа.

[Аватар]

То что строки с нуля индексируются угадали. А вот с колонками пролет - чего это они с 1 индексируются?

[spectrum988]

Я пробовал с индексацией колонки с 0,все тоже.

[Аватар]

Что тоже? Код показывайте. Индекс колонки от 0 до 5. И в Cells первый индекс для колонки, второй для строки - у вас наоборот

[spectrum988]

var a,s,i:integer;
begin
S:=0;
  for i:=0 to N do
    F[i]:= StrToInt(StringGrid1.Cells[i,0]);
  for i:=0 to N do
  begin
    If (trunc(F[i]) mod 3=0)
    Then
    begin
    S:=F[i]+S;
    Edit1.Text:=IntToStr(S);

Вы имели ввиду так ?

[Аватар]

Индекс колонки от 0 до 5

[spectrum988]

Спасибо Вам большое,вы не можете представить сколько я времени убил на поиск это ошибки.