Problem mit String in Schleife

[Stefan Hueg]

Der Code

Delphi-Quellcode:

while i < L do
begin
  IsDatum := True;
  Index := PosEx('1', htmlbuffer, i);

  if (Index > 0) and (Index <= L - 3) then
  begin
    if (htmlbuffer[Index + 1] in ['0'..'9']) and (htmlbuffer[Index + 2] in ['0'..'9']) and (htmlbuffer[Index + 3] in ['0'..'9']) then
      Datum := Copy(htmlbuffer, Index, 4);
    else
      IsDatum := False;

    if IsDatum then
      Liste := Liste + Datum;

    i := Index + 1;
  end else
    Break;
end;
memo1.text := Liste;

Ist noch ein wenig schneller