Como gravar todas as linhas do Memo??

26/08/2004

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.


Fabiano_aprendiz

Respostas

26/08/2004

Fer_nanda

Tente gravar utilizando memo.lines.text

Até


Responder Citar

26/08/2004

Fabiano_aprendiz

Já tentei, naum funciona tbm...


Responder Citar

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&93;
end;


O Resultado desta função você atribuirá ao conteúdo geral da string, solicitada como parâmetro.
Espero ter ajudado!!!


Responder Citar

27/10/2004

Fabiano_aprendiz

Fechou!! Valeu, obrigado a todos.

[]´s
Fabiano.


Responder Citar