Просьба помочь разобраться почему значения попадают в Memo

[Ветас]

Здравствуйте, Уважаемые форумчане.

Решаю задачу:
Формируется массив из 10 целых чисел путем ввода с клавиатуры. Числа заносятся в ячейки компонента StringGrid

В программе идет проверка на заполненность всех ячеек компонента StringGrid

Memo1.Text:='';
 for i:=1 to 10 do
    if StringGrid1.Cells[i,0]='' then begin
   ShowMessage('Не все ячейки заполнены!!!');

   break;
   end
   else
   a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

Но при нажатии на копку "Сформировать" выдается сообщение "Не все ячейки заполнены" и в Memo попадают случайные числа.

Как сделать так, чтобы случайные числа не попадали в Memo при нажатии на кнопку "Сформировать" если не все ячейки компонента StringGrid заполнены ?

Процедура нажатия на кнопку "Сформировать" :

procedure TForm1.Button1Click(Sender: TObject);
var
  a        :array[1..10] of integer;
  i        :integer;
  changed  :boolean;
  buf      :integer;
begin
   Memo1.Text:='';
 for i:=1 to 10 do
    if StringGrid1.Cells[i,0]='' then begin
   ShowMessage('Не все ячейки заполнены!!!');

   break;
   end
   else
   a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

 repeat
   changed:=false;
   for i:=1 to 10 - 1 do
     if a[i]<a[i+1] then begin
       buf:=a[i];
       a[i]:=a[i+1];
       a[i+1]:=buf;
       changed:=true;
     end;
 until not changed;
 
 for i:=1 to 10 do
   Memo1.Lines.Add(IntToStr(a[i])) ;
 
end;

[Stilet]

 ShowMessage('Не все ячейки заполнены!!!');
  exit;

Тогда выполнение до

for i:=1 to 10 do
   Memo1.Lines.Add(IntToStr(a[i])) ;

не дойдет и в Мемо не будет ничего писаться

Смысля ясна?

[Ветас]

Спасибо за ответ.
Но скажите, пожалуйста, даже если я введу во все ячейки числа - все равно выскочит сообщение "Не все ячейки заполнены"

[Stilet]

все равно выскочит сообщение "Не все ячейки заполнены"

Значит так оно и есть.

[Ветас]

В том то и дело что во все ячейки вбиваются числа, а все равно выскакивает сообщение "Не все ячейки заполнены"

Может быть какое то еще условие надо написать в процедуре ?

procedure TForm1.Button1Click(Sender: TObject);
var
  a        :array[1..10] of integer;
  i        :integer;
  changed  :boolean;
  buf      :integer;
begin
   Memo1.Text:='';
 for i:=1 to 10 do
    if StringGrid1.Cells[i,0]='' then begin
   ShowMessage('Не все ячейки заполнены!!!');
   exit;
   end
   else
   a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

 repeat
   changed:=false;
   for i:=1 to 10 - 1 do
     if a[i]<a[i+1] then begin
       buf:=a[i];
       a[i]:=a[i+1];
       a[i+1]:=buf;
       changed:=true;
     end;
 until not changed;
 
 for i:=1 to 10 do
   Memo1.Lines.Add(IntToStr(a[i])) ;
 
end;

[raxp]

что-то не пойму... не вы ли это?

[Stilet]

а все равно выскакивает сообщение "Не все ячейки заполнены"

Все все??? В первой строке? Ты уверен?

[Ветас]

Большое спасибо всем за ответы! Получилось!

for i:=1 to 10 do
   if StringGrid1.Cells[i-1,0]='' then begin
   ShowMessage('Не все ячейки заполнены!!!');
   exit;
   end
   else
   a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);