1. Pascal / Говнокод #14530

    +125

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    var
  generalPtr : Pointer;  // Указатель на что-нибудь
  formPtr    : ^TForm;   // Указатель на объект формы

begin
  // Форма текущего модуля адресуемая через ключевое слово self
  generalPtr := Addr(self);

  // Мы можем присвоить этот указатель указателю формы
  formPtr := generalPtr;

  // И установить заголовок формы, чтобы показать это
  formPtr.Caption := 'Test program';
end;
Форма будет показана с з[color=red]а[/color]галовком:

Test program

    http://www.delphibasics.ru/Pointer.php

    Запостил: Stertor, 09 Февраля 2014

    Комментарии (16) RSS

    • ava Stertor 09.02.2014 11:05 # −1

      var
      generalPtr : Pointer; // Указатель на что-нибудь
      formPtr : ^TForm; // Указатель на объект формы

      begin
      // Форма текущего модуля адресуемая через ключевое слово self
      generalPtr := Addr(self);

      // Мы можем присвоить этот указатель указателю формы
      formPtr := generalPtr;

      // И установить заголовок формы, чтобы показать это
      formPtr.Caption := 'Test program';
      end;
      Форма будет показана с загаловком:

      Test program
      Ответить

    • ava 1024-- 09.02.2014 11:33 # +3

      Такое ощущение, будто бы это пост LispGovno, но код на Delphi.
      Ответить

    • ava mewmew 09.02.2014 12:43 # +1

      только чукча и москаль станет изучать паскаль (с)
      Ответить

      • ava Stertor 09.02.2014 12:57 # −3

        Только чукча может иметь ник "мьюмью"
        Ответить

        • ava kegdan 09.02.2014 13:25 # +2

          только стертор может обижаться на то, что паскаль - говно
          Ответить

          • ava Stertor 09.02.2014 13:32 # −1

            Лошадям слова не давали.
            Ответить

            • ava kegdan 09.02.2014 13:39 # +3

              Ахаха )

              http://cs317827.vk.me/v317827808/4400/I7l0WPZUA9k.jpg
              Ответить

              • ava Stertor 09.02.2014 13:48 # +4

                На, на, вот тебе еще:
                http://im1-tub-ru.yandex.net/i?id=162473454-30-72&n=21

                http://dreamworlds.ru/uploads/posts/2010-04/thumbs/1270563709_gal5-9.jpg

                http://www.tomportal.ru/uploads/posts/2010-04/1272375367_36313616_dzhuliya_byell_kentavr.jpg

                Иго-го!
                Ответить

    • ava TarasB 09.02.2014 14:58 # −5

      показать все, что скрытошкололо-тред
      Ответить

    Добавить комментарий