[Maks19]

Здравствуйте!
Не понятно почему условие else наступает только на 4 - е нажатие кнопки?
хотя условие false.

Код:

if   Table3.Locate('Rezid',Table1.FieldByName('Projid').AsInteger,[]) then
    begin
   for i:=0 to m  do
       begin
   
   StringGrid1.Cells[6,i+1]:=Table3.FieldByName('Alfa6').AsString;
       Table3.Next;
  
    c12_[i]:=StrtoFloat(Table3.FieldByName('Alfa6').AsString);
    end;
ysum1_[0]:=c7_[14];
  ........
   Chart1.Series[0].Clear;
   for i:=0 to n  do
       begin
   alfa1[i]:=(10+5*i);
 Chart1.Series[0].AddXY(alfa1[i],ysum1_[i]);
 end;
 end
else
begin
for i:=1 to m+1 do
begin
StringGrid1.Cells[1,i]:='';
StringGrid1.Cells[2,i]:='';
StringGrid1.Cells[3,i]:='';
StringGrid1.Cells[4,i]:='';
StringGrid1.Cells[5,i]:='';
StringGrid1.Cells[6,i]:='';
end;
Chart1.Series[0].Clear;
end;

Т. е при false должно произойти

Код:

for i:=1 to m+1 do
begin
StringGrid1.Cells[1,i]:='';
StringGrid1.Cells[2,i]:='';
StringGrid1.Cells[3,i]:='';
StringGrid1.Cells[4,i]:='';
StringGrid1.Cells[5,i]:='';
StringGrid1.Cells[6,i]:='';
end;
Chart1.Series[0].Clear;

А это происходит только после 4-го подряд нажатия на кнопку.