Language.pas

unit Language;

interface

type
  TLang = class
  lzone,lregion,lnet,lnode,lpoint: string;
  ndlerropen: string;
  ndlnotcompiled: string;
  extoomany, exlogname: string;
  editnotyours,editalreadysent:string;
  editclosetab: string;
  confirmation: string;
  msgdelete,msgdeleteunsent: string;
  errnonetmail: string;
  noinfo,llocation,lphone,lflags:string;
  lnodelist:string;
  ltree:string;
  notree:string;
  treedel:string;
  aAreatag, aPath, aBaseType, aAreaType,
  aFromAddr, aFromName, aAction, aNew, aOverride: string;
  alreadydef: string;
  noaction, noareatag, nopath, nobasetype,
  noareatype: string;
  conflict: string;
  areanotfound: string;
  msgnotfound: string;
  delarea: string;
  noaddr: string;
  selcontact: string;
  fillstring: string;
  erremptyareaname: string;
  errareaparams: string;
  errmsgopen: string;
  errbaseopen: string;
  nomsgs: string;
  needuseraddr: string;
  errarealocked: string;
  errnoroot: string;

  lMERR_NONE: string; // No error
  lMERR_BADH: string; // Invalid handle passed to function
  lMERR_BADF: string; // Invalid or corrupted file
  lMERR_NOMEM: string; // Not enough memory for specified operation
  lMERR_NODS: string; // Maybe not enough disk space for operation
  lMERR_NOENT: string; // File/message does not exist
  lMERR_BADA: string; // Bad argument passed to msgapi function
  lMERR_EOPEN: string; // Couldn't close - messages still open
  function GetError: string;
end;

var lang:TLang;

implementation

uses Setup, smapi;

function TLang.GetError;
begin
 case MsgGetMsgApiErr of
  MERR_NONE: result:= lMERR_NONE;
  MERR_BADH: result:= lMERR_BADH;
  MERR_BADF: result:= lMERR_BADF;
  MERR_NOMEM: result:= lMERR_NOMEM;
  MERR_NODS: result:= lMERR_NODS;
  MERR_NOENT: result:= lMERR_NOENT;
  MERR_BADA: result:= lMERR_BADA;
  MERR_EOPEN: result:= lMERR_EOPEN;
 end;
end;

begin
lang:=TLang.Create;
lang.lzone:='Çîíà';
lang.lregion:='Ðåãèîí';
lang.lnet:='Ñåòü';
lang.lnode:='Íîäà';
lang.lpoint:='Ïîèíò';
lang.ndlerropen:='Îøèáêà îòêðûòèÿ íîäëèñòà';
lang.ndlnotcompiled:='Íîäëèñò íå ñêîìïèëèðîâàí - ïðîâåðüòå íàñòðîéêè';
lang.extoomany:='Îáíàðóæåíà íåóñòðàíèìàÿ îøèáêà.'+#13+'Ïîæàëóéñòà, ïåðåçàïóñòèòå ïðèëîæåíèå è ïðîèíôîðìèðóéòå àâòîðà ñ îïèñàíèåì ïðîáëåìû';
lang.exlogname:='Îòëàäî÷íàÿ èíôîðìàöèÿ ñîõðàíåíà â ôàéëå';
lang.editnotyours:='Ýòî ñîîáùåíèå íå îò Âàñ. Âû íå ìîæåòå ðåäàêòèðîâàòü åãî.'+#13+
 'Äëÿ ïðîäîëæåíèÿ äèñêóññèè âîñïîëüçóéòåñü ôóíêöèåé "Îòâåò"';
lang.editalreadysent:='Ýòî ñîîáùåíèå óæå îòïðàâëåíî èëè ïîäãîòîâëåíî ê îòïðàâêå.'+#13+
 'Âû äåéñòâèòåëüíî õîòèòå îòðåäàêòèðîâàòü åãî?';
