amigos este es el procedimiento donde estoy teniendo problemas
procedure TMantenimiento_Control.ToolButton3Click(Sender: TObject);
begin
inherited;
ToolButton2.Enabled:=true;
le_id01.text:='';
dateTimePicker1.Format:='';
end;
procedure TMantenimiento_Control.SpeedButton8Click(Sender: TObject);
var n,m,a:integer;
begin
inherited;
ADOQuery1.Close;
ADOQuery1.sql.Clear;
ADOQuery1.SQL.Add('select count(id_control) as n');
ADOQuery1.SQL.Add('from d_c_clase ');
ADOQuery1.SQL.Add('where id_control='+ le_id01.text);//06');//'+ le_id01.text );
if ADOQuery1.Fields[0].asinteger >0
then
showmessage('si')
else
showmessage('no');
ADOQuery1.open;
ADOQuery1.Close;
if m=0
then
begin
ADOQuery1.Close;
ADOQuery1.sql.Clear;
ADOQuery1.SQL.Add('delete');
ADOQuery1.SQL.Add('from control ');
ADOQuery1.SQL.Add('where id_control='+ le_id01.text);//06');//'+ le_id01.text );
ADOQuery1.ExecSQL;
ADOQuery1.Close;
end
else
begin
showmessage('no se puede jajjaj');
end;
//ADOQuey1.0Destroy;
end;
la linea que me vota erro es+
" if ADOQuery1.Fields[0].asinteger >0"
y me bota este erroor
Project colegio_ollanta.exe raised exception clase ElistError with message ‘List index out of bounds(0)’ process stopped. Use or Run to continue
porfavor ayudenme estoy desesperado
|