große Textdatei einlesen und filtern

[Cakotay]

So ich hab jetzt mal ein wenig mit diesem TStringStream gebastelt und dabei ist der Folgende Code rausgekommen. Das Problem ist jetzt allerdings das sich garnichs tut. Ich hoffe mir kann hier jemand helfen.

Delphi-Quellcode:

var
        dateiname            :string;
        puffer               :TStringStream;
        my_filestream        :TFileStream;
        puffer2              :string;
        start                :integer;
        ende                 :integer;
begin
        if OpenDialog1.Execute then
        begin
                dateiname := OpenDialog1.FileName;
                try
                        my_filestream := TFileStream.Create(dateiname, fmOpenread);
                        puffer := TStringStream.Create('');
                        puffer.CopyFrom(my_filestream, my_filestream.Size);
                        my_filestream.Free;
                puffer2 := puffer.ReadString(puffer.Size);
                while pos('<table width=519>', Puffer2) > 0 do
                begin
                        start := pos('<table width=519>', Puffer2) - 1;
                        delete(Puffer2, 1, start);
                        ende := pos('</table>', Puffer2) + 7;
                        Memo2.Lines.Add(copy(Puffer2, 0, ende));
                        delete(Puffer2, 1, ende);
                end;
                except
                end;
            puffer.Free;
        end;

end;