ActiveDelphi

WhatEver23

Eae galera, estou com uma dúvida aqui, de como fazer a função abaixo com o memo do delphi.

Supondo que o conteúdo do memo seja este:

Caduzera · Enviada: Qui Jan 19, 2012 7:34 am Assunto:

Amigo, você pode fazer um Loop e montar a string como quiser ..

Exemplo:

var
i : Integer;
sTexto : String;

begin
For i := 0 To Memo.Lines.Count - 1 Do
sTexto := sTexto + Trim(Memo1.Lines.Strings[i]) + ' ';

Memo1.Lines.Clear;
Memo1.Lines.Add(sTexto);
end;

marcosalles · Enviada: Qui Jan 19, 2012 7:49 am Assunto:

Outro modo é utilizar o DelimitedText

imex · Enviada: Qui Jan 19, 2012 8:56 am Assunto:

Segue outra alternativa:

marcosalles · Enviada: Qui Jan 19, 2012 9:03 am Assunto:

com sLineBreak Tinha feito a principio com ele , so
que não tinha dado certo. Olhei com mais calma e parece que tem uma
pequena imperfeição nesta instrução. Ja tinha reparado neste pequeno
desvio ,

veja .. Memo1.text

imex · Enviada: Qui Jan 19, 2012 10:08 am Assunto:

Marco, quando você disse Str_Aux seria Str_Um ou Str_Dois?
Para verificar o resultado acho que seria melhor adicionar as strings no próprio Memo ao final do código:

marcosalles · Enviada: Qui Jan 19, 2012 10:11 am Assunto:

imex · Enviada: Qui Jan 19, 2012 10:20 am Assunto:

Sem setar StrictDelimiter = true obtive 11:

marcosalles · Enviada: Qui Jan 19, 2012 10:26 am Assunto:

imex · Enviada: Qui Jan 19, 2012 10:38 am Assunto:

É que não consegui detectar essa incoerência, mas acho que se a versão utilizada tiver a propriedade LineBreak é melhor utiliza-la.

marcosalles · Enviada: Qui Jan 19, 2012 12:30 pm Assunto:

Concluindo segue as opções .. Para não Poluir mais ainda o tópico .OK