Dozent

Можно закрыть RETURNING Unified Support (FireDAC)

Использую 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

Здравствуйте, 

хочу реализовать работу с БД через интерфейс, могут ли возникнуть какие-то проблемы в приложении при переходе под андройд?

Доброй ночи, проблему решил! Зашёл в "Устройства воспроизведения" и удалил не используемые! 

Первым был микрофон который не использовался, вторым тот что работал, возможно я ошибаюсь, но похоже получается что берётся первый из списка микрофон, а не тот что по умолчанию!

Но проблема решена всё пишет!

Добрый день, возможно пишу не в ту ветку форума, если так извините.

Подскажите плз как записать голос с микрофона?

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;