12.04.2018, 18:31
|
Прохожий
|
|
Регистрация: 05.04.2018
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
|
|
Обработка stringgrid
Ребят,не могу понять где ошибка,компилятор не ругается но на 3 форме в стрингридах пусто,на первой форме стрингрид заполнен 1 столбцом данных и датами
Код:
procedure TForm1.Button3Click(Sender: TObject);
var i,j,j1,j2,plustabl,minustabl,h,k:integer ;
plus,minus:real;
begin
h:=1;j:=1;
j1:=1;j2:=1;plus:=0;minus:=0;
while j<154 do
begin
if (strtofloat(form1.StringGrid1.Cells[h,j]))>0 then
begin
form3.StringGrid1.Cells[j1,0]:=form1.StringGrid1.Cells[0,j];
while (strtofloat(form1.StringGrid1.Cells[h,j]))>0 do
begin
form3.StringGrid1.Cells[j1,1]:=floattostr(plus+strtofloat(form1.StringGrid1.Cells[h,j]));
inc(j);
end;
j:=j-1;
inc(j1);
end
else
begin
form3.StringGrid2.Cells[j2,0]:=form1.StringGrid1.Cells[0,j];
while strtofloat(form1.StringGrid1.Cells[h,j])>0 do
begin
form3.StringGrid2.Cells[j2,1]:=floattostr(minus+strtofloat(form1.StringGrid1.Cells[h,j]));
inc(j);
end;
j:=j-1;
inc(j2);
end;
end;
|