4 ревизия
Развитие имеет библиотека или ... нет?
Документация тут - http://w7site.ru/fpc/kkm
Не работает ссылочка!
Модератор: Модераторы
Документация тут - http://w7site.ru/fpc/kkm
alexs писал(а):Может он в блоке был?
alexs писал(а):Похожее поведение у аппарата в тот момент, когда он ожидает Z-Отчёта...
alexs писал(а):Можно поподробнее?
Function DeMask(AData: Ansistring): Ansistring;
Var
i: Integer;
B: Byte;
DLE_Flag: Boolean;
Begin
Result := '';
DLE_Flag := False;
For i := 1 To length(AData) Do
Begin
If DLE_FLag Then
DLE_Flag := False
Else
If AData[i] = sDLE Then
Begin
If i < length(AData) Then
If AData[i + 1] In [sDLE, sETX] Then
Begin
Result := Result + AData[i + 1];
DLE_Flag := True;
End;
End
Else
Result := Result + AData[i];
End;
End;
Вернуться в Разработки на нашем сайте
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2