Народ зацените задачу!!! неделю писал.

[Mclaren]

Может у кого какие дополнения есть. Вносим. Будет круто!!!!

[NSvirus]

Неопознанный Идентификатор. Исправляй ошибки, вникать не в "удовольствие".

[Mclaren]

А ты через какой Паскаль запускал?

[NSvirus]

TB, Free.. проверь, наверняка так и есть..

[Mclaren]

Запусти через Free/ а не через ABC. Если ошибка напиши где и какая

[Serge_Bliznykov]

NSvirus, уберите открывающую фигурную скобку

{procedure  ExpHTML(var f:Tip; Var h:TX);

думаю, что она туда случайно затесалась.

Mclaren, выглядит устрашающе.
И даже, местами работает.
Но при попытке добавить элемент, после ввода каждого поля (по enter), каждое введённое значение стирается. когда дошёл до последного элемента получил ошибку. программа написала 'Gotovo'.
нажал стрелку и получил ошибку в процедуре
{Sazdaut Okno}
procedure Wind(k:byte);
на операторе WriteLn - ошибка "File Not Found!"

[Mclaren]

Эту ошибку я предусмотрел и поэтому ввел такую фишку. короче запусти прогу... далее в правом верхнем углу есть кнопка "Noveui FILE" нажми на нее . Поттверди создание файла и добавляй элементы. Ну как работает?

[Serge_Bliznykov]

это заработало. запись добавилась (хотя, всё так же, при вводе по Enter введённый текст стирается зачем то ;(

после ввода. нажал просмотреть. всё ок.
потом изменить. вверху открылось окошко. я понажимал клавиши и получил "Runtime error 106 at 0000:1062."
программа закрылась...

короче. Задумка хорошая. но реализация... мягко говоря, не доведена до готового продукта!

[NSvirus]

не плохо не плохо))

[Mclaren]

Где текст стирается???