Code: Select all
procedure Tusersitngs.btnRemoveClick(Sender: TObject);
begin
delquery.Active := True;
delquery.Close;
delquery.SQL.Clear;
delquery.SQL.Text := 'delete from store where imit := Tlistview.item.selected';
delquery.ExecSQL;
end;
Moderators: gto, cipto_kh, EgonHugeist
Code: Select all
procedure Tusersitngs.btnRemoveClick(Sender: TObject);
begin
delquery.Active := True;
delquery.Close;
delquery.SQL.Clear;
delquery.SQL.Text := 'delete from store where imit := Tlistview.item.selected';
delquery.ExecSQL;
end;
Yes. Please look to your SQL.Text assembling again. Don't you think:but i got sql is emty any idea ?
Code: Select all
delquery.SQL.Text := 'delete from store where imit := 'Tlistview.item.selected;
Code: Select all
:=