Search options (Page 6 of 6)

var
p1: string;
p2: string;
p3: string;
p4: integer;
procedure plan_edit_Edit8_OnChange (Sender: TObject);
begin
p1:=plan_edit.Edit8.Text;            //lekz
p2:=plan_edit.Edit9.Text;           //lab
p3:=plan_edit.Edit10.Text;        //prakt
p4:=StrToInt(p1)+StrToInt(p2)+StrToInt(p3);
plan_edit.Edit11.Text:=IntToStr(p4);
end;

procedure priem_corr_Button10_OnClick (Sender: TObject; var Cancel: boolean); //в конец списка
begin
priem_corr.TableGrid1.dbItemId:=priem_corr.TableGrid1.RowCount-1;
end;

procedure priem_corr_Button11_OnClick (Sender: TObject; var Cancel: boolean); //в начало списка
begin
priem_corr.TableGrid1.dbItemId:=1
end;

procedure priem_corr_Button9_OnClick (Sender: TObject; var Cancel: boolean);   //назад
begin
priem_corr.TableGrid1.dbItemId:=priem_corr.TableGrid1.dbItemId-1
end;

procedure priem_corr_Button8_OnClick (Sender: TObject; var Cancel: boolean);    //вперед
begin
priem_corr.TableGrid1.dbItemId:=priem_corr.TableGrid1.dbItemId+1
end;