Quebra De Linha

[YAKKOO(FEM)]

OI GENTE...

TO PRECISANDO DO SEGUINTE: TENHO UM TXT ASSIM:

. . .;MEDICAMENTO1;MEDICAMENTO12

TO LENDO ELE DA SEGUINTE FORMA, E TA FUNCIONANDO BELEZA.

x := Length(Linha) - Length(Leito);

Medicamento := Copy(Linha,Pos(';',Linha)+1,x);

.

.

.

MemoVaiParaPrescricao.Lines.Add(Medicamento);

SO QUE NA HORA DE MOSTAR OS DADOS NO MEMO FICA COMO ESTA NO TXT (. . .;MEDICAMENTO1;MEDICAMENTO2) E ASSIM não SERVE PRA MEU SISTEMINHA, PRECISO QUE DEPOIS DE CADA PONTO E VIRGULA( DE UMA QUEBRA DE LINHA (ENTER) E OS DADOS APAREÇAM ASSIM NO MEMO:

MEDICAMENTO 1

MEDICAMENTO 2

.

.

.

COMO POSSO FAZER ISSO?

VALEU...

BJIM A TODOS

[Graymalkin]

Dê uma olhada na função AnsiReplaceStr(). Acredito que ela seja tudo que você necessita.

Abraços,

Graymalkin

[alexsme]

Cara, é só colocar #13 depois do seu texto sem as aspas. O 313 represento o enter ou quebra de linha.

EX:

showmessage('texto1'+#13+'texto2');

vai aparecer assim:

texto1

texto2

Espero ter ajudado, não sei se é isso que você precisa.