Kontrol !!!

[ozcank]

Arkadaşlar ;
Sil buttonu ile ;

procedure TForm4.Button3Click(Sender: TObject);
Var
ForSil:Integer;
begin
ForSil:=Application.MessageBox('Silmek İstediğinizden Eminmisiniz ?','Kayıt Silme',
Mb_YesNo+Mb_IconQuestion);
If ForSil=IDYes Then
begin
Table1.Delete;
end;
end;



bu şekilde sildiriyorum fakat dosya sonuna kadar silince şu hatayı veriyor;
Table1:Cannot perform this operation on an empty dataset bunu nasıl türkçeye cevirebilirim başka kayıt yok gibi ?

[ademcicek]

Kod: Tümünü seç

If ForSil=IDYes Then 
begin 
if not table1.isempty then
Table1.Delete; 

[vkamadan]

Merhaba;

Kod: Tümünü seç

procedure TForm4.Button3Click(Sender: TObject);
begin
if Application.MessageBox('Silmek İstediğinizden Eminmisiniz ?','Kayıt Silme',
Mb_YesNo+Mb_IconQuestion) = 6 then
if not Table1.isempty then table1.delete else Showmessage('Silinecek Kayıt Yok');
end; 

[eyalin]

var
a:integer;
begin

if table1.Bof then
begin
Application.Messagebox('silinecek kayıt yok','Kayıt Silme',MB_OK);
end
else
begin
a:=Application.MessageBox('Kayıt Silinsinmi?','Kayıt Silme',MB_YESNO+MB_DEFBUTTON2);
if a=6 then
table1.Delete;
end;