Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Активные темы » Вопросы по Delphi (до версии 2009) - часть 6

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы Вопросы по Delphi (до версии 2009) - часть 5

Познаем сами, помогаем другим...
Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже).


 
Правила топика:
    Прежде чем спрашивать:
  1. Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники.
  2. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там).
  3. Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах.
  4. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите.
  5. Желательно указывать версии используемого компилятора и операционной системы.
    Прежде чем отвечать:
  1. Если не можете помочь, не мешайте.
  2. Если уж вы отвечаете на вопрос, давайте ответ по сути.
  3. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа.
  4. Задавайте дополнительные вопросы, чтобы получить больше информации.
  • Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.  
  • Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе].


    Некоторые "родственные" топики:
     
  • Вопросы по Delphi (версии 2009-2010 Weaver)
  • Вопросы по компонентам для Delphi, C++ Builder
  • Использование DevExpress
  • Вопросы по Ehlib
  • Компоненты и утилиты для Delphi/BCB/FreePascal/Lazarus - только Open Source
  • Коммерческие компоненты и утилиты для Delphi/BCB
  • кабак программистов :)
     
    См. также: Некоторые полезные ресурсы о Delphi
     
    И старайтесь, чтобы ваш код не попал сюда :)

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 05:13 19-05-2010 | Исправлено: akaGM, 02:33 15-07-2020
    asadaf



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    StalkerSoftware

    Цитата:
    А с какой версии Indy появилась IcmpSendEcho ?  
    В версии D7 (9.00.10) такого нет.  

    Это не в Indy, это API функция, которая для Ping не требует админских прав, поскольку не использует RAW sockets в отличае от IdIcmpClient.
     

    Цитата:
    Можно попробовать, спасибо за совет.
    Хотя возможны ложные срабатывания, ведь окно с заголовком "Найти и заменить" может быть не только у Word/Excel.  

    Искать не по заголовку, а по имени класса окна. И поскольку оно дочернее, то искать как дочернее главного окна Word.

    Всего записей: 138 | Зарегистр. 27-01-2007 | Отправлено: 13:33 07-11-2016 | Исправлено: asadaf, 13:35 07-11-2016
    LadyOfWood

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    Можно попробовать, спасибо за совет.  
    Хотя возможны ложные срабатывания, ведь окно с заголовком "Найти и заменить" может быть не только у Word/Excel.  

    Можно искать используя пару каллбеков: EnumWindows, EnumChildWindows. И по классу окна надежнее.

    Всего записей: 620 | Зарегистр. 16-09-2003 | Отправлено: 22:10 09-11-2016
    StalkerSoftware



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    asadaf

    Цитата:
    Это не в Indy, это API функция, которая для Ping не требует админских прав, поскольку не использует RAW sockets в отличае от IdIcmpClient.  

    Нашел, посмотрел.  
    Но пока решил пойти немного по другому пути, вот
    код который я нашел в инете и немного доработал. Проверял его на Win7 (под обычным пользователем) и под XP - работает нормально.

    Всего записей: 682 | Зарегистр. 23-06-2008 | Отправлено: 15:36 11-11-2016 | Исправлено: StalkerSoftware, 15:42 11-11-2016
    4Eragon4

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Всем привет. Нужна помощь по программированию в Делфи. У меня есть один файл exсel, внутри него 4 листа (Worksheets).  примерно название листов time1, time2, time3, time4.
     Дали задания, что нужно информацию с каждого листа вводить отдельной кнопкой на форме. Причем проверяющий должен увести цифру, которая представляет количество столбцов для вывода с каждого листа.
    Помогите с кодом пожалуйста

    Всего записей: 3 | Зарегистр. 23-11-2016 | Отправлено: 14:19 23-11-2016
    LadyOfWood

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    4Eragon4
    Так проблема в чем? Чтение из xls(x), вывод на экран, что-то другое? ничего не понятно.

    Всего записей: 620 | Зарегистр. 16-09-2003 | Отправлено: 20:25 23-11-2016
    4Eragon4

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подробнее...

    Всего записей: 3 | Зарегистр. 23-11-2016 | Отправлено: 10:29 24-11-2016
    Dronton2

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Вопрос №1: что значит "увести цифру"? У меня есть смутные подозрения, что нужно не увести, а ввести. И не цифру, а число (т.к. количество измеряется числами, а не цифрами).
    Вопрос №2: что за формула, которая использует столбцы? От вида формулы зависит: нужно ли считывать данные в массив (и какого размера должен быть массив), или считывать можно в скаляр, объявленный внутри цикла?

    Всего записей: 460 | Зарегистр. 27-06-2005 | Отправлено: 12:34 24-11-2016
    asutp2

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Dronton2, наверное проверяющий будет красть цифры, с клавиатуры)))

    Всего записей: 789 | Зарегистр. 22-10-2004 | Отправлено: 13:07 24-11-2016
    4Eragon4

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Вопрос 1 . Он должен ввести число столбцов, которые нужно считать.  
    Вопрос 2. формула среднее арифметическое всего столбца. столбцы имеют разное количество данных.

    Всего записей: 3 | Зарегистр. 23-11-2016 | Отправлено: 13:34 24-11-2016
    Dronton2

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    наверное проверяющий будет красть цифры, с клавиатуры)))  
    и уводить в офшор.
     
    4Eragon4: в гугле полно примеров по запросу "excel delphi".
    Например, вот: http://www.programm-school.ru/chitaem_xls_v_delphi.html
    Только добавтьте две переменные и в цикле, вместо записи в грид, в одну переменную суммируйте значения ячеек, а во второй считайте количество непустых строк. После цикла поделите первое на второе и получите среднее арифметическое.

    Всего записей: 460 | Зарегистр. 27-06-2005 | Отправлено: 14:09 24-11-2016 | Исправлено: Dronton2, 14:09 24-11-2016
    LadyOfWood

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    4Eragon4
    А так и не понял в чем конткретно проблема (не задача, не путай)? А пока это выглдяит как сделайте за меня))

    Всего записей: 620 | Зарегистр. 16-09-2003 | Отправлено: 00:55 25-11-2016
    nowzorro



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Есть коллекция исходников стандартной библиотеки, которые идут вместе с Delphi. Коллекция для разных версий Delphi. Можно исследовать для обучения, сравнивать разные версии, либо проиндексировав - искать по коду. Для разработчиков может быть интересно. Внутри папки _md5_ находиться полный список файлов и их MD5 хеши. Некоторые версии также содержат исходники стандартной библиотеки C++ Builder, и Samples/Demos. Вместе коллекцию можно развить.
     
    Список версий на текущий момент:
    Delphi 3
    Delphi 4
    Delphi 7
    Turbo Delphi
    Delphi 2010
    RadStudio 10.1 Berlin
    RadStudio 10.2 Berlin
     
    Это кому-то интересно? Куда залить? Например на rutracker.org или nnm-club.me, только в какой раздел?

    Всего записей: 135 | Зарегистр. 22-07-2012 | Отправлено: 12:25 29-11-2016
    edruzenko



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    nowzorro
    на рутрекере архивы запрещены
    то есть будет очень много файлов
     
    Могу добавить XE2

    Всего записей: 75 | Зарегистр. 26-12-2005 | Отправлено: 21:07 29-11-2016
    nowzorro



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Залил мета-данные (хеши, ссылки) об исходниках которые есть в пакете Delphi Sources Info http://rgho.st/6y8YR8drr
    Описание #:
     
     
    edruzenko
    Давайте XE2

    Всего записей: 135 | Зарегистр. 22-07-2012 | Отправлено: 11:53 30-11-2016 | Исправлено: nowzorro, 11:53 30-11-2016
    XPerformer



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    на  rghost неразумно такие вещи заливать - срок хранения ограничен

    Всего записей: 2536 | Зарегистр. 20-06-2011 | Отправлено: 12:29 30-11-2016 | Исправлено: XPerformer, 12:30 30-11-2016
    edruzenko



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    nowzorro
    http://rgho.st/6WB8RvTZt

    Всего записей: 75 | Зарегистр. 26-12-2005 | Отправлено: 12:31 30-11-2016
    XPerformer



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    nowzorro
    а как может помочь в индексации CodeIDX - он же для C#?
    есть способ подключить паскаль?

    Всего записей: 2536 | Зарегистр. 20-06-2011 | Отправлено: 12:39 30-11-2016
    nowzorro



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    XPerformer
    Он написан на C#, а индексирует любой код.
     
     
    Добавлено:
    Оформил пакет исходных кодов заново, одним файлом 200Мб это не так уж и много, обновления тут https://nowzorro.blogspot.com/2016/11/all-delphi-rtl-sources.html мне так удобней, если что пишите письма.

    Всего записей: 135 | Зарегистр. 22-07-2012 | Отправлено: 13:06 30-11-2016
    Grande



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Добрый вечер    
    Я работаю в Delphi 7, а тут попался исходник с новой для меня переменной - "class var":

    Код:
     
    type
      TBaseInterfacedObjectDebug = class(TInterfacedObject)
      private class var
        FCountersFindCounter: IInternalPerformanceCounter;
        FCounters: IInternalPerformanceCounterListForDebug;
    ...
     

    Как это впихнуть в Delphi 7?
    Спасибо.

    Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 16:21 01-12-2016 | Исправлено: Grande, 16:45 01-12-2016
    Dronton2

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    class var - Статическая переменная.
    Как я понял - в Delphi 7 уже должна быть: http://edn.embarcadero.com/article/34324
     
    Для старых версий дельфи - можно эмулировать через "property":

    Код:
    unit MyUnit;
     
    interface
    ...
    type
      TMyClass = class(TMyParentClass)
      private
        procedure SetStaticField(const Value: Integer);
        function GetStaticField: Integer;
      public
        property StaticField : Integer read GetStaticField write SetStaticField;
      end;
    ...
    implementation
     
    var
     fStaticField : Integer;  
     
    function TMyClass.GetStaticField: Integer;
    begin
      Result := FStaticField;
    end;
     
    procedure TMyClass.SetStaticField(const Value: Integer);
    begin
      FStaticField := Value;
    end;

    Всего записей: 460 | Зарегистр. 27-06-2005 | Отправлено: 17:11 01-12-2016 | Исправлено: Dronton2, 17:17 01-12-2016
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Активные темы » Вопросы по Delphi (до версии 2009) - часть 6


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru