Лабораторная работа: Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7 0

begin

k:=0;

StringGrid2.colCount:=k+1;

p:=0;

StringGrid3.colCount:=p+1;

for i:=1 to StringGrid1.ColCount - 1 do

if STrToFloat(StringGrid1.Cells[i,1]) >0 then

begin

k:=k+1;

StringGrid2.colCount:=k+1;

StringGrid2.Cells[k,1]:= FloatToStr(StrToFloat(StringGrid1.Cells[i,1]))

end

else

begin

p:=p+1;

StringGrid3.colCount:=p+1;

StringGrid3.Cells[p,1]:= FloatToStr(StrToFloat(StringGrid1.Cells[i,1]));

end;

for i:=1 to StringGrid3.ColCount-1 do

StringGrid3.Cells[i,0]:='Z'+'['+Inttostr(i)+' ]';

for i:=1 to StringGrid2.ColCount-1 do

StringGrid2.Cells[i,0]:='Y'+'['+Inttostr(i)+' ]';

end;

procedure TForm6.StringGrid1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in [#8, '0' .. '9' , '-' , ',' ]) then key:=#0;

end;

// Решениезадачи

procedure TForm6.Button2Click(Sender: TObject);