Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
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 - Ответ 10798440

03.10.2017, 06:58. Показов 1156. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено kristall000 как решение

Решение

Delphi
1
2
3
4
Uses ..., DateUtils;
function EncodeDateWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): TDateTime;
 
EncodeDateWeek(Год, Номер недели в году, День недели);


Вернуться к обсуждению:
Узнать число определённого дня из номера недели года Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.10.2017, 06:58
Готовые ответы и решения:

Определить номер дня недели для заданного номера дня года
Дано целое число k (1<=k<=365). Присвоить целочисленной величине n значение 1, 2, ... , 6 или 0 в...

Определить номер дня недели для заданного номера дня года
а как это примерно будет на C++ ?

Задача на определение номера дня недели n-го дня года
Подскажите пожалуйста метод решения следующей задачи: Пусть n-целое число от 1 до 365, m-целое...

Определите даты определенного дня недели заданного месяца и года
Определите даты определенного дня недели заданного месяца и года.

2
03.10.2017, 06:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.10.2017, 06:58
Помогаю со студенческими работами здесь

Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года,
Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, …, 6 —...

Найти номер дня недели К-го дня года, если в этом году 1 января было днем недели с номером N
Дни недели пронумерованы следующим образом: 0 - воскресенье, 1 - понедельник, 2 - вторник, ..., 6 -...

1 января не високосного года-понедельник. Вводится число и месяц этого года. Вывести день недели этого дня
1 января не високосного года-понедельник. Вводится число и месяц этого года. Вывести день недели...

Вычислить месяц и число на основе порядкового номера дня и года
Здравствуйте. Подскажите, какой алгоритм использовать для решения следующей задачи: Вводятся с...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru