Fórum Campo MEMO #173560

07/08/2003

0

Olá galera... bom dia pra vocês !

Estou tentanto resolver um problema e espero contar com a valiosa ajuda de vocês.

Tenho de passar o conteúdo de DOIS campos MEMO pra UM campo MEMO. Até aí não tem problema. Acontece que o os conteúdos ficam colados um no outro quando são gravados. Preciso que haja uma linha em branco entre os dois conteúdos.

var lTexto : String;
begin
TabDestino.Insert;
lTexto := TabUM.FieldByName(´Memo´).AsString;
lTexto := lTexto + TabDOIS.FieldByName(´Memo´).AsString;
TabDestino.FieldByName(´MemoDestino´).AsString := lTexto;
TabDestino.Post;
end;

O Resultado é este:

texto do primeiro campo MEMO
texto do segundo campo MEMO.

Preciso que fique assim:

texto do primeiro campo MEMO
---- linha em branco ------
texto do segundo campo MEMO.

Desde já agradeço o suporte de vocês.

Atenciosamente,

j.


.com

.com

Responder

Posts

07/08/2003

Barcelos

Olá amigo,

Tente o seguinte

var lTexto : String;
begin
TabDestino.Insert;
lTexto := TabUM.FieldByName(´Memo´).AsString;
//Insira o caracter #13, que corresponde ao ENTER entre as duas linhas
//Você pode usar 1313 para duas linhas e assim por diante
lTexto := lTexto + 13 + TabDOIS.FieldByName(´Memo´).AsString;
TabDestino.FieldByName(´MemoDestino´).AsString := lTexto;
TabDestino.Post;
end;

Espero ter ajudado

Barcelos


Responder

Gostei + 0

07/08/2003

.com

Valeu Barcelos... resolveu meu problema!
Obrigado,
j.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar