Array
(
)

Como gravar todas as linhas do Memo??

Fabiano_aprendiz
   - 26 ago 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.


Fer_nanda
   - 26 ago 2004

Tente gravar utilizando memo.lines.text

Até


Fabiano_aprendiz
   - 26 ago 2004

Já tentei, naum funciona tbm...


Faelcavalcanti
   - 21 out 2004


Citação:

BDDARF.EnviaDados(´OBS´, MemoDARFOBS.Text);


Amigo, acho que desta forma ficaria difícil, pois poderá conter várias linhas.

#Código


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!!!


Fabiano_aprendiz
   - 27 out 2004

Fechou!! Valeu, obrigado a todos.

[]´s
Fabiano.