rm then InfoGrid.Cells [1,4]: = 'Жіночий' else TObject);. SQL.Clear;. Sql.Text: = 'select * from Table_1 order by id asc;';. Open;. Enabled: = true;. Enabled: = true;. Last;. Caption: = 'Всього анкет: '+ ado.FieldByName (' id '). AsString +' ';. First;. ColWidths [0]: = 220;. ColWidths [1]: = 680;. Cells [0,0]: =' Номер
InfoGrid.Cells [0,6]: = 'Дата народження';. Cells [0,7]: = 'Час витрачається на ігри';. Cells [0,8]: = 'Ігровий досвід ';. Cells [0,9]: =' Улюблений жанр ігор ';. Cells [0,10]: =' Ставлення до платформер ';. Cells [0,11]: =' Операційна система ';. Cells [ 0,12]: = 'Конфігурація комп'ютера';. Cells [0,13]: = 'Наявність приставки';. Cells [0,14]: = 'Улюблена гра';. Cells [0,15]: = 'Інформація про улюблену гру ';. Cells [0,16]: =' Трача грошей на ігри ';. Cells [0,17]: =' Улюблений фільм ';. Cells [0,18]: =' Інформація про себе ';
selectInfo; ('Не знайдено даних!');. Enabled: = false;. Enabled: = false;;; TInfoForm.PriorButtonClick (Sender: TObject);. prior;;; TInfoForm.NextButtonClick (Sender: TObject);. next;;; TInfoForm.Button1Click (Sender: TObject);: integer; then.First; i
