Como gravar todas as linhas do Memo??

Delphi

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

Fabiano_aprendiz

Curtidas 0

Respostas

Fer_nanda

Fer_nanda

26/08/2004

Tente gravar utilizando memo.lines.text

Até


GOSTEI 0
Fabiano_aprendiz

Fabiano_aprendiz

26/08/2004

Já tentei, naum funciona tbm...


GOSTEI 0
Faelcavalcanti

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

Fabiano_aprendiz

26/08/2004

Fechou!! Valeu, obrigado a todos.

[]´s
Fabiano.


GOSTEI 0
POSTAR