Узнать только определенные ID и удалить их

[Droid]

у меня есть 2 таблицы я хочу удалить со справочника все id-шники которых нет в основной таблице. и еще выдает еще ошибку... invalid pointer operation

var
s,koli,si,k,l,i: integer;
mas_diag: array of integer;
begin
    si:=dm.ADOQ_Diagnozid_diagnoza.Value;//таблица справочников
    DM.ADOQuery1.Close;//основная таблица
    DM.ADOQuery1.SQL.Clear;
    DM.ADOQuery1.SQL.Add('SELECT id_diagnoza as KOL FROM osnovnoy_soputstvuyhiy_diagnoz WHERE osnovnoy_soputstvuyhiy_diagnoz.id_diagnoza=:si;');
    dm.ADOQuery1.Parameters.ParamByName('si').Value:=si;
    DM.ADOQuery1.Open;
    setlength(mas_diag,dm.ADOQuery1.RecordCount);
    for i:=1 to dm.ADOQuery1.RecordCount do
      begin
        mas_diag[i]:=dm.ADOQuery1.FieldByName('KOL').AsInteger;
        s:=MessageDlg('Удалить запись ?',mtWarning,[mbNO,mbOK],0);
        if s=mrOK then
            begin
                DM.ADOC_PAC.CommandText:='DELETE FROM diagnoz WHERE id_diagnoza<>:idd';
                DM.ADOC_PAC.Parameters.ParamByName('idd').Value:=mas_diag[i];
                DM.ADOC_PAC.Execute;

                DM.ADOQ_Diagnoz.Close;
                DM.ADOQ_Diagnoz.SQL.Clear;
                DM.ADOQ_Diagnoz.SQL.Add('SELECT * FROM diagnoz');
                DM.ADOQ_Diagnoz.Open;
                l:=dm.ADOQ_Diagnoz.RecordCount;
                f_diagnoz.sb_d.Panels[0].Text:='Всего диагнозов: '+inttostr(l);
                mas_diag:=nil;
            end
        else
          if s=mrNO then
                exit;
        end;

end;

[soleil@mmc]

Сообщение от Droid

и еще выдает еще ошибку... invalid pointer operation

видимо, ошибка здесь возникает

 mas_diag:=nil;

а зачем так все сложно?
есть подозрение, что если оно все заработает, то работать будет неправильно
имхо можно все сделать одним запросом

[Droid]

Сообщение от soleil@mmc

видимо, ошибка здесь возникает

 mas_diag:=nil;

а зачем так все сложно?
есть подозрение, что если оно все заработает, то работать будет неправильно
имхо можно все сделать одним запросом

каким ? и как результат запроса может получить к примеру 3000 id ? кроме как не черезмассив целых чисел ?

[Serge_Bliznykov]

а зачем так все сложно?
есть подозрение, что если оно все заработает, то работать будет неправильно
имхо можно все сделать одним запросом

+1

Согласен. Подход к решению изначально неверен!

Эту задачу ОДНОЗНАЧНО надо решать через один простенький запрос!

DELETE FROM diagnoz 
   WHERE id_diagnoza NOT IN
     (SELECT id_diagnoza as KOL FROM 
       osnovnoy_soputstvuyhiy_diagnoz)

предварительно добавить вопрос - "Удалить все диагнозы из справочника, на которые нет ссылок в основной таблице? "
потом .ExecSQL.
и всё. задача решена!

p.s. Это практически ПОЛНАЯ программа! Весь Ваш остальной код выкинуть из процедуры напрочь!

[Droid]

Благодарю все получилось )