große Textdatei einlesen und filtern

**Cakotay**

Hallo!
Ich versuche von meinem Browser die Cachedatei(15 mb groß) einzulesen und zu filtern, hab aber das Problem, dass nicht alles abgearbeitet wird (Die Filterung funktioniert aber eben nicht bis zum Ende). Ich wollte das ganze auch in einem Memo anzeigen, habe aber sehr schnell merken müssen, das es damit nicht zurecht kommt. Habe dann davon gelesen das man RichEdit nehmen soll und das hab ich dann auch versucht, allerdings mit der Fehlermeldung :"...Exception der Klasse EOutOfResources aufgetreten. Meldung:'Fehler bei einfügen von RichEdit-Zeile'...".
Das ist allerdings nicht das wichtigste, auf die Anzeige kann ich auch verzichten. Mir geht es eben nur darum das ich meine Informationen aus der Datei bekomme.

Hier mal der Quellcode den ich habe:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

        dateiname            :string;

        datei                :TextFile;

        puffer               :AnsiString;

        puffer2              :AnsiString;

        start                :integer;

        ende                 :integer;

begin

        if OpenDialog1.Execute then

        begin

                dateiname := OpenDialog1.FileName;

                try

                AssignFile(datei, dateiname);

                Reset(datei);

                repeat

                        Readln(datei, Puffer);

                        RichEdit1.Lines.Add(Puffer);

                        Puffer2 := Puffer2 + Puffer;

                until EOF(datei);

                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

                        try

                        CloseFile(datei);

                        except

                        end;

                end;

                CloseFile(datei);

        end;

end;

Würde mich rießig freuen wenn ihr mir da helfen könnt, aber bitte auch so das ich es verstehe, denn Delphi ist nicht gerade mein Spitzengebiet.

große Textdatei einlesen und filtern

große Textdatei einlesen und filtern

Forumregeln