小编Chr*_* K.的帖子

如何在FireMonkey移动应用程序中获取手机的联系人列表？

我编写了以下代码来计算用户输入时的行数和字符数.但它有一个问题,它在用户输入第一个字符后开始计数,当他按下退格键时,它会增加计数器,然后开始减少它.

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  Text1.Text := 'Lines: ' + IntToStr (Memo1.Lines.Count);
  Text2.Text := 'Characters: ' + IntToStr (Length(Memo1.Text));
end;

我有以下代码,即使我关闭表单或退出程序,线程也不会停止System.Windows.Forms.Application.Exit();.

我的代码:

bool shouldStop = false; 

private void button1_Click(object sender, EventArgs e)
{
   backgroundThread = new Thread(
                      new ThreadStart(() =>
                      {    
                         for (int j = 0; j <= 1000; j++)
                         {
                            if (!shouldStop)
                            {
                               //do something
                            }

                            else
                            {
                               break;
                            }
                         }
                      }));
   backgroundThread.Start();
}

private void FormUpdateDB_FormClosing(object sender, FormClosingEventArgs e)
{
   shouldStop = true;
}

我有一个sqlite数据库,我想执行一个选择查询并在TEdit中显示结果.我该怎么做？

 query := 'SELECT username FROM users';  //The query returns only one row
 FDQuery1.ExecSQL;
 FDQuery1.Open();
 Edit1.Text := ??