delphi. матрица в StringGrid. чего не работет прога

[tec46]

Добрый вечер всем. подскажите пожалуйста почему delphi 7 выдает ошибку на a:=StrToInt(StringGrid1.cells[i;0]);

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure StringGrid1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Const n=15;
var
  Form1: TForm1;
    min_idx, max_idx: integer; 
  i: integer;
  a: array of integer;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
begin

  randomize;
  for i:=1 to 15 do
    begin
      a[i]:=random(5000);
      write(a[i],' ');
    end;
for i:=0 to n-1 do
a:=StrToInt(StringGrid1[i;0]);
for i:=0 to n-1 do
if a>a[i+1] then begin
 min_idx:=i+1; max_idx:=i;
 end
 else begin
 min_idx:=i; max_idx:=i+1;
 end;
  
  for i:= 0 to n-1 do begin
if a>max then max_idx:=i; if a<min then  min_idx:=i;
end;
  if (a[min_idx] = 0) or (a[max_idx] = 0) then begin
  
    for i:= 1 to (min_idx)-1  do a:= 0; 
  end;
for i:= 0 to n-1 do
StringGrid1[i,0]:=IntToStr(a);
end.

вот что должна делать прога:
дан массив из 15 целых чисел. Если минимальный или максимальный элемент равен 0, то обнулить элементы массива, предшествующие минимальному элементу в массиве.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[<- DelpHIFanat ->]

Не тестировал, но на 96% уверен, что косяк из-за того, что вы обращаетесь к переменной a не как к элементу массива, а это глобально объявленный динамический массив. Насколько я помню, к массиву в целом можно обращаться лишь тогда, когда нужно тупо скопировать один массив в другой. А чтобы лучше в коде разбираться, нужно форматировать его: ставить символы табуляции (или пробелы) внутри блока (begin ... end), для условного оператора, оператора цикла и т. д.

[tec46]

я пока в программирование не особа варю, вы не могли бы помочь это исправить?

[<- DelpHIFanat ->]

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

я пока в программирование не особа варю, вы не могли бы помочь это исправить?

Сейчас поправлю, если, конечно, разберусь!..

[Mad_Cat]

a:=StrToInt(StringGrid1.cells[i,0]);

[tec46]

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

a:=StrToInt(StringGrid1.cells[i,0]);

все рано выдает ошибку

[<- DelpHIFanat ->]

Глянув на Ваш код, решил, что править нет смысла - лучше свой написать. Прогу написал, у меня пашет. И ещё, не нужно обвинять Delphi в том, что среда что-то не понимает - я раньше тоже так делал, но ошибка, как всегда в прокладке - ничего не поделать - человеческий фактор!

[tec46]

Огромное спасибо)))))