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
