|
|
Другие темы раздела | |
Delphi Построчное чтение из файла, ошибка: file not open
https://www.cyberforum.ru/ delphi-beginners/ thread2047195.html добрый день, помогите пофиксить ошибку. Мне нужно построчно считывать файл, ошибка на строке while not EOF(f) do говорит что file not open, не понимаю что ему не нравиться. unit Unit1; {$mode objfpc}{$H+} interface uses |
Как узнать номер строки в ListBox? Delphi У меня есть на форме несколько ListBox и я хочу чтобы при удалении строчки из одного ListBox, строчки под этим же номером удалялись и из других ListBox. |
Delphi Инклуды от Scintilla
https://www.cyberforum.ru/ delphi-beginners/ thread2047093.html Есть текстовый редактор на основе Scintilla. Не могу найти библиотеку или компонент или инклуд, как его правильно. В проекте есть SciLexer.dll. А при открытии ругается: Class TScintilla not found. Добавлено через 25 минут Вот нашел, а где скачать не понятно. |
Delphi Символ $ перед единицами и нулями
https://www.cyberforum.ru/ delphi-beginners/ thread2047091.html Что он означает? В листинге это $00010101. Он равен 65793 если перевести в Integer. P.S. Код работать не будет т. к. вес пикселя в Bitmap 3 байта а не 4, свободная ячейка заполняется следующим пикселем, и увеличение указателя на 4 байт бессмысленно. Взято отсюда http://guildalfa.ru/alsha/node/14 procedure Grayscale1(pBuf: pInteger; Count: integer); var Color: integer; begin; repeat; ... |
BlockWrite и BlockRead Delphi http://www.delphibasics.ru/BlockWrite.php var myFile : File; byteArray : array of byte; oneByte : byte; i, count : Integer; begin // Попытка открыть файл Test.byt для записи AssignFile(myFile, 'Test.byt'); |
Delphi VCL стиль
https://www.cyberforum.ru/ delphi-beginners/ thread2047023.html Здравствуйте, господа. Давеча (если не изменяет память) в XE3 был VCL стиль, как на скриншоте. Сейчас юзаю 10 версию Seatle и там такого стиля нет. Не могули бы вы у себя поискать и скинуть мне его? ;) Ну или где мне его найти, кроме как установкой XE? |
Delphi RegReplaceKey из приложения сервиса (от Locsl system)
https://www.cyberforum.ru/ delphi-beginners/ thread2046917.html Доброго времени. Нижеприведенный код работает при запуске приложения от имени администратора, а также из приложения, запущенного через планировщик от имени пользователя "система". Если же ту же программу запустить из сервиса, работающего под учеткой "Local system", то Reg.ReplaceKey не отрабатывает, возвращая false. Если заменить на API-шную RegReplaceKey, то возвращает 5 (отказано в... |
Delphi LMD-Tools NG Connection кастомная авторизация Как можно реализовать кастомный интерфейс авторизации? Или хотя бы связать авторизационный браузер с браузером на форме? В описании есть вот это Custom Authentication User Interface NG-ConnectionPack provides TAuthUI abstract base class for those who want to implement his own customized authentication user interface. This is an advanced task, and NG-ConnectionPack source code should be... |
Delphi Потоковое шифрование
https://www.cyberforum.ru/ delphi-beginners/ thread2046877.html Доброго времени суток, подскажите пожалуйста полный алгоритм превращения текста в шифротекст при помощи сдвиговых регистров с линейной обратной связью LFSR. Суть в том, что сам алгоритм генерации ключей я примерно понял, но как именно применить ключи не могу придумать, мне кажется там может быть несколько вариантов. И еще одно пояснение_)) что-то вроде 1)берем текст 2)переводим его в двоичный... |
Delphi Окно при открытии (Delphi 2010)
https://www.cyberforum.ru/ delphi-beginners/ thread2046781.html При открытии программы вылезает такое: Что ему надо? |
Вертикальная ориентация текста Delphi Добрый день Уважаемые форумчане! Прошу Вашей помощи для доработки кода, представленного ниже: procedure TForm4.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var LFont: TLogFont; hOldFont, hNewFont: HFont; begin if (ACol>0) and (ARow=0) then |
Delphi Блок схема для базы данных
https://www.cyberforum.ru/ delphi-beginners/ thread2046623.html Здравствуйте, у меня база данных нужно сделать к ней блок схему,но я не знаю как правильно составить и у меня нет времени для неё, если понадобится скину больше информации. Спасибо! unit Unit1; interface uses |
15 / 15 / 14
Регистрация: 19.08.2012
Сообщений: 105
|
||||||
03.10.2017, 06:58 | 0 | |||||
Узнать число определённого дня из номера недели года - Delphi - Ответ 1079844003.10.2017, 06:58. Показов 1156. Ответов 2
Метки (Все метки)
Сообщение было отмечено kristall000 как решение
Решение
Вернуться к обсуждению: Узнать число определённого дня из номера недели года Delphi
0
|
03.10.2017, 06:58 | |
Готовые ответы и решения:
2
Определить номер дня недели для заданного номера дня года Определить номер дня недели для заданного номера дня года Задача на определение номера дня недели n-го дня года Определите даты определенного дня недели заданного месяца и года |
03.10.2017, 06:58 | |
03.10.2017, 06:58 | |
Помогаю со студенческими работами здесь
0
Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, Найти номер дня недели К-го дня года, если в этом году 1 января было днем недели с номером N 1 января не високосного года-понедельник. Вводится число и месяц этого года. Вывести день недели этого дня Вычислить месяц и число на основе порядкового номера дня и года |