|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Не понятно что не так
Здравствуйте!
Не понятно почему условие 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; Код:
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; Последний раз редактировалось Maks19, 03.07.2024 в 20:31. |