N�o Inserir Registro Iguais no DbGrid - Open Dialog

Question

Boa tarde!!!N�o estou conseguindo resolver um problema, tenho um dbgrid aonde eu insiro v�rios registros pelo opendialog,mas por exemplo, se eu esquecer de inserir 1 item, e ir para inserir de novo,...

Natanael Ferreira · Answer

Tente utilizar o Locate para testar se � uma duplicidade:

procedure TfrmInserirArt.btnInserirArtClick(Sender: TObject);
var
  i: Integer;
  Origem, Destino, caminho: string;
begin
  if openDialogInserirArt.Execute then
    for i := 0 to openDialogInserirArt.Files.Count - 1 do
    begin
      try
        memTableInserirArt.Open;

        if not memTableInserirArt.Locate('ART_NOME', ExtractFileName(openDialogInserirArt.Files[i]),
          [loCaseInsensitive]) then // Se n�o for duplicidade, insere novo registro
        begin
          memTableInserirArt.Append;
          memTableInserirArt.FieldByName('ART_CODIGOOBRA').AsString := edtCodigo.Text;
          memTableInserirArt.FieldByName('ART_NOME').AsString :=
            ExtractFileName(openDialogInserirArt.Files[i]);
          memTableInserirArt.FieldByName('ART_CAMINHO').AsString :=
            ExtractFilePath(openDialogInserirArt.Files[i]);
          memTableInserirArt.FieldByName('ART_DATA').AsString := mskdata.Text;
          memTableInserirArt.FieldByName('ART_NOMECAMINHO').AsString :=
            ExtractFilePath(openDialogInserirArt.Files[i]) +
            ExtractFileName(openDialogInserirArt.Files[i]);
          memTableInserirArt.FieldByName('ART_DESTINO').AsString := 'C:\\\\SisEng\\\\Art\\\\CodigoObra\\\\'
            + memTableInserirArt.FieldByName('ART_CODIGOOBRA').AsString;
          memTableInserirArt.FieldByName('ART_STATUS').AsString := 'FECHADO';
          memTableInserirArt.FieldByName('ART_CAMINHORENOMEADO').AsString :=
            memTableInserirArt.FieldByName('ART_DESTINO').AsString + '\\\\' +
            memTableInserirArt.FieldByName('ART_NOME').AsString;
          memTableInserirArt.FieldByName('ART_NUMERO').AsString := edtNumeroArt.Text;
          memTableInserirArt.FieldByName('ART_TIPO').AsString := 'CONSTRUTORA';
          memTableInserirArt.Post;
        end;
      except
        on E: Exception do
        begin
          // memTableInserirArt.Cancel;
          ShowMessage('Erro ao incluir o arquivo na tabela.' + sLineBreak + E.Message);
        end;
      end;
    end;

  ShowMessage('Verifique,Caso haja ART[s] em Negrito, j� foram inseridas!' + #13 +
    'Favor Excluir!');
end;

F�rum N�o Inserir Registro Iguais no DbGrid - Open Dialog #598941