Из Delphi 7 в проекте используется в одном модуле интерфейс IStrings
переделываю под lazaraus.
IObjectCollection = interface(IStrings)
['{D7A6697B-CB41-4FA2-8B59-EB0E9E7B5534}']
procedure Load(Medium: OleVariant; Tymed: TTymed); safecall;
procedure Save(Medium: OleVariant ...
Найдено 2 результата
- 28.03.2016 12:00:39
- Форум: Общее
- Тема: где взять istrings интерфейс в Lazarus
- Ответы: 0
- Просмотры: 6172
- 24.07.2015 11:59:20
- Форум: RxLib
- Тема: rxdbgrid вопрос по диалогу ShowFindDialog
- Ответы: 2
- Просмотры: 9462
rxdbgrid вопрос по диалогу ShowFindDialog
1. Как отловить неправильные данные в диалоге. Если field дата или другое не строковое поле?
2. Как в списке find on field некоторые поля для поиска не указывать?
procedure TFormData.BitBtnSearchClick(Sender: TObject);
begin
try
RxDbGrid1.ShowFindDialog;
Except
on EVariantError ...
2. Как в списке find on field некоторые поля для поиска не указывать?
procedure TFormData.BitBtnSearchClick(Sender: TObject);
begin
try
RxDbGrid1.ShowFindDialog;
Except
on EVariantError ...