Copia da memo in memo incompleta

[antoniog]

Lazarus 2.0.6x64 - Zeos 7.1.4-stable  - SQLite3
Buonasera,
oggi ho scoperto che la copia del contenuto di un campo memo da una tabella in un'altro campo memo di altra tabella dello stesso database non avviene completamente, il secondo campo memo è circa la metà del primo.
In SQLite sono entrambi - TEXT - e in FPC entrambi - ftMemo -
per prova faccio questo:

Codice: [Seleziona]

mcod:='28.A05.D05.005'; // ArticoliCODICE.Text;
if not TotArti.Locate('CODICE', mcod, []) then informa('codice non trovato') else
    if Articoli.Locate('CODICE', mcod, []) then
        begin 
            Totarti.Edit;
            Totarti.FieldValues['annotazion']:=Articoli.FieldValues['annotazion'];
             Totarti.Post;
         end; 

ho provato molti modi ma non ho trovato la soluzione, il testo copiato è sempre circa la metà di quello originale.
Anche copiando manualmente l'intero testo nel secondo memo il risultato non cambia, ne viene memorizzato solo la metà.

Cosa mai potrà essere?

[nomorelogic]

penso che dovresti provare con gli stream

[antoniog]

nomorelogic, e come?

[nomorelogic]

Prova qualcosa tipo:

Codice: [Seleziona]

var
  stream: TMemoryStream;
...

  mcod := '28.A05.D05.005'; // ArticoliCODICE.Text;
  if not TotArti.Locate('CODICE', mcod, []) then
     informa('codice non trovato')
  else
  if Articoli.Locate('CODICE', mcod, []) then
     begin
       stream := TMemorySTream.Create;
       try
         BlobField(Articoli.FieldByName('annotazion')).SaveToStream(stream);
         stream.Position := 0;
         Totarti.Edit;
         BlobField(Totarti.FieldByName('annotazion')).LoadFromStream(stream);
         // Totarti.FieldValues['annotazion'] := Articoli.FieldValues['annotazion'];
         Totarti.Post;
       finally
         FreeAndNil(stream);
       end;
     end;

Edit:
commentata istruzione da sostituire

[antoniog]

Error: Identifier not found "BlobField"

[antoniog]

ho trovato e capito che il campo memo viene completamente riempito con:

Codice: [Seleziona]

Totarti.FieldValues['annotazion'] := Articoli.FieldValues['annotazion'];

o con:

Codice: [Seleziona]

TotartiAnnotazion.Text:=ArticoliAnnotazion.AsString;

ma poi viene visualizzato in misura ridotta (circa la metà) sia a schermo che in stampa

[nomorelogic]

Error: Identifier not found "BlobField"

scusa era TBlobField (si trova nella unit DB)
non avevo compilato

[antoniog]

nomorelogic, grazie ma in esecuzione mi da errore: invalid type cast

[xinyiman]

ho trovato e capito che il campo memo viene completamente riempito con:

Codice: [Seleziona]

Totarti.FieldValues['annotazion'] := Articoli.FieldValues['annotazion'];

o con:

Codice: [Seleziona]

TotartiAnnotazion.Text:=ArticoliAnnotazion.AsString;

ma poi viene visualizzato in misura ridotta (circa la metà) sia a schermo che in stampa

Domanda stupida: se usi lazreport hai provato ad allargare il rettangolo in cui fai visualizzare quel dato?

[antoniog]

xinyiman,
la cosa strana è che in entrambe le tabelle (articoli e totarti) il campo annotazioni in sqlite3 è TEXT ed in Lazarus ftMemo
con tabella articoli -in dbmemo- la descrizione è completa
mentre con tabella totarti -sempre in dbmemo- la visualizzazione della descrizione è tagliata.


Ho provato a fare una nuova applicazione collegando lo stesso database e tutto funziona perfettamente, le due tabelle hanno gli stessi valori e posso copiare i dati da una all'altra senza perdere valori,


quindi deduco che sia un problema relativo al mio programma, a qualche accidenti di configurazione da qualche parte che mi modifica le caratteristiche della tabella Totarti.

[antoniog]

anche con Lazreport articoli.annotazion viene stampata per intero mentre totarti.annotazion viene stampata troncata

[antoniog]

quello che ho scoperto
le due tabelle sono in un Modulo Dati
ho copiato Totarti nella Form principale, cambiato i collegamenti, e tutto funziona anche la stampa con Lazreport,
quindi il problema è nel Modulo Dati, infatti inserendo un'altra ZTable  questa non viene riconosciuta come parte integrante del Modulo Dati e mi segnala errore.
Qualche soluzione??

[xinyiman]

quello che ho scoperto
le due tabelle sono in un Modulo Dati
ho copiato Totarti nella Form principale, cambiato i collegamenti, e tutto funziona anche la stampa con Lazreport,
quindi il problema è nel Modulo Dati, infatti inserendo un'altra ZTable  questa non viene riconosciuta come parte integrante del Modulo Dati e mi segnala errore.
Qualche soluzione??

Lo hai segnalato alla community internazionale?

[antoniog]

ho risolto in modo anomalo.
ho creato un nuovo datamodulo chiamato DataProgetto ed ho copiato, copia ed incolla, tutto il contenuto di Dataproge, ho cambiato tutti i riferimenti nel programma e nei report ed ho risolto. Provando a rinominare il nuovo modulo dati col nome originale il problema si ripresenta.
Sembra strano ma sembrerebbe che Dataproge non accetti modifice alle Ztabelle perchè tempo fa ho cambiato il campo 'annotazion' della tabella Totarti (sqlite) da 'varchar' a 'text' e modificato il campo anche su Lazarus inserendo 'ftMemo'. Queste modifiche  vengono visualizzate ma poi non vengono elaborate, come se il datamodule prendesse i dati da un file memorizzato da qualche altra parte e non in quello di progetto.

Xinyiman,non ho ancora segnalato il problema alla community internazionale, se cortesemente mi dai i riferimenti lo faccio.

[xinyiman]

Prova a segnalarlo qui: https://forum.lazarus.freepascal.org/