[Resolvido] Inserindo #13 em um tcaption

[bdexterholland 0]

Olá a todos, o sumido aparece as vezes!!!

:D

 

Bom, tô fazendo um programinha para resolver as quebras de linha de um arquivo XML da empresa na qual estou trabalhando agora mas está ocorrendo um problema estranho para mim:

 

Criei uma variável do tipo tcaption para copiar o texto de um tmemo e com esse tcaption, utilizar a procedure para inserir uma string (no caso a string é o #13), depois de processado as inserções, jogo o texto corrigido para um outro memo, porém não estão existindo as quebras de linha, alguma teoria?

 

Lembrando que eu estou utilizando o turbo delphi...

 

o código não está nesse pc mas daqui a pouco eu posto o código para mostrar se precisarem

 

um exemplo:

var
  texto : tcaption
begin
  insert(#13, texto, 3);
  memo1.text := texto;
end;

é algo assim que eu estou fazendo...

[marcio.theis 3]

Tente da seguinte forma:

 

var
  texto : tcaption;
begin
texto:='Teste de Texto';
Insert(#$D#$A,texto,3);
memo1.text := texto;

[bdexterholland 0]

Te amo cara!!!

 

 

bom, nem tanto http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

eu estava pensando em criar duas variáveis de buffer e fazer concatenação, com certeza funcionaria, mas eu queria saber como fazer para funcionar dessa forma.

 

Dúvida: Porque da forma que eu tinha feito não funciona?

[marcio.theis 3]

hehehehe...

Bom, no caso este esquema de concatenação que quer fazer não entendi muito bem, se tiver como colocar um exemplo seria melhor...

Para o memo o enter é interpretado pelo #$D#$A

[bdexterholland 0]

hehehehe...

Bom, no caso este esquema de concatenação que quer fazer não entendi muito bem, se tiver como colocar um exemplo seria melhor...

algo assim: (fica meio monstruoso, mas funciona)

var
  aux1, aux2 : tcaption;
  x : word;
var
  aux1 := copy(frase,0,x);
  aux2 := copy(frase,x,length(frase)-x);
  frase := aux1 + #13 + aux2;
end;

horroroso mas tenho quase certeza que funciona!

 

 

Para o memo o enter é interpretado pelo #$D#$A

Essa eu pensei um pouco e pesquei :D

Tipo, $D e $A é hex, 13 e 10 respectivamente

[marcio.theis 3]

A questão de ser monstruoso ou não acho que nem é tão valido de se avaliar, bom que funcione e se torne funcional, aos poucos se vai remodelando até chegar no fonte que você julgue como o melhor...