Здравствуйте. Помогите пожалуйста! Я запутался и не могу ничего придумать. Есть программа, считывает данные с весового терминала. Алгоритм взвешивания автотранспорта хаотичный, может проехать сначала порожний, потом груженный и наоборот. На форме имеется 2 кнопки "Груженный" "Порожний". Один из важных факторов ввода данных, это бортовой номер автосамосвала. При вводе номера в Edit (Например 11) и нажатии одной из кнопок (Например "Порожний"), записываются данные в БД, поле TARA... . Далее, ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83882

Доброго дня жители королевства. Возникла необходимость написать программу для вытаскивания данных с контроллера Mitsubishi FX5 в свою программу по протоколу SLMP. На компьютере я запустил программу Hercules для иммитации протокола. Hercules связывается с контролером,я передаю в контроллер пакет "50 00 00 FF FF 03 00 0C 00 10 00 01 04 00 00 C8 00 00 A8 01 00" и получаю ответ тоже в виде 16 ричных чисел. Теперь это надо сделать в моей программе. Для этой цели установил INDY, использовал ком ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83881

Доброго времени суток, Уважаемые жители Королевства! Имеем Delphi 10.3 Version 26.0.32429.4364 и функцию Trunc При передаче в функцию сложновычисляемого значения наблюдается странно поведение. Пример тестового App: [Code] type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; TObj = class class function Discrete: Currency; end; TOrder = record Vol: Currency; ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83880

Господа, возникла проблема с Firebird. Есть вот такой запрос DELETE FROM T1 WHERE T1.ID1 IN (SELECT T2.ID FROM T2 WHERE T2.ID1 = :param1) Индексы по T1.ID1 и T2.ID1 имеются, T2.ID – первичный ключ. Кажется (мне, по крайней мере) естественным, что нужно выбрать все записи из TD, используя индекс по T2.ID1, а удалять записи из T1, используя индекс по T1.ID1. Но Firebird поступил странно: по T2 он использует первичный ключ, а с T1 вообще работает по натуралу, что приводит к жутким тормозам. К ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83879

