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