Delete com PK

[cgarrotti]

Olá, boa tarde
Eu notei que, se o nome da PK nao estiver definida corretamente la na entidade, o Delete não passa a PK para o SQL ocasionando a exclusao de toda tabela. Daria pra colocar um clausula de seguraça nesse caso. (Caso o dev, coloque o nome errado igual eu fiz aqui:

type [Entity] [Table('clientes','')] [PrimaryKey('id_Cliente', 'Chave primária')] [Indexe('idx_client_name','nomeCliente')] [OrderBy('idclientes Desc')] Tclient = class private { Private declarations } Fid: Integer; Fnome: String; // Fclient_foto: TBlob; public { Public declarations } [Restrictions([TRestriction.NoUpdate, TRestriction.NotNull])] [Column('idClientes', ftInteger)] [Dictionary('idClientes','Mensagem de validação','','','',taCenter)] property id: Integer read Fid write Fid;