17-01-2016, 12:12 PM
يمكنك ان تكتب ايضا التعليمة التالية :
procedure Tform1.button3click )sender:Tobject(;
begin
if application .MessageBox
('هل تريد الحذف,'تاكيد الحذف'MB-Okcance1) =
Id.ok then
begin adotable1.delete end;
التعليمة if اكتبها كاملة في سطر واحد
procedure Tform1.button3click )sender:Tobject(;
begin
if application .MessageBox
('هل تريد الحذف,'تاكيد الحذف'MB-Okcance1) =
Id.ok then
begin adotable1.delete end;
التعليمة if اكتبها كاملة في سطر واحد