|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как получить результат функции
Добрый Вечер!
Код:
type TTransInfo = packed record Size : Word; //Size of TTransInfo - заполнить перед вызовом Kind : Word; //0-оплата 1-скидка 2-бонус 3-потраты гостя Summa : Comp; {сумма в копейках; для Transaction() положительное число - обычное действие; отрицательное число - возврат для GetCardOpers() и GetRkTrans() - наоборот } //информация о чеке - необязательная Office : Word; //код ресторана LogDate : Longint; //дата чека (0 -> 30/12/1899) UnitNum : Byte; //номер кассы CheckNo : Longint; //номер чека end; Type {процедура обратного вызова для перечисления операций по карте} TEnumCardOpers = Procedure( When: TDateTime; const Info: TTransInfo ); stdcall; {перечисления операций по карте, результаты возвращаются через процедуру Proc} Function GetCardOpers( Card: Integer; DateFirst, DateLast: TDateTime; Proc: TEnumCardOpers ): BOOL; stdcall; export; procedure TForm1.Button6Click(Sender: TObject); var CardOpers: TEnumCardOpers; XInfo: TTransInfo; begin XInfo.Size:=SizeOf(TCardParams); GetCardOpers(9068,StrToDate('20.10.2010'),StrToDate('20.10.2010'),CardOpers); //Здесь ошибка CardOpers(StrToDate('20.10.2010'),XInfo); ShowMessage(GetErrorText); ShowMessage(IntToStr(XInfo.CheckNo)); end; Подскажите как получить результат функции GetCardOpers Последний раз редактировалось Admin, 20.10.2010 в 19:01. |