salida de indice al borrar

[danielmj]

buenas...

estoy frito ya con esto ehh, he tardao en contestar por que intento hacer que funcione pero nada. Lo que hago es comparar el cliente marcado con un checkbox en un checklistbox con los valores de la variable "apenom" en la que previamente he metido los datos de

Código Delphi [-]
adotabla.fieldbyname('APELLIDOS').AsString;

y

Código Delphi [-]
adotabla.fieldbyname('NOMBRE').AsString;

si son iguales, borra de la tabla el cliente seleccionado, hasta ahi la teoria, pero no consigo que corra.

Alguna idea?
un saludo y gracias.

[ecfisa]

Hola Daniel.

Por lo que interpreto en un CheckListBox tenés cargados los apellidos+nombres de una tabla, en una variable 'apenom' un apellido+nombre y para que un dato sea borrado, son requisitos:

1. Que esté tildado en el CheckListBox.
2. Que el item sea igual al contenido de la variable 'apenom'.

Si no me equivoco, podrías hacer algo así:

Código Delphi [-]
procedure TForm1.btBorraSelecClick(Sender: TObject);
var
  i: Integer;
  Ape,Nom: string;
begin
  with CheckListBox1 do
  begin
    for i:= 0 to Items.Count -1 do
      if (Checked[i])and(Items[i] = apenom) then
        if MessageDlg('¿Desea borrar '+Items[i]+'?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
        begin
          Ape:= Copy(Items[i],1,Pos(' ',Items[i])-1);
          Nom:= Copy(Items[i],Pos(' ',Items[i])+1,MaxInt);
          ADOTabla.Locate('APELLIDO;NOMBRE',VarArrayOf([Nom,Ape]),[loCaseInsensitive]);
          ADOTabla.Delete;
        end;
  end;
end;

Esto siguiendo el planteo que indicas, pero coincido con Casimiro que es más sencillo con una sentencia SQL.

Saludos.