[ 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. Империал

    Joined:
    11 Mar 2010
    Messages:
    1,224
    Likes Received:
    58
    Reputations:
    1
    Этот код верный, без ошибок?
     
  2. Империал

    Joined:
    11 Mar 2010
    Messages:
    1,224
    Likes Received:
    58
    Reputations:
    1
    Бросаю на форуму image появляеться квадратик.
    Каким образом его на шарик поменять?
    Это должно быть в инспекторе объектов, но где именно я не знаю
     
  3. od1n0chka

    od1n0chka Member

    Joined:
    13 Dec 2010
    Messages:
    297
    Likes Received:
    47
    Reputations:
    1
    напиши в аську
     
  4. Империал

    Joined:
    11 Mar 2010
    Messages:
    1,224
    Likes Received:
    58
    Reputations:
    1
    Лень мне аську запускать, пиши здесь
     
  5. DooD

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

    Joined:
    30 Sep 2010
    Messages:
    1,168
    Likes Received:
    450
    Reputations:
    288
    ёб*ный в рот,это издевательство что ли?
    1)Объяви глобальные переменные (это там где var Form1 и т.п) типа real и integer.
    2)Брось на форму paintbox (найти можно на панели компонентов ёмаё)
    3)добавь кнопочку
    4)добавь таймер

    сделай таймеру и кнопке обработчики событий путем двойного клика на компоненты.
    вставь код.все.
     
  6. Империал

    Joined:
    11 Mar 2010
    Messages:
    1,224
    Likes Received:
    58
    Reputations:
    1
    Не надо ругаться.
    Я еще думал что Delphi знаю :D
     
  7. od1n0chka

    od1n0chka Member

    Joined:
    13 Dec 2010
    Messages:
    297
    Likes Received:
    47
    Reputations:
    1
    готовый проект

    распакуй и запусти

    http://us.ua/657242/
     
    1 person likes this.
  8. Империал

    Joined:
    11 Mar 2010
    Messages:
    1,224
    Likes Received:
    58
    Reputations:
    1
    Спасибо ;)
    Но мне хотелось бы хоть немного сделать самому, если уж не написать, то хотя бы переписать
     
  9. Империал

    Joined:
    11 Mar 2010
    Messages:
    1,224
    Likes Received:
    58
    Reputations:
    1
    Если не затрундит можно комментарии к коду?
    Нужно объяснить какая переменная что означает
     
  10. SoulOfAngel

    SoulOfAngel New Member

    Joined:
    19 Mar 2012
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Подскажите пожалуйста, самые простые в реализации интерфейсы передачи команд программе на удалённом компе.
     
  11. DooD

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

    Joined:
    30 Sep 2010
    Messages:
    1,168
    Likes Received:
    450
    Reputations:
    288
    а сложно открыть гугл и найти?
    http://www.pascal.helpov.net/index/numerical_data_types_pascal_programming
    раз
    http://pas1.ru/booleantype
    два.
     
  12. Империал

    Joined:
    11 Mar 2010
    Messages:
    1,224
    Likes Received:
    58
    Reputations:
    1
    То что ты дал это немного не то. Мне нужно что бы комментарии в коде были. Описания алгоритма так сказать
     
  13. DooD

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

    Joined:
    30 Sep 2010
    Messages:
    1,168
    Likes Received:
    450
    Reputations:
    288
    ну так бы и сказал,написал что переменные.Палиндром находится перебором.в зависимости от длинны текста (делим без остатка) с двух концов проходим по элементам, и сравниваем их.

    Div- деление без остатка.
     
    #8973 DooD, 20 Mar 2012
    Last edited: 20 Mar 2012
  14. Империал

    Joined:
    11 Mar 2010
    Messages:
    1,224
    Likes Received:
    58
    Reputations:
    1
    А остальное?
    Например что означает div
     
  15. od1n0chka

    od1n0chka Member

    Joined:
    13 Dec 2010
    Messages:
    297
    Likes Received:
    47
    Reputations:
    1
    деление без остатка
     
  16. Rastamanka

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

    Joined:
    26 Nov 2008
    Messages:
    429
    Likes Received:
    11
    Reputations:
    7
    Подскажите.
    При создании формы пишу
    Code:
      if not FileExists(GetCurrentDir+'\log\log.txt') then
      begin
        MyLogFile := TFileStream.Create(GetCurrentDir+'\log\log.txt', fmCreate);
        MyLogFile.Free;
      end;
    
       MyLogFile := TFileStream.Create(GetCurrentDir+'\log\log.txt', fmOpenWrite or fmShareDenyNone);
    
    Записываю данные так.
    Code:
               MyLogFile.Write(mes[1], Length(mes));
    Все хорошо. Но строки записываются одна за другой. Как каждую новую запись делать на новую строку?
     
  17. mironich

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

    Joined:
    27 Feb 2011
    Messages:
    733
    Likes Received:
    73
    Reputations:
    19
    Code:
    mes := mes + #13#10;
    #13#10 //Это перенос строки
    
    
     
  18. Lot

    Lot New Member

    Joined:
    21 Nov 2011
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Нашел вот эту процедуру для уничтожения процессов.
    После begin в первой строчке кода находится для обработки окно с шапкой WindowTitle и формой Classname (допустим Tfrom1). Во второй строчке кода находится айди выбранного процесса. Это все что я мог понять из кода.
    Что происходит в остальных двух строчках??? Я еще зеленый в кодинге, помогите =3
     
  19. Империал

    Joined:
    11 Mar 2010
    Messages:
    1,224
    Likes Received:
    58
    Reputations:
    1
    Что означает вот этот кусок кода
    if edit1.text<>edit1.text[length(edit1.text)-i+1] then
    Чему равно значение выражения в квадратных скобках, и сколько будет i+1
     
  20. Империал

    Joined:
    11 Mar 2010
    Messages:
    1,224
    Likes Received:
    58
    Reputations:
    1
    Прошу ответьте кто в теме. Мне завтра нужно будет объяснить, ато говорят что я не сам писал
     
Thread Status:
Not open for further replies.