Lazare: DBGrid montrant “(MEMO)” comme la valeur des champs de type chaîne dans SQLite 3

Comme dit sur IRC, vous avez probablement besoin d'ajouter les champs de votre requête pour la forme, (de sorte que le "champ" composants sont générés pour eux) et de mettre en œuvre l' TMemoField.GetText événement.

Voir si l'entrée "champs" dans l'inspecteur d'objet apporte un éditeur de générer les composants (c'est Zeos iirc).

J'ai oublié la source de cela, mais c'est ce que je fais avec les champs mémo tdbgrid.
bleuâtre est juste sur la gettext événement, c'est la façon de mettre en œuvre dans le code:

Créer une classe appelée MemoDifier:

MemoDifier = class
  public
    procedure DBGridOnGetText(Sender: TField; var aText: string;
      DisplayText: boolean);
  end;                  

À la section mise en œuvre de votre code, mettez ceci:

procedure MemoDifier.DBGridOnGetText(Sender: TField; var aText: string;
  DisplayText: boolean);
begin
  if (DisplayText) then
    aText := Sender.AsString;
end; 

Puis cliquez sur le contrôle tdbgrid dans votre formulaire et à la Inspecteur d'Objet(IDE Lazarus), cliquez sur l'onglet Événements, faites défiler ci-dessous pour trouver les OnPrepareCanvas événement. Double-cliquez dessus pour générer le code. Ensuite, modifier le code pour l'adapter à vos besoins tels que le nom de votre contrôle tdbgrid:

procedure Tmainui.TDBGrid1PrepareCanvas(sender: TObject;
  DataCol: Integer; Column: TColumn; AState: TGridDrawState);
var
  MemoFieldReveal: MemoDifier;
begin
   if (DataCol = 1) then
   begin
     try
       TDBGrid1.Columns.Items[0].Field.OnGetText := @MemoFieldReveal.DBGridOnGetText;
       TDBGrid1.Columns.Items[1].Field.OnGetText := @MemoFieldReveal.DBGridOnGetText;
       TDBGrid1.Columns.Items[2].Field.OnGetText := @MemoFieldReveal.DBGridOnGetText;
     except
       On E: Exception do
       begin
         ShowMessage('Exception caught : ' + E.Message);
       end;
     end;
   end;
end; 

La variable MemoFieldReveal points à la classe MemoDifier. N'oubliez pas de modifier l'index (les Éléments de[x]) pour pointer vers votre numéro d'index de l'tdbgrid articles/champs qui montre l' (MEMO) le texte.

Dans un très vieux sujet du forum, j'ai trouvé une solution qui a fonctionné pour moi (allemand/anglais):

SqLite, Zeos und keine Textanzeige, im DbGrid steht (MEMO) - Zeoslib Portail

Si vous modifiez les types de champs dans la base de données SQLite à partir de text en varchar, le texte s'affiche comme prévu dans le TDBGrid.

changement de SQLite colonnes

Comme vous le savez peut-être, SQLite ne vous permet pas de modifier le champ types de colonnes. Donc, si vous avez déjà de précieuses données stockées dans la base de données, utilisez les étapes décrites dans ce tutoriel

SQLite ALTER TABLE & Comment Surmonter Ses Limites

Ici est une autre option

• créer un dump (sqlite3 your.db .dump >your.sql)
• modifier les définitions de table dans le sql (st comme s/\<text\>/varchar/)
• l'importer dans une nouvelle base de données (sqlite3 your2.db <your.sql)
• swap noms d'anciennes et de nouvelles bases de données