4 ревизия
 
 Развитие имеет библиотека или ... нет?
Документация тут - http://w7site.ru/fpc/kkm
 
 Не работает ссылочка!
Модератор: Модераторы
 
 Документация тут - http://w7site.ru/fpc/kkm
 
 

alexs писал(а):Может он в блоке был?




 . надо к тебе в гости приехать, чаем напоить , тем бача это сейчас 200 км
 . надо к тебе в гости приехать, чаем напоить , тем бача это сейчас 200 км


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;

Вернуться в Разработки на нашем сайте
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1