MessageBox

[DJAYS]

hallo,
brauche dringend Hilfe wenn möglich.ich folgendes mit Application.MesssageBox realisieren,aber klappt es nicht.könnte jemand mir bitte den entsprechenden schreiben?[

Code:

Result := MessageDlg(sTestCmd + #13 + 'bei Testpunkt : '+ IntToStr(iTestCmd)+'->' + sTestItem,mtError,[mbRetry,mbAbort],0);

sTestCmd,sTestItem sind String

so habe ich versuch aber Fehler inkompatible String und PChar

Code:

Result := if Application.MessageBox('sTesCmd' + #13 + 'bei Testpunkt : '+ IntToStr(iTestCmd)+'->' + sTestItem,Fehler,21);

und

Code:

if MessageDlg(sMsgStr1+#13+sMsgStr2+#13+sMsgStr3+#13+sMsgStr4,mtConfirmation,[mbYes, mbNo],0)=mrYes then begin
                         // ADC-Wrte übernehmen
                            iErr := UCBTestBoard.WriteAdcAdjustValues(stAdcAdjVal);
                            iErrHdl := ErrorHandler(iErr,iTestCmd,1);

sMsgStr1...4 sind alle Zahlen
][code]

danke