Problem mit String in Schleife

[Majoner]

Gutn Aabend ,

Hab ein, für mich, sehr nervenaufreibendes Problem mit einer Schleife.
Vielleicht kann mir ja jemand helfen.

Also ich hab einen String mit HTML-Code, der is circa 70 Kb groß und heisst htmlbuffer. Aus diesem suche ich Jahreszahlen beginnend mit 1 und dann sollen natürlich 3 weitere Zahlen folgen.

Hier ein Codeauszug:

Delphi-Quellcode:

While i < length(htmlbuffer) do
      begin
        keindatum := 0;
    index := PosEx('1', htmlbuffer, i);
    if index > 0 then
    begin
      datum := '1    ';
      For a:= 1 to 3 do
      begin
        if ((htmlbuffer[index + a]) = '1') or
           ((htmlbuffer[index + a]) = '2') or
           ((htmlbuffer[index + a]) = '3') or
           ((htmlbuffer[index + a]) = '4') or
           ((htmlbuffer[index + a]) = '5') or
           ((htmlbuffer[index + a]) = '6') or
           ((htmlbuffer[index + a]) = '7') or
           ((htmlbuffer[index + a]) = '8') or((htmlbuffer[index + a]) = '9') then datum[1 + a] := htmlbuffer[index +a]
        else keindatum := 1;
      end;
    if keindatum = 0 then liste := liste + ' ' + datum;
    end;
    i := index + 1;
    end;
    memo1.text := liste;
end;

Der Code funktioniert, aber nur wenn ich htmlbuffer um circa 10000 Bytes kürze, was ja total lächerlich ist, ich will ja den ganzen Quelltext durchsuchen lassen.

Versuche ich das dann reagiert das Programm nicht mehr!

Aber htmlbuffer ist vollständig, hab es mir in einem Memo angeschaut. Kann es sein, dass es einen Überlauf gibt? Hab keine Ahnung! Was kann ich da bloss machen ?