Leaderboard

+1

This is what I use, of course in my language - Norwegian: unit MainModule; interface ... const SNewMsgDlgWarning: PChar = 'Advarsel'; SNewMsgDlgError: PChar = 'Feil'; SNewMsgDlgInformation: PChar = 'Informasjon'; SNewMsgDlgConfirm: PChar = 'Vennligst Bekreft'; SNewMsgDlgYes: PChar = 'Ja'; SNewMsgDlgNo: PChar = 'Nei'; SNewMsgDlgOK: PChar = 'OK'; SNewMsgDlgCancel: PChar = 'Avbryt'; SNewDeleteRecordQuestion: PChar = 'Slett Post?'; SNewDeleteRecord: PChar = 'Slett Post?'; ... initialization RegisterMainModuleClass(TUniMainModule); SetResourceString(@SMsgDlgConfirm, SNewMsgDlgConfirm); SetResourceString(@SMsgDlgWarning, SNewMsgDlgWarning); SetResourceString(@SMsgDlgError, SNewMsgDlgError); SetResourceString(@SMsgDlgInformation, SNewMsgDlgInformation); SetResourceString(@SMsgDlgYes, SNewMsgDlgYes); SetResourceString(@SMsgDlgNo, SNewMsgDlgNo); SetResourceString(@SMsgDlgOK, SNewMsgDlgOK); SetResourceString(@SMsgDlgCancel, SNewMsgDlgCancel); SetResourceString(@SDeleteRecordQuestion, SNewDeleteRecordQuestion); SetResourceString(@SDeleteRecord, SNewDeleteRecord); end.