Array
(
)

Varrendo txt

Peununes
   - 21 nov 2005

Bom dia! Pesquisei aqui e não encontrei! Depois que carrego um arquivo txt em um memo, preciso varrer o conteúdo, caracter a caracter, até encontrar <. A partir daí, copio para outro memo, caracter a caracter, até encontrar >. então volto a primeira rotina e continuo varrendo o texto.

Alguém sabe como fazer isso?

Grande abraço!


Massuda
   - 21 nov 2005

Use a propriedade TMemo.Lines.Text para acessar todo conteudo do Memo através de uma única grande string.


Peununes
   - 21 nov 2005

hum, acho que não fui muito claro. Preciso verificar cada um dos caracteres de uma linha do texto de um memo, ok? Achando um <, começo a copiar os caracteres para outro memo até encontrar >.

Entendeu? :)


Marcio.theis
   - 21 nov 2005

Bom... Vc pode fazer de uma forma bem simples, uma delas seria:

#Código

procedure TForm1.BitBtn1Click(Sender: TObject);
var
x: integer;
texto: string;
begin
texto:=´´;
for x:=1 to length(Memo1.Lines.Text) do
begin
if ((Memo1.Lines.Text[x] = ´<´) or (texto <> ´´)) then
texto:=texto + Memo1.Lines.Text[x];
if Memo1.Lines.Text[x] = ´>´ then
begin
texto:=copy(texto,2,length(texto) - 2);
Memo2.Lines.Add(texto);
texto:=´´;
end;
end;
end;



Peununes
   - 21 nov 2005

MARAVILHA! Obrigadão!

Grande abraço!