Из Delphi в Pascal.NET - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Помогите перевести код дельфи в паскальАВС.NET
выдает ошибку Unit1.pas(36) : Неизвестное имя 'Variant' и чем заменить memo?

Решение задачи: «Из Delphi в Pascal.NET»

textual
Листинг программы
var memo : TextBox; // выставить Multiline в True
 
procedure MyClick(sender : object; e: System.EventArgs); // обработчик нажатия кнопки
begin
  var doc : HtmlElementCollection := w.Document.GetElementsByTagName('tag');
  foreach var item : HtmlElement in doc do
  begin
    if item.GetAttribute('className') = 'class' then
      memo.Text := item.InnerText;
  end;  
end;

Объяснение кода листинга программы

  1. Объявлена переменная memo типа TextBox.
  2. Установлен свойство Multiline в True для memo.
  3. Объявлена процедура MyClick типа обработчик событий.
  4. В обработчике MyClick объявлена переменная doc типа HtmlElementCollection.
  5. В обработчике MyClick происходит итерация по всем элементам в doc.
  6. В обработчике MyClick проверяется равенство атрибута 'className' элемента 'item' строке 'class'.
  7. Если условие выполняется, то в обработчике MyClick, к переменной memo присваивается значение InnerText элемента 'item'.
  8. Код не содержит использования обработчика MyClick.
  9. Код не содержит обработки ошибок.
  10. Код не содержит вызовов функций или методов, кроме конструкторов и методов класса.
  11. Код не содержит циклов, кроме foreach в обработчике MyClick.
  12. Код не содержит временных переменных, кроме тех, которые объявлены в обработчике MyClick.
  13. Код не содержит неизменяемых переменных.
  14. Код не содержит вызовов API.
  15. Код не содержит вычислений, которые производятся на стороне сервера.
  16. Код не содержит операций ввода/вывода.
  17. Код не содержит использования глобальных переменных.
  18. Код не содержит использования констант.
  19. Код не содержит комментариев.
  20. В данном коде используется язык программирования PascalABC.Net.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы