ошибка в одномерном массиве Delphi

[Op1nG.Spark]

Доброго времени суток!
Помогите с ошибкой.
программа запускается но при клике нахождение номера минимального элемента выдает ошибку

Project 1.exe raised exception class EConvertError with message "is not a valid integer value". Process stoped. Use Step or run to Continue.

вот этой части кода я так понимаю

procedure TForm1.Button4Click(Sender: TObject);
var
  min: integer; // номер минимального элемента массива
  i: integer; // номер элемента, сравниваемого с минимальным
begin
  mas[i] := StrToInt(StringGrid1.Cells[i-0,1]);
  // поиск минимального элемента
  min:=1; // пусть первый элемент минимальный
  for i :=2 to N do
    if mas[i] < mas[N] then
      min:= i;
  // вывод результата
  Edit1.text:='Минимальный элемент массива:'
    + IntToStr(mas[min]) +'Номер элемента:'+ IntToStr(min);
end;

end.

и вот исходник приложил.

[Rik_Igle]

var
  min: integer; // номер минимального элемента массива
  i: integer; // номер элемента, сравниваемого с минимальным
begin
  mas[i] := StrToInt(StringGrid1.Cells[i-0,1]);
  // поиск минимального элемента
  min:=1; // пусть первый элемент минимальный

Как оно вообще создает массив?

И у тебя неправильное условие в строчке:

if mas[i] < mas[N] then

[Op1nG.Spark]

Сообщение от Rik_Igle

var
  min: integer; // номер минимального элемента массива
  i: integer; // номер элемента, сравниваемого с минимальным
begin
  mas[i] := StrToInt(StringGrid1.Cells[i-0,1]);
  // поиск минимального элемента
  min:=1; // пусть первый элемент минимальный

Как оно вообще создает массив?

И у тебя неправильное условие в строчке:

if mas[i] < mas[N] then

массив создается другим кодом это лишь часть программы которая не работает....
а какое условие поставить?

[Zer0]

Вопрос - в гриде есть пустые ячейки? Можете выложить скрин заполнения грида при котором вылазит эта ошибка?

P.S. скорее всего в этом и проблема, используйте StrToIntDef, чтобы не возникало таких ошибок, т.е. вместо

mas[i] := StrToInt(StringGrid1.Cells[i-0,1]);

использовать

mas[i] := StrToIntDef(StringGrid1.Cells[i,1],0);

P.P.S. Еще Вы забыли использовать цикл для заполнения массива, изначально i=0, а в самом начале Вы заполняете массив одним значением:

begin
  mas[i] := StrToInt(StringGrid1.Cells[i-0,1]); //mas[0]:=StrToInt(StringGrid1.Cells[0,1])

надо:

for i:=1 to N do
  mas[i] := StrToInt(StringGrid1.Cells[i,1]);

[Op1nG.Spark]

работает после изминения но элемент не самый меньшии выдает.

[Op1nG.Spark]

ваще шляпа получилась в индексах запутался я .после твоих изминении он начал работать но не совсем правильно .он пишет номер элемента 18 например минимальный элемент и какой это элемент.а номер 19 это и элемент иногда лишь правильно выдает чаще ошибочно(не самый минимальный)

если не сложно посмотри исходник.
там в исходнике нет вывода для суммы но это не суть(просто дописать Edit).главное вот с индексами разобраться бы мне...ваааще запутался(((((((
и элемент не минимальный находит

[Zer0]

Вы бы скинули тот код, который у Вас сейчас получился, чтобы видеть, может Вы где-то что-то не так поняли или добавили лишнего
И в очередной раз попрошу часть кода, где объявляется массив