noxnitron
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребята привет! Помогите разобраться, а то я слегка запутался...
Имеется следующий код на Visual Basic:
Код: Case PTR_S_JOURNAL:
ViewResultCode (OPOSPOSPrinter1.RotatePrint(Station, PTR_RP_NORMAL))
If OPOSPOSPrinter1.ValidateData(Station, Chr$(&H1B) & "|rA") = OPOS_SUCCESS Then
ViewResultCode (OPOSPOSPrinter1.PrintNormal(Station, Chr$(&H1B) & "|rA" & DateMes & " " & TimeMes & vbNewLine & vbNewLine))
Else
ViewResultCode (OPOSPOSPrinter1.PrintNormal(Station, Space(OPOSPOSPrinter1.JrnLineChars - Len(DateMes & " " & TimeMes)) & DateMes & " " & TimeMes & vbNewLine & vbNewLine))
End If |
Я перевел его так:
Код: 1: // PTR_S_JOURNAL
begin
ViewResultCode(POSPrinter1.RotatePrint(station, $1 { PTR_RP_NORMAL } ));
If POSPrinter1.ValidateData(station, Chr($1B)+'|rA') = 0 { OPOS_SUCCESS }
Then ViewResultCode(POSPrinter1.PrintNormal(station, Chr($1B) + '|rA' + DateMes + ' ' + TimeMes + Chr(10) + Chr(10)))
Else ViewResultCode(POSPrinter1.PrintNormal(station, Space(POSPrinter1.JrnLineChars - Length(DateMes + ' ' + TimeMes))+DateMes+' '+TimeMes+Chr($10)+Chr($10)));
End; |
Но компилятор ругается [dcc32 Error] u_main.pas(214): E2066 Missing operator or semicolon
Прошу ткните носом где ошибки... Заранее спасибо! |
