CSS CONFIG:
<style TYPE="text/css"> <!-- body { font-family: verdana; } pre { font-family: courier; font-size: 0.7em;} span.Symbol { color: #00FFFF; } span.String { color: #FF00FF; } span.HexNumber { color: #FF00FF; } span.Comment { color: #F4F889; } span.Keyword { color: #FF8000; font-weight: bold; } span.Directive { color: #CC3333; font-weight: bold; } span.Identifier { color: #CCCCCC; } span.Number { color: #FFFF00; } --> </style>

HIGHLIGHTED HTML:
<pre> <span class="Keyword">uses</span> <span class="Identifier">htmlutil</span><span class="Symbol">;</span> <span class="Keyword">type</span> <span class="Identifier">TCell</span> <span class="Symbol">=</span> <span class="Keyword">string</span><span class="Symbol">;</span> <span class="Identifier">TRow</span> <span class="Symbol">=</span> <span class="Keyword">array</span> <span class="Keyword">of</span> <span class="Identifier">TCell</span><span class="Symbol">;</span> <span class="Identifier">TTableRec</span> <span class="Symbol">=</span> <span class="Keyword">record</span> <span class="Identifier">row</span><span class="Symbol">:</span> <span class="Keyword">array</span> <span class="Keyword">of</span> <span class="Identifier">TRow</span><span class="Symbol">;</span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Keyword">var</span> <span class="Identifier">InTable</span><span class="Symbol">,</span> <span class="Identifier">InCell</span><span class="Symbol">,</span> <span class="Identifier">InRow</span><span class="Symbol">:</span> <span class="Identifier">boolean</span><span class="Symbol">;</span> <span class="Identifier">RowCount</span><span class="Symbol">,</span> <span class="Identifier">ColCount</span><span class="Symbol">,</span> <span class="Identifier">TableCount</span><span class="Symbol">:</span> <span class="Identifier">longword</span><span class="Symbol">;</span> <span class="Identifier">TableRec</span><span class="Symbol">:</span> <span class="Identifier">TTableRec</span><span class="Symbol">;</span> <span class="Comment">// put above globals inside your class below </span> <span class="Keyword">type</span> <span class="Identifier">TClass</span> <span class="Symbol">=</span> <span class="Keyword">class</span> <span class="Keyword">procedure</span> <span class="Identifier">OnTag</span><span class="Range">..</span><span class="Symbol">.</span> <span class="Keyword">procedure</span> <span class="Identifier">OnText</span><span class="Range">..</span><span class="Symbol">.</span> <span class="Keyword">procedure</span> <span class="Identifier">Parse</span><span class="Range">..</span><span class="Symbol">.</span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Keyword">procedure</span> <span class="Identifier">TClass</span><span class="Symbol">.</span><span class="Identifier">Parse</span><span class="Symbol">;</span> <span class="Keyword">var</span> <span class="Identifier">parser</span><span class="Symbol">:</span> <span class="Identifier">TFastHtmlParser</span><span class="Symbol">;</span> <span class="Keyword">const</span> <span class="Identifier">HTMLSTRING</span><span class="Symbol">=</span> <span class="String">'SOME HTML <TABLE> <TR><TD>blah</TD></TR></TABLE>'</span><span class="Symbol">;</span> <span class="Keyword">begin</span> <span class="Identifier">parser</span><span class="Symbol">:=</span> <span class="Identifier">TFastHtmlParser</span><span class="Symbol">.</span><span class="Identifier">create</span><span class="Symbol">(</span><span class="Identifier">HTMLSTRING</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Identifier">parser</span><span class="Symbol">.</span><span class="Identifier">OnTag</span><span class="Symbol">:=</span> <span class="Address">@</span><span class="Identifier">self</span><span class="Symbol">.</span><span class="Identifier">Ontag</span><span class="Symbol">;</span> <span class="Identifier">parser</span><span class="Symbol">.</span><span class="Identifier">OnText</span><span class="Symbol">:=</span> <span class="Address">@</span><span class="Identifier">self</span><span class="Symbol">.</span><span class="Identifier">OnText</span><span class="Symbol">;</span> <span class="Identifier">parser</span><span class="Symbol">.</span><span class="Identifier">exec</span><span class="Symbol">;</span> <span class="Identifier">parser</span><span class="Symbol">.</span><span class="Identifier">free</span><span class="Symbol">;</span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Keyword">procedure</span> <span class="Identifier">TClass</span><span class="Symbol">.</span><span class="Identifier">OnTag</span><span class="Symbol">(</span><span class="Identifier">UpcaseTag</span><span class="Symbol">:</span> <span class="Keyword">string</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Keyword">begin</span> <span class="Keyword">if</span> <span class="Identifier">htmlutil</span><span class="Symbol">.</span><span class="Identifier">GetTagName</span><span class="Symbol">(</span><span class="Identifier">UpcaseTag</span><span class="Symbol">)</span> <span class="Symbol">=</span> <span class="String">'TABLE'</span> <span class="Keyword">then</span> <span class="Keyword">begin</span> <span class="Identifier">InTable</span> <span class="Symbol">=</span> <span class="Identifier">true</span><span class="Symbol">;</span> <span class="Identifier">inc</span><span class="Symbol">(</span><span class="Identifier">tablecount</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Identifier">rowcount</span><span class="Symbol">:=</span> <span class="Number">0</span><span class="Symbol">;</span> <span class="Identifier">colcount</span><span class="Symbol">:=</span> <span class="Number">0</span><span class="Symbol">;</span> <span class="Comment">{ check an attribute value... if htmlutil.GetVal(UpcaseTag, 'class') = 'redContentTable' then correcttablefound:= true; }</span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Keyword">if</span> <span class="Identifier">htmlutil</span><span class="Symbol">.</span><span class="Identifier">GetTagName</span><span class="Symbol">(</span><span class="Identifier">UpcaseTag</span><span class="Symbol">)</span> <span class="Symbol">=</span> <span class="String">'TR'</span> <span class="Keyword">then</span> <span class="Keyword">begin</span> <span class="Identifier">InRow</span> <span class="Symbol">=</span> <span class="Identifier">true</span><span class="Symbol">;</span> <span class="Identifier">inc</span><span class="Symbol">(</span><span class="Identifier">rowcount</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Identifier">colcount</span> <span class="Symbol">=</span> <span class="Number">0</span> <span class="Symbol">;</span> <span class="Comment">// reset cell (column) count each time we hit a new row </span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Keyword">if</span> <span class="Identifier">htmlutil</span><span class="Symbol">.</span><span class="Identifier">GetTagName</span><span class="Symbol">(</span><span class="Identifier">UpcaseTag</span><span class="Symbol">)</span> <span class="Symbol">=</span> <span class="String">'TD'</span> <span class="Keyword">then</span> <span class="Keyword">begin</span> <span class="Identifier">incell</span> <span class="Symbol">=</span> <span class="Identifier">true</span><span class="Symbol">;</span> <span class="Identifier">inc</span><span class="Symbol">(</span><span class="Identifier">colcount</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Keyword">if</span> <span class="Identifier">UpcaseTag</span> <span class="Symbol">=</span> <span class="String">'</TD>'</span> <span class="Keyword">then</span> <span class="Identifier">incell</span><span class="Symbol">:=</span> <span class="Identifier">false</span><span class="Symbol">;</span> <span class="Keyword">if</span> <span class="Identifier">UpcaseTag</span> <span class="Symbol">=</span> <span class="String">'</TR>'</span> <span class="Keyword">then</span> <span class="Identifier">inrow</span><span class="Symbol">:=</span> <span class="Identifier">false</span><span class="Symbol">;</span> <span class="Keyword">if</span> <span class="Identifier">UpcaseTag</span> <span class="Symbol">=</span> <span class="String">'</TABLE>'</span> <span class="Keyword">then</span> <span class="Identifier">intable</span><span class="Symbol">:=</span> <span class="Identifier">false</span><span class="Symbol">;</span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Keyword">procedure</span> <span class="Identifier">TClass</span><span class="Symbol">.</span><span class="Identifier">OnText</span><span class="Symbol">(</span><span class="Identifier">text</span><span class="Symbol">:</span> <span class="Keyword">string</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Keyword">var</span> <span class="Identifier">tmp</span><span class="Symbol">:</span> <span class="Keyword">string</span><span class="Symbol">;</span> <span class="Keyword">begin</span> <span class="Comment">{ if tablecount <> 7 then exit (must be table 7?) if not correcttablefound then exit }</span> <span class="Keyword">if</span> <span class="Identifier">InTable</span> <span class="Keyword">then</span> <span class="Keyword">if</span> <span class="Identifier">InCell</span> <span class="Keyword">then</span> <span class="Keyword">begin</span> <span class="Identifier">tmp</span><span class="Symbol">:=</span> <span class="Identifier">tablerec</span><span class="Symbol">.</span><span class="Identifier">row</span><span class="Symbol">[</span><span class="Identifier">rowcount</span><span class="Symbol">]</span><span class="Symbol">[</span><span class="Identifier">colcount</span><span class="Symbol">]</span><span class="Symbol">;</span> <span class="Identifier">tablerec</span><span class="Symbol">.</span><span class="Identifier">row</span><span class="Symbol">[</span><span class="Identifier">rowcount</span><span class="Symbol">]</span><span class="Symbol">[</span><span class="Identifier">colcount</span><span class="Symbol">]</span> <span class="Symbol">:=</span> <span class="Identifier">tmp</span> <span class="Symbol">+</span> <span class="Identifier">text</span><span class="Symbol">;</span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Comment">// above adds to your storage buffer </span> <span class="Comment">// We concat since multiple text tags can be found and must be trapped </span> <span class="Comment">{ Above is similar to Excel ROW/CELL spreadsheet using a record, you could use a 2 dimensional array, a list, class, or other buffer Could track multiple tables too: tablerec = array of TTableRec; tablerec[tablecount].row[rowcount][colcount] := (concat here) }</span> <span class="Keyword">end</span><span class="Symbol">;</span><!---------------------> <!-- End of File ------> <!---------------------> </pre>