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

Цитата:
Сообщение от Guaho
А not зачем? С ним как раз будет "если запись не найдена". И AsString не нужно, AsInteger правильнее, т.к. код записи имеет тип Integer.
Я подразумевал, что если запись не найдена то добавить если найдена, то редактировать.
Код:
if  not Table2.Locate('Isid',Table1.FieldByName('Projid').AsInteger,[]) then
begin
        Table2.Insert;
        Table3.Insert;
        end
  else
  begin
     Table2.Edit;
    Table3.Edit;
    end;
 if Edit1.Text<>'' then Table2.FieldByName('Dmin').AsString:=Edit1.Text;
     .....
 Table2.Post;
for i:=0 to n  do
  begin
  Table3.FieldByName('Cy1').AsString:=floattostr(Cy1[i]);
....
end;
  Table3.Post;
Но в табл 3 записывается только последний элемент массива. Не подскажите почему не весь массив ?
Ответить с цитированием