Lazarus: DBGrid zeigt "(MEMO)" als Wert des string-Felder in SQLite 3

Wie gesagt im IRC, müssen Sie wahrscheinlich fügen Sie die Felder der Abfrage an das Formular machen, (so dass der "Feld" - Komponenten erzeugt werden) und implementieren Sie die TMemoField.GetText Veranstaltung.

Sehen, wenn Sie den "Felder" - Feld im Objekt-Inspektor bringt Sie mit einem editor zu erzeugen, die Komponenten (die es so nicht in Zeos iirc).

InformationsquelleAutor Marco van de Voort

Ich vergaß die Quelle dieser aber das ist, was ich Tue, mit memo-Feldern in tdbgrid.
bläulich ist zu Recht über die gettext-Ereignis, das ist, wie es zu implementieren in den code:

Erstellen Sie eine Klasse namens MemoDifier:

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

In den implementation-Abschnitt von code, setzen diese:

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

Klicken Sie dann auf die tdbgrid-Steuerelement in Ihr Formular und an der Objekt-Inspektor(Lazarus IDE), klicken Sie auf die Registerkarte "Ereignisse", scrollen Sie nach unten zu finden, die OnPrepareCanvas Veranstaltung. Doppelklicken Sie darauf, um den code zu generieren. Dann ändern Sie den code entsprechend an Ihre Bedürfnisse wie z.B. den Namen Ihres tdbgrid-Steuerelement:

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; 

Die variable MemoFieldReveal Punkte, um die Klasse MemoDifier. Vergessen Sie nicht, ändern Sie die index (Items[x]), um zu Ihrer index-Nummer des tdbgrid Elemente/Felder, die sich zeigt (MEMO) - text.

InformationsquelleAutor Allan Registos

In einem ganz alten thread im forum, ich habe eine Lösung gefunden, die für mich gearbeitet (Deutsch/Englisch):

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

Wenn Sie den Bereich ändern, Typen in der SQLite-Datenbank von text in varchar, der text zeigt sich wie erwartet in der TDBGrid.

ändern SQLite Spalten

Wie Sie vielleicht wissen, SQLite nicht lassen, ändern Sie das Feld Typen der Spalten. Also, wenn Sie bereits über wertvolle Daten in der Datenbank gespeichert sind, verwenden Sie die Schritte in diesem tutorial beschrieben

SQLite ALTER TABLE & Wie man Seine Grenzen Überwinden

Hier ist eine weitere option

• erstellen Sie eine dump (sqlite3 your.db .dump >your.sql)
• ändern Sie die Tabellendefinitionen, die in die resultierende sql (st wie s/\<text\>/varchar/)
• import in eine frische Datenbank (sqlite3 your2.db <your.sql)
• Namen tauschen von alten und neuen Datenbanken

InformationsquelleAutor Wolf