estra

В FDQuery выполняется запрос SELECT ROWID, preport_svodod_kv.get_schiv_name(REESTR_CODE) SCHIV_NAME, preport_svodod_kv.get_reestr_name(REESTR_CODE) REESTR_NAME, preport_svodod_kv.get_razrez_name(RAZREZ_CODE) RAZREZ_NAME, preport_svodod_kv.get_user_name(USER_ID_OR) USER_NAME_OR, k.* from MBANK.KVIT_SVOD_OD2 k where WORK_DATE = to_date('02.09.2024', 'dd.mm.yyyy') and LENTA_ID = '401268*БЕЗРАЗ*2005327356' and (1 = 0 or (1 = 1 and FOND > 0) or (1 = 2 and FOND = 0)) and ('00' = '00' or '00' = preport_svodod_kv.get_schiv_code(REESTR_CODE)) order by REESTR_NAME, REESTR_CODE В результатирующем наборе поля SCHIV_NAME, REESTR_NAME, RAZREZ_NAME, USER_NAME_OR вычисляемые, но FireDac их видит как основные. Почему такое происходит и как это исправить? Проблема в том что потом делается FDQuery1.Edit FDQuery1.Post И нужно чтобы эти поля в update не попадали

разобрался FDQuery1.Text FDQuery1.Text

FDQuery1.SQL.Text := 'select !x from dual'; FDQuery1.Macros.Clear; with FDQuery1.Macros.Add do begin Name := 'X'; Value := 'DUMMY'; end; FDQuery1.Prepare; Как получить результат prepare (запрос вида 'select DUMMY from dual')?

Привет всем форумчанам! Нужна Ваша помощь. Есть пакет в ORACLE с глобальными переменными, типа: CREATE OR REPLACE PACKAGE GLOBALS IS BranchId NUMBER; -- END GLOBALS; Вопрос: как получить значение переменных из пакета?

Где можно посмотреть запись вебинара?

HuewTrackBar !!! В точку!!! P.S. Не вздумайте прочесть это по русски! P.P.S. Никого не хочу обидеть, просто очень тонко подмечено)))

Значит не под Windows проверяли, ибо у меня под винду все работает...

А я могу понять автора, хотя и с оговоркой. Вы правы, способ не кроссплатформенный, но мы и не знаем, под какую ОС пишет ТС. Если под Винду, то почему бы и нет. Если нужно кроссплатформенное решение, то GlobalConst.pas прекрасно подойдет, никто не спорит. Но, подобными вопросами полезно задаваться и решать их в познавательных и исследовательских целях, чтобы лучше узнать инструмент, который используешь в работе. ТС не знал такого способа, теперь узнает, прокачает свои скилы, разве ж это плохо))) Да и даже чисто с практической точки зрения, бывают задачи, которые просто невозможно решить, не прибегая к хакам. Так что знать о них нужно, но применять с умом и осторожностью, ибо они не панацея!!!

Можно, и что? Вопрос был "как?", решение дано, вроде никаких противоречий нет...

Существует (если нельзя, но очень хочется, то можно). Правда проверял его работоспособность в VCL, в FM проверьте сами. program Project2; uses Vcl.Forms, Unit1 in 'Unit1.pas' {Form1}; var MyVariableInt: Integer; MyVariableBool: Boolean; MyVariableStr: string; exports MyVariableInt, MyVariableBool, MyVariableStr; {$R *.res} begin MyVariableInt := 456; MyVariableBool := True; MyVariableStr := 'qwerty'#0; Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TForm1, Form1); Application.Run; end. unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i: ^Integer; begin i := GetProcAddress(HInstance, 'MyVariableInt'); if Assigned(i) then ShowMessage(IntToStr(i^)); i := GetProcAddress(HInstance, 'MyVariableBool'); if Assigned(i) then ShowMessage(BoolToStr(Boolean(i^))); i := GetProcAddress(HInstance, 'MyVariableStr'); if Assigned(i) then ShowMessage(PChar(i^)); end; end.

https://community.embarcadero.com/blogs/entry/rad-studio-3 http://edn.embarcadero.com/article/44774 - хотфиксы (как то совсем хиловато) https://community.embarcadero.com/blogs/entry/mobile-support-in-delphi-and-c-builder-professional-edition https://community.embarcadero.com/blogs/entry/new-in-c-builder-10-2-3-a-new-win32-compiler-front-end-bcc32x https://community.embarcadero.com/blogs/entry/fix-for-google-play-services-dex-error-in-10-2-3 https://community.embarcadero.com/blogs/entry/rad-server-support-for-web-files-in-rad-studio-10-2-3

[ОФФТОП] Интересно, а как метод ExtractAll должен поступать в случае, если в нескольких поддиректориях лежат файлы с одинаковыми именами? (Выберите верный вариант) В тихую перезаписывать (в конечном итоге оставляя одну версию файла, да еще непонятно какую) Останавливаться (возможно с выбросом ошибки или исключения) Долбать пользователя запросами (дергая какое-нибудь событие) P.S. выбрав вариант, предложите разработчикам "допилить" этот (метод | класс | компонент).

Похоже я не внятно объяснил. Приложение небольшое, написано буквально за день, но в процессе написания тестировалось только на Android 5. После чего полученный APK я попытался поставить на Android 4.2.2, и приложение не заработало. При чем тут система контроля версий? Код рабочий и отлаженный, он не перестал работать на тестовом устройстве, но не стал запускаться на другом (не использовавшемся для тестов в процессе разработки). При переносе в новый проект я использовал исключительно copy/paste, ничего от себя не добавляя. И со второго раза приложение пошло. Так что в данном случае система контроля версий тут ни при чем, и ни чем бы не помогла.

Не скажу про XE8, но вот на Seattle буквально на днях столкнулся с похожей ситуацией. Написал приложение, которое тестировал на Android 5, после чего его нужно было установить на другой аппарат (Android 4.2.2), так оно вылетало при запуске… Всю голову поломал, думал уже на яве быстро переделать. А потом просто взял, и написал приложение с нуля (создал новый проект и аккуратно все туда перенес), и о чудо, оно заработало! Что за ерунда, я так и не понял, да и нет желания разбираться. Возможно у вас аналогичный случай.

На месте.