行业应用

开发平台：
Delphi

SrmConst.pas：源码内容
							//---------------------------------------------------------------------------
//(R)CopyRight KivenSoft International ,inc 1999
//单元名称：常量定义单元
//程序名称：电子书库
//作    者：李会文
//开始时间：1999.03.28
//最后修改：1999.07.22
//备注：此单元定义了SRM文件的读写接口
//---------------------------------------------------------------------------
unit SrmConst;
interface
const
  //注册表相关常量，MainFun单元使用
  csSrmFileType='.srm';
  csSrmCommand='srmshellopencommand';
  {$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.

						