W Cat
250 a := Fields[i].AsString;
260 if a = '' then a := ' - ';
270 S := S + '
280 end; // for
290 Next;
300 S := S + '';
310 LHTML.Add(S);
320 end; // while
330 LHTML.Add('');
340 END
350 ELSE
360 LHTML.Add('
370 LHTML.Add('