-3
ShowMessage('MAC  - (Client: '
        + DM.qTmp.FieldByName('CL_NR').AsString + ' , Place: ' + DM.qTmp.FieldByName('CL_DESC').AsString);

This code works fine, but how i can do that with

Application.MessageBox('MAC  - (Client: '
            + DM.qTmp.FieldByName('CL_NR').AsString + ' , Place: ' + DM.qTmp.FieldByName('CL_DESC').AsString' , 'Error', 16);

Got various errors [dcc32 Error] untPCName.pas(79): E2010 Incompatible types: 'PWideChar' and 'string' DELPHI version is 10.2.

Uli Gerhardt
  • 13,748
  • 1
  • 45
  • 83
ThGz
  • 11
  • 6

1 Answers1

1

To fix the "Incompatible types" errors you have to cast. Notice the PChar(...):

Application.MessageBox(PChar('Whatever'), 'Error', MB_ICONHAND);

I also replaced the magic number 16 with something sensible.

Uli Gerhardt
  • 13,748
  • 1
  • 45
  • 83