Varrendo txt

Question

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...

Massuda · Answer

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

Peununes · Answer

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 · Answer

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

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 · Answer

MARAVILHA! Obrigad�o!Grande abra�o!...