Скачать: CL | DM;

Динамика в Записях   Найти похожие ветки 

← →
Proglam-ma ©   (2003-12-29 15:49) [0]

Мастера Здравствуйте! Это первый мой вопрос к вам, есть ещё но без полного изучения приставать небуду.
В программе
После заполнения Editов и нажатии на ввод добовляется строка в TStrigGrid c введенными данными, поля Editы очищаются вводятся следующие данные.
Есть кнопка Отбор после её нажатия в поля Memo выводится решение задачи. Всё бы хорошо да вот, вводить данных могу только столько сколько указанно в этих строках т.е. const z=6,7..n, ни цикл, ни счетчик поставить не получается.
r:array[1.. z] of stud;
b:array[1.. z] of integer;
В принципе задачу для здачи я уже перевыполнил, но сделав её больше я должен закончить начатое, а бес помощи уже не могу.

procedure TForm1.eChange(Sender: TObject);
var j:integer;
begin
val(e.Text,i,j);
if (j=0) and (i>0) then
s.RowCount:=i;
k:=strToint(e.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
var j,j1,ii,kod:integer;
begin
Val(Edit2.Text,ii,kod); If (kod = 0) and (ii > 0) then
S.RowCount := ii;

s.Cells[1,0]:="

---

← →
KSergey ©   (2003-12-29 16:16) [1]

array[1..z] of stud;
Надо так:
array of stud;

и читать про SetLength

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c