Здраствуйте, помогите начинающему. Есть код на делфи
Код:
Form2.DataSetProvider1.DataSet.Open;
Form2.ADOTable1.Insert;
Form2.ADOTable1.FieldByName('Строка').AsString:=Edit2.Text;
Form2.ADOTable1.FieldByName('Счетчик').AsInteger:=i;
Form2.ADOTable1.Post;
Посоветуйте как сделать так, чтобы при вводе одинаковой "строки" у меня счетчик увеличивался на 1 и записывался в счетчик , а если строки отличаются то был равен i.Пробывал такой вариант, но мне не помогает.
Код:
form2.ADOTable1.First;
for k:= 1 to form2.ADOTable1.RecordCount do
begin
if Form2.ADOTable1.FieldByName('Строка').AsString=Edit2.Text then
begin
Form2.DataSetProvider1.DataSet.Open;
form2.ADOTable1.Edit;
Form2.ADOTable1.FieldByName('Счетчик').AsInteger:=i;
end;
i:=i+1;
Form2.ADOTable1.next;
end;
Admin: Пользуемся тегами!