Табличные данные

[vova09]

Сообщение от Serge_Bliznykov

ну, если данные Вам советы (см. выше посты про TryStrToInt / TryStrToFloat ) не помогут, то сбрасывайте, разберём вместе.

Добрый день, вот вырезка-пример одного из расчётов в определённой таблице где больше всего пустых ячеек;

var
  Form1: TForm1;

  arv,brv,srv,qrv,wrv,zrv,xrv,vkr,akr,bkr,skr,xkr,zkr: Integer;
  chr: Real;
implementation

{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
arv:=StrToInt(edt34.Text);
brv:=StrToInt(edt35.text);
srv:=StrToInt(edt36.Text);
qrv:=StrToInt(edt37.Text);
wrv:=StrToInt(edt38.Text);
zrv:=StrToInt(edt39.Text);
xrv:=StrToInt(edt40.text);
akr:=StrToInt(edt21.text);
vkr:=StrToInt(edt20.Text);
bkr:=StrToInt(edt22.Text);
skr:=StrToInt(edt23.Text);
xkr:=StrToInt(edt24.Text);
zkr:=StrToInt(edt25.Text);
chr:=arv-((arv-brv)*vkr/10+(arv-srv)*akr/10+(arv-qrv)*bkr/10+(arv-wrv)*skr/10+(arv-zrv)*xkr/10+(arv-xrv)*zkr/10);
edt56.Text:=FloatToStr(chr);
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

вот, если ячейка пустая, то брать значение ноль:

procedure TForm1.btn1Click(Sender: TObject);
begin
  arv:=StrToIntDef(edt34.Text,0);
  brv:=StrToIntDef(edt35.text,0);
  srv:=StrToIntDef(edt36.Text,0);
  qrv:=StrToIntDef(edt37.Text,0);
  wrv:=StrToIntDef(edt38.Text,0);
  zrv:=StrToIntDef(edt39.Text,0);
  xrv:=StrToIntDef(edt40.text,0);
  akr:=StrToIntDef(edt21.text,0);
  vkr:=StrToIntDef(edt20.Text,0);
  bkr:=StrToIntDef(edt22.Text,0);
  skr:=StrToIntDef(edt23.Text,0);
  xkr:=StrToIntDef(edt24.Text,0);
  zkr:=StrToIntDef(edt25.Text,0);
  chr:=arv-((arv-brv)*vkr/10+(arv-srv)*akr/10+(arv-qrv)*bkr/10+(arv-wrv)*skr/10+(arv-zrv)*xkr/10+(arv-xrv)*zkr/10);
  edt56.Text:=FloatToStr(chr);
end;

p.s. вместо кучи editов удобнее брать TStringGrid - это такая табличка из эдитов.

[vova09]

Сообщение от Serge_Bliznykov

вот, если ячейка пустая, то брать значение ноль:

procedure TForm1.btn1Click(Sender: TObject);
begin
  arv:=StrToIntDef(edt34.Text,0);
  brv:=StrToIntDef(edt35.text,0);
  srv:=StrToIntDef(edt36.Text,0);
  qrv:=StrToIntDef(edt37.Text,0);
  wrv:=StrToIntDef(edt38.Text,0);
  zrv:=StrToIntDef(edt39.Text,0);
  xrv:=StrToIntDef(edt40.text,0);
  akr:=StrToIntDef(edt21.text,0);
  vkr:=StrToIntDef(edt20.Text,0);
  bkr:=StrToIntDef(edt22.Text,0);
  skr:=StrToIntDef(edt23.Text,0);
  xkr:=StrToIntDef(edt24.Text,0);
  zkr:=StrToIntDef(edt25.Text,0);
  chr:=arv-((arv-brv)*vkr/10+(arv-srv)*akr/10+(arv-qrv)*bkr/10+(arv-wrv)*skr/10+(arv-zrv)*xkr/10+(arv-xrv)*zkr/10);
  edt56.Text:=FloatToStr(chr);
end;

p.s. вместо кучи editов удобнее брать TStringGrid - это такая табличка из эдитов.

Спасибо большое. Позже попробую, пробовал 0 проставлять, но помнится, что ошибку викидывал, попробую ещё раз.