Fórum arquivo TXT e MEMO!!! De novo. #204160
05/01/2004
0
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
Curtir tópico
+ 0
Responder
Posts
05/01/2004
Motta
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.
Responder
Gostei + 0
05/01/2004
Hemsombra
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)