Jump to content

Recommended Posts

Posted

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.
  • Upvote 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...