Campo memo não exibe todos os dados
Bom dia!
Uso Delphi7 + IB/FB + DBExpress.
Tenho o seguinte problema com uma tabela mais um campo
memo, que insiste em não apresentar todos os dados que
estão no campo.
Tenho gravado no campo memo vários dados, como ex:
Ex: ´AAAAAAAAAAAAAAAAAAAAAA´
´BBBBBBBBBBBBBBBBBBBBBB´
´CCCCCCCCCCCCCCCCCCCCCC´
Mas ao abrir o form que contem o campo DBMemo, sómente
a linha que conte ´AAAAAAAAAAAAAAAAAA´ é exibido.
Quando faço uma insersão de dados, consigo ver todos os
dados na variavel. veja abiaxo.
Texto := Cds_PacienteObserv.AsString;
Texto := Texto+#13+´ DT Internacao: ´+Trim(ed_data.text);
Inserindo novos dados:
=====================
Sqlx := TSQLQuery.Create(Nil);
Sqlx.SQLConnection:= DMCN.SQLConnect;
WITH Sqlx Do Begin
Close;
SQL.Clear;
SQL.Add(´UPDATE PACIENTE SET OBSERV =:POBS
WHERE NREGISTRO =:PCODPAC´);
ParamByName(´POBS´).AsMemo := Texto;
ParamByName(´PCODPAC´).AsInteger:= k_numreg;
ExecSQL;
Close;
End;
Obs: To tendo problema somente com esta tabela, pois nos outros
Sistemas, faço a mesma coisa e funciona.
A quem responder, desde já meus agradecimento.
ANT.CARLOS/SP
Uso Delphi7 + IB/FB + DBExpress.
Tenho o seguinte problema com uma tabela mais um campo
memo, que insiste em não apresentar todos os dados que
estão no campo.
Tenho gravado no campo memo vários dados, como ex:
Ex: ´AAAAAAAAAAAAAAAAAAAAAA´
´BBBBBBBBBBBBBBBBBBBBBB´
´CCCCCCCCCCCCCCCCCCCCCC´
Mas ao abrir o form que contem o campo DBMemo, sómente
a linha que conte ´AAAAAAAAAAAAAAAAAA´ é exibido.
Quando faço uma insersão de dados, consigo ver todos os
dados na variavel. veja abiaxo.
Texto := Cds_PacienteObserv.AsString;
Texto := Texto+#13+´ DT Internacao: ´+Trim(ed_data.text);
Inserindo novos dados:
=====================
Sqlx := TSQLQuery.Create(Nil);
Sqlx.SQLConnection:= DMCN.SQLConnect;
WITH Sqlx Do Begin
Close;
SQL.Clear;
SQL.Add(´UPDATE PACIENTE SET OBSERV =:POBS
WHERE NREGISTRO =:PCODPAC´);
ParamByName(´POBS´).AsMemo := Texto;
ParamByName(´PCODPAC´).AsInteger:= k_numreg;
ExecSQL;
Close;
End;
Obs: To tendo problema somente com esta tabela, pois nos outros
Sistemas, faço a mesma coisa e funciona.
A quem responder, desde já meus agradecimento.
ANT.CARLOS/SP
Ant.carlos/sp
Curtidas 0
Respostas
Ferreia2
02/05/2008
O que deve estar faltando ai é um Caracter <ENTER> uma solução é vc ir no componente memo e na propriedade Word Wrap colocar como False, pois ai ao inserir uma nova linha no campo memo vc obriga o usuário pressionar a tecla enter para ir para segunda linha ai o caracter ENTER e inserido automaticamente
GOSTEI 0
Ant.carlos/sp
02/05/2008
CAro amigo!
Obrigado pela atenção!
Fiz vários testes, até jogando os dados num label c/ quebra de wrap, mesmo assim os dados só aparecem uma parte.
Quando digito manualmente no campo, os dados aparecem normais.
Mas quando os complemento em Run Time, é exibido depois os dados q digitei manualmente + uma linha criada em Run-time.
As outra linhas não são exibida, embora os dados estejam lá.
Veja exemplo:
==========
Dados digitado manualmente:(1) ´A A A A A A A A´
(2) ´B B B B B B B ´
Linhas inserida em Run-Time
===================
1a linha em Run-Time (3) ´Data da Internacao: 04/04/2008´
2a linha ´ ´ (4) ´Data da Internacao 20/04/2008´
3a linha ´ ´ (5) ´Data da Internacao 30/04/2008´
Quando faço uma pesquisa e acesso o reg., somente as 3 primeiras linhas são exibidas.
Veja que sempre insiro o caracter #13 para simular o enter.
Obs: O problema tá quando faço as inserções em Run-Time.
Q quem puder responder, desde já meus agradecimentos.
ANT.CARLOS/SP
Obrigado pela atenção!
Fiz vários testes, até jogando os dados num label c/ quebra de wrap, mesmo assim os dados só aparecem uma parte.
Quando digito manualmente no campo, os dados aparecem normais.
Mas quando os complemento em Run Time, é exibido depois os dados q digitei manualmente + uma linha criada em Run-time.
As outra linhas não são exibida, embora os dados estejam lá.
Veja exemplo:
==========
Dados digitado manualmente:(1) ´A A A A A A A A´
(2) ´B B B B B B B ´
Linhas inserida em Run-Time
===================
1a linha em Run-Time (3) ´Data da Internacao: 04/04/2008´
2a linha ´ ´ (4) ´Data da Internacao 20/04/2008´
3a linha ´ ´ (5) ´Data da Internacao 30/04/2008´
Quando faço uma pesquisa e acesso o reg., somente as 3 primeiras linhas são exibidas.
Veja que sempre insiro o caracter #13 para simular o enter.
Obs: O problema tá quando faço as inserções em Run-Time.
Q quem puder responder, desde já meus agradecimentos.
ANT.CARLOS/SP
GOSTEI 0
Catunda
02/05/2008
Tem certeza que está utilizando o DBMemo e não o Memo?
Eu utilizo tb o delphi 7 + firebird + dbexpress.
Pq vc precisa desse processo todo pra gravar as alterações?
Digito diretamente no componente DBMemo e depois de digitar apenas salvo normalmente, sem nenhum processo extra.
Nada desaparece.
Eu utilizo tb o delphi 7 + firebird + dbexpress.
Pq vc precisa desse processo todo pra gravar as alterações?
Digito diretamente no componente DBMemo e depois de digitar apenas salvo normalmente, sem nenhum processo extra.
Nada desaparece.
GOSTEI 0
Ant.carlos/sp
02/05/2008
[color=blue:778f75104f]Catunda:
Tem certeza que está utilizando o DBMemo e não o Memo?
Eu utilizo tb o delphi 7 + firebird + dbexpress.
Pq vc precisa desse processo todo pra gravar as alterações?
Digito diretamente no componente DBMemo e depois de digitar apenas salvo normalmente, sem nenhum processo extra. [/color:778f75104f]
Caro amigo!
Esta observação é gravada na hora que imprimo alguns documentos.
O usuario apenas consuta estas observações.
Na observação anterior, fiz um teste para tentar descobri o problema,
isolei, mas não consegui resolver.
100+
ANT.CARLOS/SP
Tem certeza que está utilizando o DBMemo e não o Memo?
Eu utilizo tb o delphi 7 + firebird + dbexpress.
Pq vc precisa desse processo todo pra gravar as alterações?
Digito diretamente no componente DBMemo e depois de digitar apenas salvo normalmente, sem nenhum processo extra. [/color:778f75104f]
Caro amigo!
Esta observação é gravada na hora que imprimo alguns documentos.
O usuario apenas consuta estas observações.
Na observação anterior, fiz um teste para tentar descobri o problema,
isolei, mas não consegui resolver.
100+
ANT.CARLOS/SP
GOSTEI 0
Ant.carlos/sp
02/05/2008
sobe :(
GOSTEI 0
Mrangel
02/05/2008
De que tipo é essa variavel Texto ??
GOSTEI 0
Ant.carlos/sp
02/05/2008
Olá!
[color=red:2280830289]mrangel
De que tipo é essa variavel Texto ??[/color:2280830289]
Var Text : String;
Texto := Cds_PacienteObserv.AsString;
Texto := Texto+#13+´ DT Internacao: ´+Trim(ed_data.text);
Neste ponto, faço um Debug e consigo visualizar os dados dentro da
variavel e dentro do campo CDS. Os dados estão lá.
Fiz testes jogando os dados num Label, num memo, mas só uma parte
é carregada. Pois já não sei + de nada, nem o q fazer, pois a rotina tem q ser assim.
100+
ANT.CARLOS/SP
[color=red:2280830289]mrangel
De que tipo é essa variavel Texto ??[/color:2280830289]
Var Text : String;
Texto := Cds_PacienteObserv.AsString;
Texto := Texto+#13+´ DT Internacao: ´+Trim(ed_data.text);
Neste ponto, faço um Debug e consigo visualizar os dados dentro da
variavel e dentro do campo CDS. Os dados estão lá.
Fiz testes jogando os dados num Label, num memo, mas só uma parte
é carregada. Pois já não sei + de nada, nem o q fazer, pois a rotina tem q ser assim.
100+
ANT.CARLOS/SP
GOSTEI 0