Newsgroup: it.comp.lang.delphi
Titolo: come gestire i memo

Io ho dei campi Blob che normalmente riesco a gestire senza problemi tramite le ZeosLib.
Il problema ora mi sorge se voglio gestire linea x linea il memo... mi spiego meglio.
con data.fieldbyname('memomio').asstring riesco ad estrapolare tutto il contenuto del memo ma:
se imposto la massima lunghezza della riga del memo a 30 caratteri e voglio leggere il memo di n righe in un array di n stringhe come dovrei fare?
se uso data.fieldbyname('memomio').asstring ho anche i caratteri di controllo #13#10
se leggo 30 caratteri alla volta nella stringa se uso meno di trenta caratteri sfalso i contenuti delle righe...
ma ...

...xche sempre sti maledetti array e mai una collection?  Forse vi
pagano per usarli?
Avete un accredito per ogni array dichiarato nel codice??
Oppure ogni 100 array dichiarati avete un buono per andare ad un
festino del nano di Arcore??
Tutti allergici alle collection..?? :-|
Cit 1:
Use SaveToStream to copy the contents of a BLOB field to a stream.
Specify the name of the stream to which the field’s value is saved as
the value of the Stream parameter.
Cit 2:
Call LoadFromStream to fill the list of the TStrings object from the
stream specified by Stream. The text read from the stream is parsed
into strings separated by ***carriage return or linefeed
characters***.
Thus, LoadFromStream reads the value of the Text property.
A.

 festino del nano di Arcore??
Mo' ne metto a centinaia se esite questa possibilita' :-)) 
-- 
http://www.kiva.org
Per il ng it.hobby.hi-fi: a*fan*ulo 'sta ca**o di hifi/hiend, tutte
put*an*te.
Per il ng it.comp.lang.delphi: astenersi perditempo e lamer.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 A.
mbhe ... mbhe .. mbhe .. non tanto per il nano, ma arcore ï¿½ a 10 min di 
strada e se ci sono anche delle allegre donnine .. visto i tempi che 
corrono ... direi che cambio tutte le collection, le tstring, i vari 
record, e anche i unknown in array ... cosa ci guadagno :P
G.

nessun tipo di allergia ne alle collection ne agli stream...
dciciamo che la mia � PURA ignoranza.
Ho un Blob field (uso le librerie ZeosLib). Se devo leggere da file e smembrare il blob in n righe non so come fare
ovvero se ho nel blob
questa � la riga 1
questa � la riga 2
questa � la riga 3
questa � la riga 4
vorrei poter fare un ciclo ed estrarre le singole righe come stringhe per stampare su una stamapnte fiscale...

soluzione sicuramente non elegante, ma funziona (non ho mai digerito
le nuove tecniche)
var
  testo: TStringList;
  i: integer;
testo := TStringList.Create;
testo.Assign(Query.FieldByName('campomemo');
for i := 0 to testo.count -1 do
  testo[i] << così punti alle righe della lista
testo.free;
ciao Brunello

ciao Brunello
adoro le soluzioni veloci, brevi... ed ineleganti

 vorrei poter fare un ciclo ed estrarre le singole righe come stringhe per stampare su una stamapnte fiscale...
se sono righe separate da CRLF (dovrebbe bastare anche un CR o un LF):
var
   mioTesto : TStringList;
begin
   mioTesto := TStringList.Create;
   mioTesto.Text := Query.FieldByName('campomemo').AsString;
   ..
   // e poi lavori con mioTesto[i], ad esempio nel cocli for già citato
a me funziona
-- 
byez
Piero