Далее. Гораздо правильнее было бы вгрузить поле через TStringList и сохранить его как HTML-файл, а не городить огород с TStream.
Я переделал процедуру TForm1.BeforeNavigate. Вот переделанный фрагмент:
Код:
var sl: TStringList;
...
if ADOTable1.Locate (ffield, fvalue. opts) then
begin
sl:=TStringList.Create;
try
sl.Text:=ADOTable1.FieldByName ('html').AsString;
sl.SaveToFile (ExtractFileDir ... //далее - имя файла по тексту
finally
sl.Free;
end;
end; //if
//далее без изменений
Цитата lxa85:
|
При закрытии справочника - вылетает ошибка. »
|
Это как раз из-за неинициализированных переменных.
