Discussion :

[Chris74]

Bonjour à tous,

j'ai une table sqlite avec des champs textes, problème dans un dbgrid, le champ texte affiche widememo car il considère le champ text comme un mémo (...) avez une solution simple pour afficher un text dans une dbgrid ?

Merci par avance,

a+

Chris

[ShaiLeTroll]

Une approche possible est de dessiner le texte au lieu que cela affiche (BLOB)

Comment formater l'affichage d'un champ dans un TDBGrid ?

J'ai souvenir d'options à ce sujet de forcer le BLOB en texte mais je ne plus si c'était un truc standard ou du TMS,
c'est même possible que j'avais bidouillé un truc réutilisable en Delphi 6 !

tu peux aussi regarder si le SQL de SqLite fourni une fonction CAST ou CONVERT pour que ton SELECT force le type en CHAR(255),
plus de texte dans une grille ne semble pas utile, sauf si tu passe en mode multiligne
- Comment dessiner un texte multiligne en WordWrap dans un Canvas ?
- Cellules multigne dans un DbGrid.
- écrire verticalement dans une cellule stringgrid

[Chris74]

merci de ta réponse, je vais voir du coté du sql, je crois que c'est le plus simple sinon j'ai aussi trouvé cela

http://delphi.about.com/library/weekly/aa030105a.htm

a+

Chris

[ShaiLeTroll]

c'est ça le OnGetText !
C'est ce que je cherchais !

Et j'avais bien écrit un truc pour un membre du forum, voici le code de l'époque :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DataSet.FieldByName('Nom').OnGetText := TDBUtils.GetTextBlobAsString;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
class function TDBUtils.GetTextBlobAsString(Sender: TField; var Text: string; DisplayText: Boolean);
begin
  if DisplayText then
    Text := Copy(Sender.AsString, 1, 1024);
  // A Vérifier je crois que Text contient ce qu'il faut en mode Edit
end;

[Chris74]

ah le monde est petit je crois que je vais utilisé le OnGetText, la fonction cast de sqlite ne semble pas pouvoir transformer un mémo en chaine (...) merci de ton aide

A+

Chris