Из С++ в Delphi, переделать код
Код:
MessageBox(NULL,AnsiString("Правильных слов: "+IntToStr(colw)+" из "+frmOption->lblChSlov->Caption+"\nОценка: ").c_str() ,"Результат", MB_OK);
Как этот код переделать в delphi
Примерно вот так:):
или:)
Код:
...
MessageDlg("Правильных слов: "+IntToStr(colw)+" из "+frmOption.lblChSlov.Caption+"\nОценка: " ,mtInformation,mbOk,0);
...
MessageDlg("Правильных слов: "+IntToStr(colw)+" из "+frmOption.lblChSlov.Caption+"\nОценка: " ,mtInformation,mbOk,0);
...
или:)
Код:
...
Application.MessageBox("Правильных слов: "+IntToStr(colw)+" из "+frmOption.lblChSlov.Caption+"\nОценка: " ,"Результат",mb_IconInformation+mb_Ok);
...
Application.MessageBox("Правильных слов: "+IntToStr(colw)+" из "+frmOption.lblChSlov.Caption+"\nОценка: " ,"Результат",mb_IconInformation+mb_Ok);
...
И ВОТ ТАК
Код:
MessageBox(0,pChar('Вы ввели больше слов, чем '+IntToStr(lstConclusion.Items.Count)) ,'Информация ', MB_OK);