Schleife geht net ???

[Bernd29bln]

Hallo!

das parsen meiner txt datei hab ich hin bekommen allerdings geht es nur mit einer zeile nun will ich die anderen zeilen genauso parsen aber meine schleife geht net.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);  
var a: integer;  
    s: string;  
begin  
  s:=memo1.Lines.Text;  
   while (pos('<harf', s)>0) do  
    begin  

 
  a:=pos('<harf"', s)+11;  
  delete(s, 1, a);  
  a:=pos('"', s);  
  Memo1.Lines.Text:=copy(s, 1, a-1);  
  end; 
end;

sie findet immer nur den ersten text .

gruss an alle