[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. derk

    derk New Member

    Joined:
    9 Feb 2011
    Messages:
    9
    Likes Received:
    3
    Reputations:
    -8
    )
    ДАйте какой нибудь чекер (исходник для соц.сетей)
    Или какую другую либо прогу по работе над акками
     
  2. Jingo Bo

    Jingo Bo Member

    Joined:
    25 Oct 2009
    Messages:
    368
    Likes Received:
    51
    Reputations:
    7
    http://forum.antichat.ru/thread264370.html
    Он брутален)
     
  3. kvadro

    kvadro New Member

    Joined:
    4 Mar 2011
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    я вообще-то сюда за помощью обратился, а не чтоб ваши нарекания слушать)
    и если посмотреть внимательней, то справа от хекса всё написано нормально, пользовался прогой WPE Pro
     
  4. 4ipolino

    4ipolino New Member

    Joined:
    24 Dec 2010
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    помогите нарисовать вот такой чат [​IMG]
     
    #8124 4ipolino, 15 Apr 2011
    Last edited: 15 Apr 2011
  5. AGIMgal

    AGIMgal New Member

    Joined:
    9 Jun 2010
    Messages:
    66
    Likes Received:
    0
    Reputations:
    0
    http://clip2net.com/s/T2DE
    что это?
     
  6. alexey-m

    alexey-m Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    AGIMgal, написано же по-английски, что твоя лицензия недействительна =D
     
  7. AGIMgal

    AGIMgal New Member

    Joined:
    9 Jun 2010
    Messages:
    66
    Likes Received:
    0
    Reputations:
    0
    чтото никак не пойму, что ему тут не нравится.
    Code:
     MyObject  = object (TImage)
    а он мне
    [Error] Unit1.pas(11): Undeclared identifier: 'TImage'
    я так понял говорит не обьявлено, а ведь объект такой (TImage) есть
     
  8. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    во-первых TImage это тип, а тип к к экземпляру ты не приведешь.
    Image1 надо или как там у тебя объявлено
    во-вторых проверь в uses ссылку на модуль где объявлен TImage
     
  9. AGIMgal

    AGIMgal New Member

    Joined:
    9 Jun 2010
    Messages:
    66
    Likes Received:
    0
    Reputations:
    0
    неочень понял, вообщем как обьявить потомка TImage?
    а я могу у своего обьекта забить на предка, и сделать поле TImage? если да, то что нужно сделать предворительно&
     
    #8129 AGIMgal, 15 Apr 2011
    Last edited: 15 Apr 2011
  10. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    БЛИН хех тока щас заметил "=" а не ":=", вот что значит давно дельфи не открывал

    Класс-наследник от TImage объявлять так:

    TMyImage = class(TImage)
    end;

    Ну тогда так:

    TMyClass = class
    private
    FImage: TImage;
    end;

    но тогда за создание и уничтожение FImage отвечаешь ты

    сам TImage тусуется где-то здесь
    uses ExtCtrls;
     
    #8130 GhostOnline, 15 Apr 2011
    Last edited: 15 Apr 2011
  11. AGIMgal

    AGIMgal New Member

    Joined:
    9 Jun 2010
    Messages:
    66
    Likes Received:
    0
    Reputations:
    0
    спасибо, тока вот здесь нужно class или object?
    смутило.
    правда теперь проблема, как самому контролировать создание/удаление).
     
    #8131 AGIMgal, 15 Apr 2011
    Last edited: 15 Apr 2011
  12. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    object это устаревшее ключевое слово, оставлено только ради обратной совместимости. Такие классы хранятся на стеке.

    PS в любой книге по дельфи описывается создание классов, читай

    ничего сложного - создаешь в конструкторе, удаляешь в деструкторе
     
  13. crazyserega1994

    crazyserega1994 Elder - Старейшина

    Joined:
    25 Dec 2007
    Messages:
    27
    Likes Received:
    3
    Reputations:
    0
    Indy 10, Delphi 7.

    При GET http://www.beeline.ru/mamimg.aspx?width=120&height=30 вызывается raise в модуле idGlobals, и выскакивает invalid argument to date encode, если нажать ок, пото пишет ошибку 404. Раньше все работало нормально, гугл не помог
     
  14. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    crazyserega1994 (изучать исходники и/или отлаживать) и/или (писать разработчикам инди)

    ЗЫ лол, что это за исключение такое? :D

    А что у тебя там с gzip\deflate? Что отсылается в accept-encoding, что в ответ?

    Да бля, какго х** ты сюда пишешь если даже браузер получает в ответ это:
     
    #8134 GhostOnline, 16 Apr 2011
    Last edited: 16 Apr 2011
  15. cardons

    cardons Elder - Старейшина

    Joined:
    19 Jul 2005
    Messages:
    778
    Likes Received:
    324
    Reputations:
    83
    Подскажите как сделать.
    Имеется 12 условий if else которые при срабатывании на label1 выводят сообщение в Caption.
    Сейчас у меня даже если 2 условия верны выводиться только последнее условие. То есть получается одно заменяется другим. Сейчас при выполнении условия код выглядит так label1.Caption:='текст1';
    Как сделать чтобы если 2 или более условий срабатывало и выводилось в итоге все вместе в label1 только на разных строчках.То есть чтобы в label1 один вышел текст вот такого вида
    Code:
    текст
    текст1
    
     
    #8135 cardons, 17 Apr 2011
    Last edited: 17 Apr 2011
  16. alexey-m

    alexey-m Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    cardons, если я тебя правильно понял, что тебе надо, то примерно так:
    Code:
    ...............
    var
      s: String;
    begin
      s:= '';
      if (условие 1) then s:= 'text 1';
      if (условие 2) then s:= s + #13#10 + 'text 2';
      if (условие 3) then s:= s + #13#10 + 'text 3';
    ...........................
      if (условие 12) then s:= s + #13#10 + 'text 12';
      label1.Caption:= s;
    ...............
    
     
  17. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    cardons
    label1.Caption := label1.Caption + #13#10 + 'текст1';
     
  18. Rastamanka

    Rastamanka Elder - Старейшина

    Joined:
    26 Nov 2008
    Messages:
    429
    Likes Received:
    11
    Reputations:
    7
    Подскажите.
    В общем есть форма Form7.
    при действии к примеру ButtonClick на Form1 отрывается форма Form7 в showmodal
    на этой форме указано Вы уверены?
    ответ Да и Нет
    при да соответственно ModalResult:=1;
    при нет соответственно ModalResult:=0;

    так вот. как мне сделать потом проверку на Form1?
    я знаю if else. это понятно. но я умею принимать параметры тока с этой же формы. как мне проверить параметры который были на Form7?
     
  19. patcher

    patcher Banned

    Joined:
    15 Dec 2009
    Messages:
    190
    Likes Received:
    37
    Reputations:
    10
    Rastamanka, Form7.ShowModal - функция, и она возвращает результат. Только он (результат) должен быть отменный от 0.
     
  20. lamer811

    lamer811 Elder - Старейшина

    Joined:
    8 Nov 2009
    Messages:
    130
    Likes Received:
    39
    Reputations:
    12
    Подскажите, в чем проблема?
    В Delphi XE отправляю пост запрос с русскими буквами, но в результате получаю ерунду: никита24111998
    Кодировка: URL Encode
    Где-то читал, что в инди её можно выключить, но как это сделать..
     
Thread Status:
Not open for further replies.