arquivo TXT e MEMO!!! De novo.
Primeiramente, muito obrigado pela força!!!
Galera,
estas são as informações gravadas na minha tabela em um campo do tipo MEMO.
____________________________________
Julio Cesar Oliveira
Rua da Esperançca 657
Alterosa
Montes Claros MG
CEP- 39400-053
____________________________________
Eu quero exportar estes dados para um arquivo texto, que fique da seguinte forma:
Julio cesar Oliveira Rua da Esperança 657 Alterosa Montes Claros CEP- 39400-053
Eu não estou sabendo fazer e pegar as ´lines´ dos dados que tenho em um campo do tipo MEMO para poder gerar um arquivo texto. E da mesma forma pegar um arquivo texto com a mesma estrutura do acima ilustrado e conferte-lo para uma parte da minha tabela do tipo MEMO. No seu primeiro exemplo eu posso pegar toda a linha do arquivo e garvar no MEMO, mais a visualização das informaçães não ficaria legal.
Sds.
Jr.
Galera,
estas são as informações gravadas na minha tabela em um campo do tipo MEMO.
____________________________________
Julio Cesar Oliveira
Rua da Esperançca 657
Alterosa
Montes Claros MG
CEP- 39400-053
____________________________________
Eu quero exportar estes dados para um arquivo texto, que fique da seguinte forma:
Julio cesar Oliveira Rua da Esperança 657 Alterosa Montes Claros CEP- 39400-053
Eu não estou sabendo fazer e pegar as ´lines´ dos dados que tenho em um campo do tipo MEMO para poder gerar um arquivo texto. E da mesma forma pegar um arquivo texto com a mesma estrutura do acima ilustrado e conferte-lo para uma parte da minha tabela do tipo MEMO. No seu primeiro exemplo eu posso pegar toda a linha do arquivo e garvar no MEMO, mais a visualização das informaçães não ficaria legal.
Sds.
Jr.
Wizard
Curtidas 0
Respostas
Motta
05/01/2004
memo1.lines.text
porém para exibição se na string tiver um CR pode ter o salto de linha.
porém para exibição se na string tiver um CR pode ter o salto de linha.
GOSTEI 0
Hemsombra
05/01/2004
Tenta assim (corrija algum possível erro. OK!)
Var LinhaInteira: String;
I: Integer;
...
for I:= 0 to Memo.lines.count do
begin
LinhaInteira:= LinhaInteira + Memo.Lines[I].Text
end;
Memo.text:= LinhaInteira;
Var LinhaInteira: String;
I: Integer;
...
for I:= 0 to Memo.lines.count do
begin
LinhaInteira:= LinhaInteira + Memo.Lines[I].Text
end;
Memo.text:= LinhaInteira;
GOSTEI 0