Показать сообщение отдельно
  #29  
Старый 31.07.2019, 20:12
Maks19 Maks19 вне форума
Начинающий
 
Регистрация: 19.06.2019
Сообщения: 113
Версия Delphi: Delphi7
Репутация: 10
По умолчанию

Код:
if not Table2.Locate('Isid',Table1.FieldByName('Projid').AsInteger,[]) then
begin
for i:=0 to n do
begin
Table2.Insert;
Table3.FieldByName('Cy1').AsString:=floattostr(Cy1[i]);
.........
Table2.Post;
end;
end
else
begin
for i:=0 to n do
begin
Table2.Edit;
Table2.FieldByName('Cy1').AsString:=floattostr(Cy1[i]);
.........
Table2.Post;
end;
end;
Не подскажите как сделать чтобы менялись все шесть записей в поле ,а не только первый?
Ответить с цитированием