Como gravar todas as linhas do Memo??
26/08/2004
0
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
Curtir tópico
+ 0
Responder
Posts
21/10/2004
Faelcavalcanti
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!!!
Responder
Clique aqui para fazer login e interagir na Comunidade :)