lang.editclosetab:='Ïðîèçâîäèòñÿ ðåäàêòèðîâàíèå ñîîáùåíèÿ.'+#13+'Çàêðûòèå âêëàäêè ïðèâåä¸ò ê åãî ïîòåðå!'+#13+'Çàêðûòü âêëàäêó?';
lang.confirmation:='Ïîäòâåðæäåíèå';
lang.msgdelete:='Óäàëèòü ýòî ñîîáùåíèå?';
lang.msgdeleteunsent:='Ýòî ñîîáùåíèå åù¸ íå îòïðàâëåíî!'+#13+'Óäàëèòü ýòî ñîîáùåíèå, îòêàçàâøèñü îò îòïðàâêè?';
lang.errnonetmail:='Íå âûáðàíà NETMAIL-îáëàñòü ïî óìîë÷àíèþ.'+#13+'Ïðîâåðüòå íàñòðîéêè (âêëàäêà Îáëàñòè).';
lang.noinfo:='Íåò èíôîðìàöèè';
lang.llocation:='Ìåñòîïîëîæåíèå';
lang.lphone:='Òåëåôîí';
lang.lflags:='Ôëàãè';
lang.lnodelist:='Íîäëèñò';
lang.ltree:='Äåðåâî îòâåòîâ';
lang.notree:='Äåðåâî íåäîñòóïíî';
lang.treedel:='óäàë¸ííîå ñîîáùåíèå';

lang.aAreatag:='Èìÿ îáëàñòè';
lang.aPath:='Ïóòü ê áàçå';
lang.aBaseType:='Òèï áàçû';
lang.aAreaType:='Òèï îáëàñòè';
lang.aFromAddr:='Àäðåñ îòïðàâèòåëÿ';
lang.aFromName:='Èìÿ îòïðàâèòåëÿ';
lang.aAction:='Äåéñòâèå';
lang.aNew:='Îïèñàòü íîâóþ îáëàñòü';
lang.aOverride:='Ïåðåîïðåäåëèòü îïèñàíèå òîññåðà';
lang.alreadydef:='Îáëàñòü ñ òàêèì èìåíåì óæå îïðåäåëåíà';
lang.noareatag:='Óêàæèòå èìÿ îáëàñòè';
lang.noaction:='Âûáåðèòå òðåáóåìîå äåéñòâèå (äîáàâèòü îáëàñòü èëè ïåðåîïðåäåëèòü ñóùåñòâóþùóþ)';
lang.nopath:='Óêàæèòå ïóòü ê áàçå';
lang.nobasetype:='Âûáåðèòå òèï ïî÷òîâîé áàçû';
lang.noareatype:='Âûáåðèòå òèï îáëàñòè';

lang.conflict:='Ïîâòîðÿþùèåñÿ îïèñàíèÿ ñëåäóþùèõ îáëàñòåé. Ïðîâåðüòå êîíôèãóðàöèþ.';
lang.areanotfound:='Îáëàñòü íå íàéäåíà';
lang.delarea:='Óäàëèòü ýòó îáëàñòü?';
lang.noaddr:='Íåäîñòóïåí FTN-àäðåñ êîíòàêòà';
lang.selcontact:='Âûáåðèòå êîíòàêò èç ñïèñêà';
lang.fillstring:='Ïîæàëóéñòà, ââåäèòå äàííûå';
lang.erremptyareaname:='Íåâîçìîæíî äîáàâèòü îáëàñòü ñ ïóñòûì èìåíåì';
lang.errareaparams:='Íåâîçìîæíî äîáàâèòü îáëàñòü ñ òàêèìè ïàðàìåòðàìè';
lang.errbaseopen:='*** Îøèáêà îòêðûòèÿ áàçû ñîîáùåíèé ***';
lang.errmsgopen:='*** Îøèáêà îòêðûòèÿ ñîîáùåíèÿ ***';
lang.nomsgs:='*** Ñîîáùåíèé íåò ***';
lang.needuseraddr:='Íåîáõîäèìî ââåñòè õîòÿ áû îäíî èìÿ ïîëüçîâàòåëÿ è îäèí àäðåñ';
lang.errarealocked:='*** Îáëàñòü çàáëîêèðîâàíà ***';
lang.errnoroot:='Íåâîçìîæíî íàéòè ïåðâîå ñîîáùåíèå â òðåäå'+#13+'Ïîïðîáóéòå ïåðåëèíêîâàòü áàçó';
lang.msgnotfound:='Ñîîáùåíèå íå íàéäåíî';

lang.lMERR_NONE:='OK';
lang.lMERR_BADH:='Íåâåðíûé äåñêðèïòîð';
lang.lMERR_BADF:='Ôàéë ïîâðåæä¸í';
lang.lMERR_NOMEM:='Íåäîñòàòî÷íî ïàìÿòè';
lang.lMERR_NODS:='Íåäîñòàòî÷íî äèñêîâîãî ïðîñòðàíñòâà';
lang.lMERR_NOENT:='Ôàéë èëè ñîîáùåíèå íå ñóùåñòâóåò';
lang.lMERR_BADA:='Íåâåðíûé àðãóìåíò';
lang.lMERR_EOPEN:='Îñòàëèñü îòêðûòûå ñîîáùåíèÿ';
end.