procedure Tdeleteform.SpeedButton5Click(Sender: TObject);

begin

query;

With Qur do

begin

close;

sql.clear;

sql.add('select 순번 from 불량내역 where 순번= :PK');

parambyname('pk').asString := StringGrid1.Cells[?,?]; <<< 이부분을 어떻게 해야



커서가 위치한 셀인쥐 알수 있을까엽 글구 거기에 있는 순번을 추출할수 있을쥐...^^



궁금 함당...



고수님들의 높은 공력으로 지발 이 허접한 초보 사발이 한테 한수를 보여 주시와여



그럼..



Open;

if recordcount < 1 then

begin

With Qur do

begin

close;

sql.clear;

sql.add('delete 불량내역 where pk = :pk');

parambyname('pk').asString := StringGrid1.Cells[?,?];

try

execsql;

except;

showmessage('삭제 중 에러 전산실로 문의 바람니다!');

end;

end;

end;

end;