День добрый! Переду с разу к делу есть приложение и набор плагинов .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

Здравствуйте, моя проблема заключается в том чтобы прочитать файлы .DOC .DOCX в строку например string или Memo1 желательно без использования LibreOffice или Word. В данное время остановился на компоненте OpenOffice и даже не понимаю как из него строку считать в String [Code] var OpenOffice:TOpenOffice; begin OpenOffice := TOpenOffice.Create; if not OpenOffice.Connect then Exit; // OpenOffice.CreateDocument; if opendialog1.Execute then OpenOffice.OpenDocument('file:///'+opendia ...

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

Коллеги, может кто-либо сможет оценить ситуацию! Исходная информация: 1. В локальной сети на одном из серверов работает программа, которая в том числе непрерывно пишет информацию в бинарный файл фиксированного размера. 2. На каждом из узлов в сети может запускаться программа-клиент (количество одновременно работающих может превышать 100), которая читает информацию из того самого бинарного файла с «расшаренного» ресурса сервера Описание проблемы: 1. У «клиентов» никогда не было проблем с ...

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

Всем привет. В wisock все понятно, командами select и ioctlsocket определяю готов ли мой сокет отдать мне байты и сколько именно. А как это делать в firemonkey? вот тестовый код: var ipa: TIPAddress; srv,address: string; sock: TSocket; srv := 'www.yandex.ru'; sock := TSocket.Create(TSocketType.TCP); ipa := sock.LookupName(srv,false); if ipa.Addr.s_addr = 0 then exit; address := ipa.Address; sock.Connect('', address, '', 80); ок, подключился. Как узнать готовность сокета отдава ...

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

Всем привет. Опять вопрос по firemonkey. При нажатии на кнопку обработчик может секунды 2-4 поработать. Чтобы это выглядело прилично вывешиваю картинку или пищу предупреждение. А на андроидах это не работает? Memo1.Lines.Clear; ImageWA.Visible := True; Memo1.Lines.Append('please wait...'); // все это не обновляет форму пока не завершится выполнение обработчика Application.ProcessMessages; Application.HandleMessage; FormTEST.Invalidate; ImageWA.Repaint; простого способа нет? как ...

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

Добрый день уважаемому сообществу ! Помогите разобраться со следующей проблемой. На обработку поступает массив строк. Нужно определить кодировку строк - либо ANSI, либо Unicode. Работа идет в среде Embarcadero Delphi RAD Studio 10. Этот массив строк хранится в компоненте TStringList. Если строки вводятся из файла прямо в TStringList, то для этого случая имеется демонстрационный код, работающий на ура : [Code]procedure TForm2.Btn1Click(Sender: TObject); var ListStr ...

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

Delphi + ADO + MS SQL Как вывести в дельфи сообщения сервера? Например, что обработано столько-то строк, запрос выполнен успешно и т.п. ...

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

Всем привет. Скачал потестить delphiXE8. Создаю простое приложение: просто форма с кнопкой "Close". Нажимаешь на нее и форма закрывается. Как виндовое приложение - все нормально. Компилю как андроид приложение. Компилится без проблем, на мобилу устанавливается. Запускаешь его, а оно на 1 секунду появляется (без кнопки, кстати) как пустое окно с красным факелом, и сразу же сворачивается. Нажимаю на квадрат - да, вот оно свернутое. Нажимаю на него - снова секунду висит и сворачивается. ...

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

Многострочный текст в Компоненте TMStringGrid у меня не фиксируется. Как сделать, лучше пример, чтобы в ячейке были видны все строки? Сформировал таблицу, чтобы потом скопировать в Word, заполняю ячейку многострочным текстом. Всё ок. Но только выхожу с ячейки и текст выстраивается в одну строчку. Высоту ячейки формирую так: [Code] type TFormZatrat = class(TForm) MSGz: TMStringGrid; procedure TFormZatrat.MSGzKeyPress(Sender: TObject; var Key: Char); var S : string; hh :by ...

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

Как отобразить дерево файловой системы в компоненте VirtualTreeView? ...

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

Здравствуйте. В моем приложении есть ComboBox1 (стиль csDropDownList). Надо сделать так, чтобы пользователь не мог выбрать в ComboBox1 другую строку (отличную от текущей) с помощью мышки или клавиатуры. В принципе, худо-бедно подходит способ

code:
ComboBox1.Enabled:=false;

Но при этом меняется стиль комбобокса, текст становится бледным, а этого хочется избежать. Как это сделать? ...

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

Доброго времени суток Славные Жители Королевства! При выводе шрифтов в системе на платформе 64 бита с помощью "EnumFontFamiliesEx" выдает ошибку. Перепробовал кучу способов но ничего не помогает. Кто нибудь может помочь в чем дело!!! Ошибка: "First chance exception at &0000000000713034. Exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'. Process Progect1.exe" { На платформе 64-bit Platform "EnumFontFamiliesEx" выдает ошибку } { На платформе 3 ...

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

Не могу сам решить эту задачу. Есть текст, в котором надо выловить надстрочные и подстрочные символы. Как я понял, надо использовать EM_GETCHARFORMAT, но как, я не пойму. Я использую библиотеку JEDI. Добавил в uses помимо JvRichEdit еще и RichEdit, потому как без него возникает ошибка в объявлении переменной CF:TCharFormat2;. Пробую отслеживать dwMask и yOffset (да и другие варианты, которые нашел в примерах в интернете), но это не срабатывает... Помогите решить задачу или посоветуйте учебни ...

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