Delphi10.3的DBGrid中memo類型顯示內容而不是(WIDEMEMO)(01)ForSQLite

SQLite3框架

1]連接好數據庫，並顯示；(設計時的連接，和運行時的連接，是兩個獨立的連接，要區分開)

procedure TForm1.FormCreate(Sender: TObject);
begin
FDQuery1.Connection := FDConnection1;
FDConnection1.LoginPrompt:=false; //取消登錄提示框
FDConnection1.Open('DriverID=SQLite;Database=test1.Sqlite3.db');
end;

  2]增加所有字段；

  3]添加事件；

 //    FDQuery1UserName: TWideMemoField;

procedure TForm1.FDQuery1UserNameGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
Text := Copy(FDQuery1UserName.AsString, 1, 50);
end;

4]效果；

 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少 總是說我字少