Показать сообщение отдельно
  #1  
Старый 28.05.2015, 12:00
Brons14 Brons14 вне форума
Прохожий
 
Регистрация: 22.04.2012
Сообщения: 40
Репутация: 10
По умолчанию Цикл в таблице

Помогите разобраться с такой задачей, есть Edit в него пишется число (количество), по нажатии кнопки необходимо, что бы в ADODataSet добавилось количество записей равному указанному числу в Edit, так что бы в поле "Номер" последовательно происходила нумерация 1, 2, 3, и так до i:=StrToInt(Edit1.Text)
что то вроде этого
Код:
var
i: integer;
index: integer;
begin
  index:=0;
 i:=StrToInt(Edit1.Text);
for index:=0 to i do
DataModule2.ExDS.Insert;
DataModule2.ExDS.FieldValues['Номер экземпляра']:=index+1;
 DataModule2.ExDS.Post;
знаю код совершенно не правильный, но смысл я думаю понятен
Ответить с цитированием