Campo MEMO
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.
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
Curtidas 0
Respostas
Barcelos
07/08/2003
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
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
GOSTEI 0
.com
07/08/2003
Valeu Barcelos... resolveu meu problema!
Obrigado,
j.
Obrigado,
j.
GOSTEI 0