Добрый день Уважаемые жители королевства. Возникла задача сделать масштабирование графика выводимого на DBChart. Масштабирование необходимо выполнять колесиком мыши. Среда Delphi 5. Но вот не задача(. События OnMouseWheel,OnMouseWheelDown,OnMouseWheelUp на данном компоненте не возникают. Положил на форму компонент TChart и TdbChart и три лэйбла и прописал [Code] procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Bool ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83878

Добрый день. Есть вопрос по компонентам DevExpress. Работаю с компонентом cxGrid с базой данных Oracle. Есть поле типа TDateTime. Выбираю построитель фильтра по Ф7. Хочу сделать фильтр по Between. Мне предоставляется два поля для ввода значений (DataTimePicker). И вот сам вопрос. Могу ли я программно для одного из полей проставлять по умолчанию значение времени? Если можно, то хотелось бы пример кода или хотя бы где искать (куда копать). Заранее благодарен за конструктивную помощь ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83875

Решил поставить на компьютер современную Delphi 11. При этом уже был установлен Delphi 7 и приложения с БД Access работали. Приложение долго устанавливалось и не дожидаясь конца установки я отменил установку. После этого перестали работать с БД Access приложения, написанные пр помощи Delphi 7. Видимо, Delphi 11 испортил драйвер БД Access. Что делать? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83874

Имеется денситометр Brumagic 30-летней давности, который свои измерения передает по протоколу RS-232 (300 бод, 8 разрядов без бита чётности, 1 стоп бит). Судя по описанию, он шлёт текстовую строка вида "Фильтр (Символ), пробел, цифра, точка, цифра, цифра, пробел". К нему в давние годы была написана программа под DOS, которая в принципе ещё работает. Но есть проблемы её использования на современных компьютерах, в т.ч. из-за жесткой привязки к COM1. Я настроил в Delphi 6 компонент CommPortDriv ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83873

Добрый день, Уважаемые жители королевства. Подскажите, пожалуйста, как правильно записать строку в поток TFileStream и, соответственно, прочитать в Delphi 11 Alexandria. Вроде, все просто. Записываем: [Code]procedure TForm1.Button1Click(Sender: TObject); var fs: TFileStream; S: String; d: Integer; begin S := 'Мой какой-то определенный текст, который может быть разной длины и все такое прочее'; fs := TFileStream.Create('c:\MyFile.dat', fmCreate or fmOpenWrite); d := Leng ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83872

Доброго времени суток! Помогите пожалуйста! Перестал нормально работать Delphi 10.3.2. После компиляции любого проекта (даже только что созданного пустого приложения Windows VCL Application) проект не запускается в среде Delphi, выдает ошибку "... datatype misalignment at ...". Причем вне среды приложение нормально запускается. Вывод - проблема в Delphi. Переустановка с полной чисткой реестра не помогает. Какие есть версии??? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83839

Добрый день! Помогите пожалуйста, уперся в стену, не обойти: 1. Выделяю память под структуру данных типа record, заполняю выделенный блок данными. 2. Указатель на данный блок памяти него вешаю в свойство Tag компонент формы. 3. Есть два типа записей. При обработке некого события, компонент по данному указателю должен получить данные. Проблема в том, что компонент не в курсе, запись какого типа лежит по указателю. Есть ли какой то способ методами RTTI получить информацию о типе записи, р ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83836

Уважаемые коллеги, могли бы вы что-либо подсказать по следующей теме? Допустим, объявляем пользовательское сообщение var WM_MY_MESSAGE:cardinal; Почему var? Потому что я инициализирую его так: initialization WM_MY_MESSAGE:=RegisterWindowMessage('WM_MY_MESSAGE'); После объявляю обработчик procedure MyHandler(var Message: TMessage); message WM_MY_MESSAGE, но требуется, чтобы WM_MY_MESSAGE было константой. Вопрос: можно ли воспользоваться вкусностями message методов ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83835

День добрый! Переду с разу к делу есть приложение и набор плагинов .dll (написанных на Delphi 7 и C++ QT). В плагинах на Delphi 7 используется DevExpres, пере компилировал Delphi 10.3. и тут возникла проблемам. constructor TTest_MainForm.Create(AOwner: TComponent); begin inherited; cxTabControl1 := TcxTabControl.Create(Self); // и тут возникает AV в Delphi 10.3 cxTabControl1.Parent := Panel1; cxTabControl1.Align := TAlign.alClient; end; Если отдельно написать прилож ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83834

Добрый день! Стоит задача написать обобщенный класс-помощник по работе со множествами. Задачи следующие: определение количества элементов множества, определение первого элемента множества, определение следующего в порядке перечисления элемента множества. Написал следующий код, но сомневаюсь в его рациональности. Уважаемые гуру, подскажите, как можно этот код написать красивее и рациональнее? [Code] unit HelpSet; interface uses System.SysUtils, System.TypInfo, Math; type / ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83833

Здравствуйте. Есть одномерный массив элементов некоторого типа. Для определенного типа элементов процедура перестановки соседних элементов может быть такой procedure RevCns(var c: TCns; i: Integer); var p: TCn; begin p:= c[i]; c[i]:= c[i+1]; c[i+1]:= p; end; Необходимо написать универсальную процедуру перестановки его соседних элементов для массива любого типа. Можно ли это сделать. Если можно, то как? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83832

Доброго времени всем. Для вызова в Synchronize потока метода с параментрами всегда использовал следующую конструкцию: Synchronize( procedure begin Proc(...) end); Но сегодня столкнулся с тем, что это не работает с var параметрами. Пока не удалось передать в Proc var-переменную никакими ухищрениями. Могут ли уважаемые кодеры что-то подсказать? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83830

Добрый день всем Вопрос довольно простой и сложный - относится классовым переменным по мотивам блока HALLVARD-а. Есть вот такой простой генерик-метод:

code:
Type
  A = record
  clas var f: Integer;
  end;
function data.ptr(): PInteger;
begin
  Result := @A.f;
end; 

code:
 

Delphi 10.2 всё замечательно работает в пределах exe Проблема в следующем: если этот модуль поместить в bpl, то A в bpl и A в exe-файле будут со ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83828

Добрый день, камрады, прошу помощи. Вопрос по сути ерундовый, но бывает ведь - и такое попадается ... Нужно решить задачу сортировки имен кучи файлов по критерию их соответствия заданному текстовому шаблону на основе регулярных выражений. В Дельфи имеется модуль Masks, в котором реализованы класс TMask и функция MatchesMask(const Filename, Mask: string): Boolean; Оба объекта работают без проблем, по ним вопросов нет. Но споткнулся на ерунде - нигде не могу найти вменяемого и полного оп ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83826

Всем доброго дня. Казалось бы, простой и древний вопрос по поводу раскраски DbGrid'а, для меня оказался не так прост. Он касается цветного, полосатого DbGrid, размеченного в соответствии с группами (т.е. "черезгрупно"). В БД есть таблица Nodes2(Node2_id, Node1_id, Name). В ней: Node2_id - первичный ключ, а Node1_id - вторичный ключ, указывающий на другую таблицу Nodes1(Node1_id, Name). Ориентировочно, строк в таблице около 100, строк в группе 0-10. Для примера, данные таблицы, для ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83823

Доброе время, суток! Вопрос как работать с большими объемами памяти? На пример мне нужно загнать в оперативную память — примерно 2 — 3 Гб (моих ресурсов хватает). Так что бы не возникала ошибка не хватки памяти. Сейчас создаю объект TMemoryStream, и все равно возникает ошибка ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83820