Como gravar todas as linhas do Memo??
Pessoal, peguei uma pequena aplicação q armazena seus dados em arquivos bdk. Na criação do Form principal do programa ele cria os bancos. Ex:
{* Monta o banco de dados das guias de DARF *}
BDDARF := TIniDados.Create;
BDDARF.CaminhoBancoDados(CaminhoBancoDados);
BDDARF.NomeBancoDados(´DARF´);
If not FileExists(CaminhoBancoDados + ´\DARF.Bdk´) Then
Begin
BDDARF.ConstruirBancoDados;
BDDARF.InsereCampo(´Codigo´, BDkAutoInc);
BDDARF.InsereCampo(´OBS´, BDKString);
End;
Para gravar, é enviado o conteudo dos componentes para esse base de dados ex:
BDDARF.EnviaDados(´CODRECEITA´, EdDARFCodReceita.Text);
BDDARF.EnviaDados(´OBS´, MemoDARFOBS.Text);
O meu problema é o seguinte, nos compentes Memo, se for digitado continuamente, ele grava todas as linhas s/problema,
agora se eu digitar em uma linha e naum for até o final dela, dando um enter p/passar para linha de baixo, naum é salvo
a linha de baixo. Alguem sabe como ajudar?
Desde já agradeço,
Fabiano.
{* Monta o banco de dados das guias de DARF *}
BDDARF := TIniDados.Create;
BDDARF.CaminhoBancoDados(CaminhoBancoDados);
BDDARF.NomeBancoDados(´DARF´);
If not FileExists(CaminhoBancoDados + ´\DARF.Bdk´) Then
Begin
BDDARF.ConstruirBancoDados;
BDDARF.InsereCampo(´Codigo´, BDkAutoInc);
BDDARF.InsereCampo(´OBS´, BDKString);
End;
Para gravar, é enviado o conteudo dos componentes para esse base de dados ex:
BDDARF.EnviaDados(´CODRECEITA´, EdDARFCodReceita.Text);
BDDARF.EnviaDados(´OBS´, MemoDARFOBS.Text);
O meu problema é o seguinte, nos compentes Memo, se for digitado continuamente, ele grava todas as linhas s/problema,
agora se eu digitar em uma linha e naum for até o final dela, dando um enter p/passar para linha de baixo, naum é salvo
a linha de baixo. Alguem sabe como ajudar?
Desde já agradeço,
Fabiano.
Fabiano_aprendiz
Curtidas 0
Respostas
Fer_nanda
26/08/2004
Tente gravar utilizando memo.lines.text
Até
Até
GOSTEI 0
Fabiano_aprendiz
26/08/2004
Já tentei, naum funciona tbm...
GOSTEI 0
Faelcavalcanti
26/08/2004
BDDARF.EnviaDados(´OBS´, MemoDARFOBS.Text);
Amigo, acho que desta forma ficaria difícil, pois poderá conter várias linhas.
function x; var i : Integer; begin for i := 0 to Pred(Memo.Lines.Count) do Result := Result + Memo.Lines[i] end;
O Resultado desta função você atribuirá ao conteúdo geral da string, solicitada como parâmetro.
Espero ter ajudado!!!
GOSTEI 0
Fabiano_aprendiz
26/08/2004
Fechou!! Valeu, obrigado a todos.
[]´s
Fabiano.
[]´s
Fabiano.
GOSTEI 0