Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- ADOQuery1.Close;
- ADOQuery1.SQL.Text := Memo1.Text;
- ADOQuery1.Open;
- end;
- Grid.DataSource = DataSource1;
- DataSource1.DataSet := ADOQuery1;
Add Comment
Please, Sign In to add comment
