delphi- все статьи тега ➜ страница 2
DELPHI: Master-Detail с использованием ClientDataSet и CalcFields
У меня есть основной / подробный ClientDataSet следующим образом (они создаются/заполняются во время выполнения и заполняются данными, возвращенными из вызова API, без подключения к базе данных): Services: ID Name BasePrice etc. AddOns: Selected ID ServiceID Name Quantity UnitCost TotalCost etc. Я отображаю сервисы как выпадающее поле, которое затем заполняет сетку доступными надстройками для этого сервиса. Поле "TotalCost" - это вычисляемое поле, отображаемое в таб ...
Delphi: запись в реестр не работает на FormDestroy
procedure TMainForm.FormDestroy(Sender: TObject); var Registry: TRegistry; begin Registry := TRegistry.Create; try Registry.RootKey := HKEY_CURRENT_USER; if Registry.OpenKey('...', True) then begin Registry.WriteInteger('MainLeft', Self.Left); Registry.CloseKey; end; finally Registry.Free; end; end; Подобный код работает для FormCreate , но не тогда, когда приложение закрыто (т. е. ничего не сохраняется в реестре). Чего мне не хватает? The '...- расши ...
Как быстро читать и писать в listview на delphi?
В delphi есть listview с несколькими полями. Поток проверяет и добавляет элементы в listview. Если имеется такой же заголовок, то в подзаголовок этого заголовка будет добавлено целое число. Когда количество элементов меньше 2000, производительность в порядке. Когда проверка и добавление элементов и количество элементов больше, чем около 2000, производительность низкая. Когда количество элементов превышает 20 000, производительность можно описать как чрезвычайно медленную. Есть ли способ быстрого ...
Как лучше всего создать панель отображения HMI (пользовательский интерфейс) в Delphi
Мне нужно улучшить экран в нашем приложении, который представляет собой дисплей HMI ( Human Machine Interface), встроенный в наш Delphi-код. Этот экран предоставляет нашему клиенту возможность выполнить ряд действий (выполнить тест, отчет о продукте и т. д.), а также предоставить и просмотреть Ключевые значения именованных данных. Эта настройка необходима, потому что наше приложение управляет машинами, которые могут управляться различными уровнями квалификации от простого оператора (может не гов ...
Как выполнить некоторый код, когда пользователь переключается на вложенную таблицу вкладок?
У меня есть TPageCOntrol, который имеет 3 TTabSheet и некоторые из них имеют дополнительные TPageCOntrol, которые имеют TTabSheet Вроде Page Control 1 TabSheet 1 TabSheet 2 Page Control 2 TabSheet 2a TabSheet 2b TabSheet 3 Теперь, когда одна из этих таблиц становится видимой для пользователя, я хочу выполнить некоторый код,но я не уверен, какое событие зацепить. Например, если пользователь смотрит на TabSheet 1 и переключается на TabSheet 2, где TabSheet 2a показывае ...
Как читать содержимое файла в строку в delphi XE
Я переношу свое приложение с delphi 2007 на delphi xe, но у меня возникли проблемы с процедурой, которая считывает файл (ascii) и сохраняет содержимое в строке Это код, который хорошо работает в delphi 2007 function LoadFileToStr(const FileName: TFileName): String; var FileStream : TFileStream; begin FileStream:= TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); try if FileStream.Size>0 then begin SetLength(Result, FileStream.Size); FileStream.Rea ...
Установите разработанный Tframe на некоторую панель Tpanel
Я полностью новичок в C++ Builder. Никогда не пробовал работать с VCL фреймами. Итак, у меня есть tform с Tpanel и двумя фреймами. Как отобразить разработанные фреймы на панели формы? Устал искать похожие примеры. ...
Что нужно тестировать в 64-битном Delphi
Delphi с 64-битной компиляцией теперь находится в бета-версии , но только приглашенные бета-тестеры получат эту версию. Что должны тестировать бета-тестеры? ...
Delphi: как добавить новую категорию В ActionManager?
Я бы хотел, чтобы мои действия были организованы по категориям, но в поле "категории" я не могу добавить новую категорию. Когда я нажимаю добавить стандартное действие, оно имеет различные категории, такие как "редактировать", "интернет",... . Возможно ли вообще иметь пользовательские категории, или я застрял с категориями по умолчанию? ...
TListview неправильно окрашивается при использовании события OnDrawItem
Я использую событие OnDrawItem в компоненте TlistView для рисования содержимого с использованием пользовательских цветов, но при прокрутке listview появляются некоторые артефакты. Это используемый код. procedure TForm35.FormCreate(Sender: TObject); var i, j : integer; Item : TListItem; s : string; begin for i:= 0 to 99 do begin Item:=ListView1.Items.Add; for j:= 0 to ListView1.Columns.Count-1 do begin s:= Format('Row %d Column %d',[i+1, j+1]); if j=0 then ...
Парсинг файлов проектов и пакетов с помощью Gold Parser --нужна помощь с 'IdList'
Я балуюсь с Object Pascal Engine (Роб ван ден Бринк), и кажется (за исключением нескольких незначительных и легко исправимых ошибок), что он работает для файлов Delphi unit. Однако у него есть проблемы с разбором проекта (.ДНР) и пакет (.dpk) файлы; и проблема в основном сводится к различиям между материалом, который "использует" может иметь в блоках и проектах (а также то, что "содержит" предложение может иметь в пакетах). Позвольте мне дать простой примеры: В единице (.pas) file, предложе ...
Коллекция dll файлы в другую указанную папку?
Во - первых, пожалуйста, простите меня за незнание правильной терминологии, я уверен, что есть очень распространенное техническое название для этого, которое я мог бы просто поискать в Google для справки-но я не могу найти помощь, если я не знаю термин для начала. Я строю модульную систему в Delphi 7. Есть несколько приложений, и куча dll файлы. Все приложения используют эти dll файлы, а также некоторые dll файлы использовать другие dll файлы. Библиотеки DLL являются в настоящее время сохраняет ...
Утечка памяти в Delphi XE3 при возникновении ошибки при вставке в БД sqlite
... Query: TSQLQuery ... Query.SQL.Clear; Query.SQL.Add('INSERT INTO pumps'#13#10 + 'VALUES (NULL, :title, :power)'); Query.ParamByName('title').AsString:= title; Query.ParamByName('power').AsFloat:= power; try Query.ExecSQL; except on E: Exception do begin ShowMessage(E.Message); end; end; Запрос связан с SQLConnection с драйвером=Sqlite. Все операции работают, но когда я пытаюсь вставить неуникальное зна ...
TSQLQuery.FieldByName ().AsString - > TStringStream Повреждает Данные
Я использую Delphi XE2. Мой код извлекает данные из базы данных SQL-Server 2008 R2. Возвращаемые данные представляют собой поле nvarchar(max) с 1 055 227 байтами данных. Я использую следующий код для сохранения данных поля в файл: procedure WriteFieldToFile(FieldName: string; Query: TSQLQuery); var ss: TStringStream; begin ss := TStringStream.Create; try ss.WriteString(Query.FieldByName(FieldName).AsString); ss.Position := 0; ss.SaveToFile('C:Test.txt'); finally Fre ...
Indy TCPServer не получает все пакеты от TCPClient при слишком частой отправке пакетов
У меня проблема с подключением Indy TCP. Я использую Turbo Delphi 2006 с Indy 10. Я хочу отправить несколько пакетов TCP с данным idTCPClient idTCPServer. Это прекрасно работает, когда я хочу отправить только один пакет, или я вставляю команду sleep(100) между двумя вызовами функции. Но если я вызываю эту функцию слишком часто, она не вызывает onExecute сервера каждый раз. Мой код для отправки: procedure SendData(var data: TIdBytes) ; begin FormMain.IdTCPClient.Connect ; FormMain.IdTCPCl ...
Delphi несколько дочерних элементов MDI вызывает изменение состояния окна
Я ищу, чтобы предотвратить изменения WindowState дочернего MDI, происходящие при создании второго дочернего MDI... У меня есть приложение, которое я разрабатываю, написанное на Delphi. Благодаря небольшой магии Delphi / Windows, приложение имеет несколько родителей MDI и несколько детей MDI. Я могу создать форму (дочерний элемент A1) и развернуть ее в родителе MDI (родитель A). Я могу создать вторую форму (дочернюю B1) и развернуть ее в пределах второго родителя MDI (родителя B). Обе формы буд ...
Анимированные GIF и TDrawgrid в Delphi 2007
Я могу нарисовать изображение, используя что-то вроде кода ниже: ACanvas.Draw(ARect.Left+16, ARect.Top+4, imgGIF.Picture.Graphic ) Теперь gif для этого компонента imgGIF загружается через GIF := TGifImage.Create; GIF.LoadFromFile('pathtogifprocessing.gif'); GIF.Animate := True; imgGIF.Picture.Graphic.Assign(GIF); Я устанавливаю GIFImageDefaultAnimate := True; GIFImageDefaultTransparent := True; Среда Delphi 2007, использующая TGifImage, который поставляется с DVD Delphi 20 ...
Delphi: как программно настроить визуальное упорядочение компонентов с помощью align = alTop
У меня есть форма с несколькими панелями, каждая из которых имеет Align=alTop, поэтому они складываются красиво сверху формы. Однако я хочу динамически изменять порядок отображения этих панелей - то есть перемещать их вверх и вниз. Как лучше всего это сделать? ...
динамически создавать дерево всплывающих меню из таблицы sql server в Delphi
У меня есть такая таблица: id parent_id name 1 1 Root 2 1 Car 3 1 Plane 4 2 BMW 5 4 CLK Как я могу динамически создавать всплывающее меню со всеми подразделами в Delphi? Вот как это должно выглядеть: Изображение http://img217.imageshack.us/img217/5020/treees.jpg ...
запуск нескольких команд в cmd с Delphi
Я пытаюсь использовать cmd из Delphi для применения некоторых команд. Я использую следующий код ShellExecute(Application.handle, 'runas', 'cmd.exe', PChar('/c command to do '), nil, SW_show); Я хочу выполнить несколько команд в одном и том же исполнении, например /c command1 command2 command3 Я уже сделал файл bat для запуска некоторых команд. Но мне не нравится идея хранить летучую мышь в моем проекте. Могу ли я применить более одной команды за одно выполнение? Можно ли это сделать? ...