www.pudn.com > srmsrc.zip > SrmConst.pas

//--------------------------------------------------------------------------- 
//(R)CopyRight KivenSoft International ,inc 1999 
//单元名称：常量定义单元 
//程序名称：电子书库 
//作    者：李会文 
//开始时间：1999.03.28 
//最后修改：1999.07.22 
//备注：此单元定义了SRM文件的读写接口 
//--------------------------------------------------------------------------- 
unit SrmConst; 
 
interface 
 
const 
 
  //注册表相关常量，MainFun单元使用 
  csSrmFileType='\.srm'; 
  csSrmCommand='\srm\shell\open\command'; 
  {$ifndef ENGLISH} 
    csSrmFileDescribe='电子书库文档'; 
  {$else} 
    csSrmFileDescribe='Srm Document'; 
  {$endif} 
 
 
  {$ifndef ENGLISH} 
    csAppName='电子书库'; 
  {$else} 
    csAppName='Stack Room'; 
  {$endif} 
 
  //对话框相关常量 
  csSrmExt='srm'; 
  csTreExt='tre'; 
  csIdxExt='idx'; 
  csDatExt='dat'; 
  csTmpExt='tmp'; 
  csTxtExt='txt'; 
  csHlpExt='hlp'; 
  {$ifndef ENGLISH} 
    csSrmFilter='书库文件(srm)|*.srm'; 
    csOldFilter='2.x书库文件(dat)|*.dat'; 
    csCreateTitle='新建'; 
    csSaveAsTitle='另存为'; 
    csOpenTitle='打开'; 
    csTxtFilter='文本文件(txt)|*.txt'; 
  {$else} 
    csSrmFilter='Srm File(srm)|*.srm'; 
    csOldFilter='2.x Db File(tre,idx,dat)|*.tre;*.idx;*.dat'; 
    csCreateTitle='Create'; 
    csSaveAsTitle='Save As'; 
    csOpenTitle='Open'; 
    csTxtFilter='Txt File(txt)|*.txt'; 
  {$Endif} 
 
  //状态栏相关常量 
  {$ifndef ENGLISH} 
    csPanel1Text='记录数：'; 
    csPanel2Text='记录长度：'; 
  {$ELSE} 
    csPanel1Text='Count:'; 
    csPanel2Text='Current Size:'; 
  {$ENDIF} 
 
  //杂类字符串 
  csHomePage='http://kiven.yeah.net'; 
  csEMail='mailto:kiven@126.com'; 
  csFriend='mailto:ayczq@126.com'; 
  {$ifndef ENGLISH} 
    csPasswordTitle='请输入密码：'; 
    csNewDefaultTitle='新标题'; 
    csSaveQuery='数据库已改动，是否保存？'; 
    csDeleteQuery='是否删除所选记录？'; 
    csBrowseFolderInfo='请选择目录：'; 
    csAuthorLabel='作者：'; 
    csPasswordLabel='口令：'; 
    csBuildDateLabel='建库日期：'; 
    csEditDateLabel='修改日期：'; 
  {$else} 
    csPasswordTitle='Input Password:'; 
    csNewDefaultTitle='NewTitle'; 
    csSaveQuery='Save changed File？'; 
    csDeleteQuery='Delete records,sure?'; 
    csBrowseFolderInfo='Select directry:'; 
    csAuthorLabel='Author:'; 
    csPasswordLabel='Password:'; 
    csBuildDateLabel='Build Date:'; 
    csEditDateLabel='Edit Date:'; 
  {$Endif} 
 
   
  //错误显示信息 
  {$ifndef ENGLISH} 
    csAppExists='电子书库已经运行'; 
    csOldFileError='原2.x版数据库不完整！'; 
    csFindError='未发现匹配文本'; 
    csPasswordError='密码错误！'; 
    csIndexError='关键字总共只能有50个字符，此串太长'; 
    csReplaceSucess='成功完成全文本的替换'; 
    csDirExists='要导出的目录已存在'; 
    csTechniqueSupport='老兄，开什么玩笑，免费软件也想要技术支持？'; 
    csNotSrmFile='此文件不是SRM数据库或数据库已损坏'; 
    csCanNotCreate='不能建立SRM文件'; 
  {$else} 
    csAppExists='Stack Room already exists'; 
    csOldFileError='Old dataBase file not intact!'; 
    csFindError='Search not found'; 
    csPasswordError='Password Error!'; 
    csIndexError='Index key only 50 byte,This string is longer'; 
    csReplaceSucess='Replace Succeed'; 
    csDirExists='Directry exists,Select again'; 
    csTechniqueSupport='What? Freeware has Technique Support?'; 
    csNotSrmFile='this file is not SRM or file already bad'; 
    csCanNotCreate='Can not create Srm File'; 
  {$Endif} 
 
 
implementation 
 
end.