この発言は
#00961　DUDE            さんのRE:HTLM の TABLE タグを解析(2)
に対するコメントです



字句解析器の状態がリセットされないため、複数の HTML ファイルを連続して処
理した場合に、２回目以降が正しく表示されない問題がありました。

以下の修正で直ります。

token.l の末尾にある %% 以降を削除。

pars.y の末尾を、以下のように変更。

%%

{$I token.pas}

procedure yyinit;
var
  I:Integer;
begin
  for I := Low(CurrentTable) to High(CurrentTable) do
    CurrentTable[I] := nil;
  CurrentTablePointer := 0;
  for I := Low(CurrentRow) to High(CurrentRow) do
    CurrentRow[I] := nil;
  CurrentRowPointer := 0;
  for I := Low(CurrentCell) to High(CurrentCell) do
    CurrentCell[I] := nil;
  CurrentCellPointer := 0;
  start(INITIAL);
end;

begin
end.

                  99/10/19(Tue) 11:36pm [AirCraft開発] PFF01344 DUDE
                                    http://member.nifty.ne.jp/dude/

Original document by DUDE            氏 ID:(PFF01344)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。