Dozent
-
Постов
115 -
Зарегистрирован
-
Посещение
-
Победитель дней
2
Весь контент Dozent
-
Использую TFDQuery
-
День добрый, подскажите как получить выходной параметр из хранимки (FireBird 2.5) INSERT INTO drugs (VNAME, VNAMELAT, RMEASSYS, VDRUGSINFO, VMAXVALUE) VALUES (:din_name, :din_namelat, :din_measure, :din_descript, :din_maxvalue) returning ID INTO :dout_id; Если в IB компанентах это делалось так Current.ByName('dout_id').AsInteger; Нашёл вот это, но мне не совсем подходит... http://docwiki.embarcadero.com/Libraries/XE6/en/FireDAC.Comp.DataSet.TFDDataSet.OnUpdateRecord Ещё есть какие-то варианты?
-
А проблем с INI файлами в андройде или iOS и т.п. Не возникает? Тестировали?
-
Добрый день, переполненный эмоциями всё таки решил написать Что за непонятные глюки с этим компонентом?) То название возьмётся от пред идущего, то поменяешь один всё съехало, начинаешь выравнивать съезжает другое на -/+1 позицию.
-
ок, спасибо)
-
ну интерфейс с счётчиком ссылок который, который как абстрактный класс! Можно ли его использовать в FMX?
-
я по другому не знаю как объяснить
-
IMyInterface = interface
-
Здравствуйте, хочу реализовать работу с БД через интерфейс, могут ли возникнуть какие-то проблемы в приложении при переходе под андройд?
-
Доброй ночи, проблему решил! Зашёл в "Устройства воспроизведения" и удалил не используемые! Первым был микрофон который не использовался, вторым тот что работал, возможно я ошибаюсь, но похоже получается что берётся первый из списка микрофон, а не тот что по умолчанию! Но проблема решена всё пишет!
- 1 ответ
-
- 2
-
-
Добрый день, возможно пишу не в ту ветку форума, если так извините. Подскажите плз как записать голос с микрофона? http://docwiki.embarcadero.com/RADStudio/XE6/en/Audio_Recording По данному примеру, файл создаётся, но ни чего не слышно...
-
Добрый день, нашёл на форуме тему про жесты, но она уже закрыта. Пишу такой код, хочу добиться на планшете появление скрытой панели. Проблема в том, что на компе всё работает, а вот планшет не хочет реагировать, что подскажите? procedure TMainForm.TabControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin OldCursorY := Y; end; procedure TMainForm.TabControlMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin NewCursorY := Y; if ABS(NewCursorY - OldCursorY) >= 50 then ShowHidePanel; end;