none
X64 Smart Menu, Cardápio Eletrónico RRS feed

  • Pergunta

  • Estou a interligar o cardápio X64 com o meu software, não sei como passar este código para Delphi.  Alguma ajuda?

    If menu_receive(p_function, p_terminal, p_license, p_items, p_table, plus_aux, qty_aux) = 0 Then

    For n = 0 To p_items - 1

    p_plus(n) = CInt (plus_aux.Substring(n * 8, 8).Trim)

    p_qtds(n) = CInt (qty_aux.Substring(n * 8, 8).Trim)

    Next

    PList.Text = ""

    For n = 0 To p_items - 1

    PList.Text = PList.Text + "PLU:" + (p_plus(n).ToString) + " , "

    PList.Text = PList.Text + "QTD" + (p_qtds(n).ToString) + Chr(13) + Chr(10)

    Next

     

    Mariana

    quarta-feira, 16 de fevereiro de 2011 19:40