|
|
| Другие темы раздела | |
| Delphi Не работает модуль в процедуре Основной код программы unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Unit2, Unit3,Unit4,Unit5; type https://www.cyberforum.ru/ delphi-beginners/ thread2062096.html |
Delphi Подсчитать количество запусков процедуры Есть задача посчитать количество раз выполнения процедуры. Создаю ключ в реестре reg_dword куда пишу количество. Если запускать процедуру из программы несколько раз подряд - значения суммируются, все хорошо. Но если программу закрыть, потом вновь открыть и выполнить процедуру - значение устанавливается на 1. Не могу понять где ошибся. reg := tregistry.Create; reg.RootKey :=... |
| Delphi Определить вызов функции из dll, написанной на Си Добрый день! Есть dll-ка, написанная на СИ. В дллке есть функция: err_t beltHash(octet hash, const void* src, size_t count) { void* state; // проверить входные данные if (!memIsValid(src, count) || !memIsValid(hash, 32)) return ERR_BAD_INPUT; // создать состояние https://www.cyberforum.ru/ delphi-beginners/ thread2062046.html |
Delphi Аналог StringGrid.DrawCell
https://www.cyberforum.ru/ delphi-beginners/ thread2061985.html в StringGrid.DrawCell есть: if (AROW>0) and (ACOL=1) then INP:=InvNumPriv(MainTable.Cells) else INP:=0; То красится только ACOL=1, если я уберу ACOL то красить вся AROW. мне это и нужно чтобы красился вся AROW if (AROW>0) then INP:=InvNumPriv(MainTable.Cells) else INP:=0; Проблема: Каждый клик, изменение длина строка или движение по таблицам, он красить каждый раз. при этом очень сильно... |
|
Delphi Почему линия не прорисовывается справа? Работаю в Delphi 7 . Создаю лейблы , прорисовываю линии между ними , но почему то с права от левого лейбла не до конца прорисовывается линия .unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type |
Delphi Странности буфера обмена Возникла задача бэкапить данные с буфера обмена, а потом возвращать как было. GetClipboardData выдаёт хэндл на кусок глобальной памяти, но только если формат буфера не CF_BITMAP. Если он CF_BITMAP то GetClipboardData возвращает HBITMAP, причём если этот HBITMAP сохранить, поменять буфер обмена, а потом вернуть как было, то винда этот Bitmap уничтожает. То же самое если создать TBitmap и... https://www.cyberforum.ru/ delphi-beginners/ thread2061758.html |
|
Delphi Найти третье положительное число в последовательности и подсчитать количество цифр в нем
https://www.cyberforum.ru/ delphi-beginners/ thread2061731.html Осуществить ввод последовательности целых чисел определить третье положительное число и подсчитать количество цифр в нем.Последовательность потенциально не ограниченна окончанием последовательности служит третье положительно число. |
Delphi Вычислить значение функции F(x, y) для случайных значений аргументов x и y Вычислить значение функции F(x, y) для значений аргументов x и y,выданных случайным образом в диапазоне : F(x,y)=\begin{cases} & \text{} (x^2+ln|y|)/(sqrt(x)+10)),(x<-5) \\ & \text{ } y+cos^3(x),(-5<=x<=3) \\ & \text{ } |ln|y|-ln(x)^2| /pi, (x > 3)\end{cases} |
|
Delphi Найти произведение нечетных делителей числа 54, кратных 3
https://www.cyberforum.ru/ delphi-beginners/ thread2061671.html Найти произведение нечетных делителей числа 54, кратных 3 |
Delphi Найти все трехзначные числа из заданного промежутка по условию Найти все трехзначные числа из промежутка (100; 950], такие, что при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, а при увеличении на 3 делятся на 4. https://www.cyberforum.ru/ delphi-beginners/ thread2061670.html |
|
Delphi Найти произведение цифр числа, меньших 7 Дано натуральное число(более четырех знаков): –найти произведение цифр числа, меньших 7; –верно ли, что в числе нет цифры А(А вводить с клавиатуры)? Написать программу |
Delphi Найти сумму цифр числа, кратных 3
https://www.cyberforum.ru/ delphi-beginners/ thread2061663.html Дано натуральное число(более четырех знаков): –найти сумму цифр числа, кратных 3; –верно ли, что число содержит четные цифры? написать программу |
|
15 / 15 / 14
Регистрация: 19.08.2012
Сообщений: 105
|
|
| 04.10.2017, 14:47 [ТС] | 0 |
Непонятное поведение программы с потоками - Delphi - Ответ 1110781704.10.2017, 14:47. Показов 1984. Ответов 17
Метки (Все метки)
Ответ
И почему не срабатывает Try except end;?
Вернуться к обсуждению: Непонятное поведение программы с потоками Delphi
0
|
|
| 04.10.2017, 14:47 | |
|
Готовые ответы и решения:
17
Непонятное поведение программы Непонятное поведение процедуры MD5 непонятное поведение Непонятное поведение getera property |
| 04.10.2017, 14:47 | |
| 04.10.2017, 14:47 | |
|
Помогаю со студенческими работами здесь
0
Непонятное поведение TEdit Непонятное поведение программы
Непонятное поведение программы
Непонятное поведение программы! |
