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

[Zacherl]

Du musst den ganzen String hinterher nach PChar typecasten. Also:
Application.MessageBox(PChar('ttst' + MyVar), 'Info', 64); Florian

[DJAYS]

hallo,
danke man