谁有delphi5 /6 的常量字符串的汉化文件？(300分)

我只有一个，是在这里复制的，其他的几个谁作过汉化？
每个100分，怎么样？

email : dqwjs@daqing.net

关注这个问题。

关注！

这是Delphi5的，Delphi6我还没用过呢，估计变化不大

{*******************************************************}
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ ; ; ; Borland Delphi Visual Component Library ; ; ; ; }
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ ; ; ; Copyright (c) 1995,99 Inprise Corporation ; ; ; }
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{*******************************************************}

unit Consts;

interface

resourcestring
; SOpenFileTitle = '打开';
; SAssignError = '无法将一个 %s 分配给一个 %s';
; SFCreateError = '无法建立文件 %s';
; SFOpenError = '无法打开文件 %s';
; SReadError = '流读取错误';
; SWriteError = '流写入错误';
; SMemoryStreamError = '扩展内存流时内存不足';
; SCantWriteResourceStreamError = '无法写入一个只读的资源流';
; SDuplicateReference = 'WriteObject 对同一个实例调用了两次';
; SClassNotFound = '类 %s 未找到';
; SInvalidImage = '无效的流格式';
; SResNotFound = '资源 %s 未找到';
; SClassMismatch = '资源 %s 是无效的类';
; SListIndexError = '列表索引超界 (%d)';
; SListCapacityError = '列表容量超界 (%d)';
; SListCountError = '列表总数超界 (%d)';
; SSortedListError = '操作不允许在排序列表中执行';
; SDuplicateString = '字符串列表不允许重复';
; SInvalidTabIndex = '标签索引超界';
; SInvalidTabPosition = '标签位置与当前的标签类型冲突';
; SInvalidTabStyle = '标签类型与当前的标签位置冲突';
; SDuplicateName = '已经存在名为 %s 的组件';
; SInvalidName = '''''%s'''' 不是有效的组件名';
; SDuplicateClass = '已经存在名为 %s 的类';
; SNoComSupport = '%s 没有注册为 COM 类';
; SInvalidInteger = '''''%s'''' 不是有效的整数';
; SLineTooLong = '行超长';
; SInvalidPropertyValue = '无效的属性值';
; SInvalidPropertyPath = '无效的属性路径';
; SInvalidPropertyType = '无效的属性类型: %s';
; SInvalidPropertyElement = '无效的属性元素: %s';
; SUnknownProperty = '属性不存在';
; SReadOnlyProperty = '属性只读';
; SPropertyException = '读取错误 %s%s%s: %s';
; SAncestorNotFound = '未找到 ''%s'' 的祖先';
; SInvalidBitmap = '位图图象无效';
; SInvalidIcon = '图标图象无效';
; SInvalidMetafile = '元文件无效';
; SInvalidPixelFormat = '无效的像素格式';
; SBitmapEmpty = '位图为空';
; SScanLine = '扫描线索引超界';
; SChangeIconSize = '无法改变图标大小';
; SOleGraphic = 'TOleGraphic 上的无效操作';
; SUnknownExtension = '未知的图象文件扩展名 (.%s)';
; SUnknownClipboardFormat = '不支持的剪贴板格式';
; SOutOfResources = '系统资源不足';
; SNoCanvasHandle = '不允许绘图';
; SInvalidImageSize = '无效的图象大小';
; STooManyImages = '图象太多';
; SDimsDoNotMatch = '图象维数与图象列表维数不匹配';
; SInvalidImageList = '无效的图象列表';
; SReplaceImage = '无法替换图象';
; SImageIndexError = '无效的图象列表索引';
; SImageReadFail = '从流中读取图象列表数据失败';
; SImageWriteFail = '将图象列表数据写入流失败';
; SWindowDCError = '创建窗口设备描述失败';
; SClientNotSet = 'TDrag 客户区没有初始化';
; SWindowClass = '创建窗口类失败';
; SWindowCreate = '创建窗口失败';
; SCannotFocus = '无法聚焦到失效的或不可见的窗口';
; SParentRequired = '控件 ''%s'' 没有父窗口';
; SMDIChildNotVisible = '无法隐藏 MDI 子窗口';
; SVisibleChanged = '无法在 OnShow 或 OnHide 事件中改变可是否视';
; SCannotShowModal = '无法使不可见窗口成为模态';
; SScrollBarRange = '滚动条属性超界';
; SPropertyOutOfRange = '%s 属性超界';
; SMenuIndexError = '菜单索引超界';
; SMenuReinserted = '菜单被插入了两次';
; SMenuNotFound = '子菜单不在菜单内';
; SNoTimers = '可用的计时器不足';
; SNotPrinting = '打印机当前不在打印状态';
; SPrinting = '打印正在进行';
; SPrinterIndexError = '打印机索引超界';
; SInvalidPrinter = '选定的打印机无效';
; SDeviceOnPort = '%s 在 %s 上';
; SGroupIndexTooLow = '组索引不能小于前一个菜单项的组索引';
; STwoMDIForms = '每个应用程序只能有一个 MDI 窗口';
; SNoMDIForm = '无法创建窗口. 目前没有活动的 MDI 窗口';
; SRegisterError = '无效的组件注册信息';
; SImageCanvasNeedsBitmap = '当图象为位图时才能修改它';
; SControlParentSetToSelf = '控件不能将自身作为父窗口';
; SOKButton = '确定';
; SCancelButton = '取消';
; SYesButton = '是[&Y]';
; SNoButton = '否[&N]';
; SHelpButton = '帮助[&H]';
; SCloseButton = '关闭[&C]';
; SIgnoreButton = '忽略[&I]';
; SRetryButton = '重试[&R]';
; SAbortButton = '中断[&A]';
; SAllButton = '全部[&A]';

; SCannotDragForm = '无法拖动窗口';
; SPutObjectError = '移动对象给不明确的项目';
; SCardDLLNotLoaded = '无法载入 CARDS.DLL';
; SDuplicateCardId = '发现重复的 CardId';

; SDdeErr = 'DDE 返回错误 ($0%x)';
; SDdeConvErr = 'DDE 错误 - 会话未确定 ($0%x)';
; SDdeMemErr = 'DDE 运行内存不足时发生错误 ($0%x)';
; SDdeNoConnect = '无法连接到 DDE 会话';

; SFB = 'FB';
; SFG = 'FG';
; SBG = 'BG';
; SOldTShape = '无法载入旧版本的 TShape';
; SVMetafiles = '元文件';
; SVEnhMetafiles = '扩展元文件';
; SVIcons = '图标';
; SVBitmaps = '位图';
; SGridTooLarge = '表格太大,无法进行操作';
; STooManyDeleted = '过多的行或列被删除';
; SIndexOutOfRange = '表格索引超界';
; SFixedColTooBig = '固定列必须少于总列数';
; SFixedRowTooBig = '固定行必须少于总行数';
; SInvalidStringGridOp = '无法在表格中删除或插入行';
; SParseError = '%s 在第 %d 行';
; SIdentifierExpected = '希望一个标识符';
; SStringExpected = '希望一个字符串';
; SNumberExpected = '希望一个数字';
; SCharExpected = '希望一个''''%s''''';
; SSymbolExpected = '希望一个%s';
; SInvalidNumber = '无效的数字值';
; SInvalidString = '无效的字符串常数';
; SInvalidProperty = '无效的属性值';
; SInvalidBinary = '无效的二进制值';
; SOutlineIndexError = '未发现 Outline 索引';
; SOutlineExpandError = '父节点必须展开';
; SInvalidCurrentItem = '对当前项目无效的值';
; SMaskErr = '无效的输入值';
; SMaskEditErr = '无效的输入值. ;按[Esc]键取消所作的修改';
; SOutlineError = '无效的 Outline 索引';
; SOutlineBadLevel = '级别分配错误';
; SOutlineSelection = '无效的选择';
; SOutlineFileLoad = '载入文件错误';
; SOutlineLongLine = '行超长';
; SOutlineMaxLevels = '超过了 Outline 最大深度';

; SMsgDlgWarning = '警告';
; SMsgDlgError = '错误';
; SMsgDlgInformation = '信息';
; SMsgDlgConfirm = '确认';
; SMsgDlgYes = '是[&Y]';
; SMsgDlgNo = '否[&N]';
; SMsgDlgOK = '确定';
; SMsgDlgCancel = '取消';
; SMsgDlgHelp = '帮助[&H]';
; SMsgDlgHelpNone = '没有可用的帮助';
; SMsgDlgHelpHelp = '帮助';
; SMsgDlgAbort = '中断[&A]';
; SMsgDlgRetry = '重试[&R]';
; SMsgDlgIgnore = '忽略[&I]';
; SMsgDlgAll = '全部[&A]';
; SMsgDlgNoToAll = '全部不是[&o]';
; SMsgDlgYesToAll = '全是[&A]';

; SmkcBkSp = '回退';
; SmkcTab = 'Tab';
; SmkcEsc = 'Esc';
; SmkcEnter = '回车';
; SmkcSpace = '空格';
; SmkcPgUp = 'PgUp';
; SmkcPgDn = 'PgDn';
; SmkcEnd = 'End';
; SmkcHome = 'Home';
; SmkcLeft = '左';
; SmkcUp = '上';
; SmkcRight = '右';
; SmkcDown = '下';
; SmkcIns = '插入';
; SmkcDel = '删除';
; SmkcShift = 'Shift+';
; SmkcCtrl = 'Ctrl+';
; SmkcAlt = 'Alt+';

; srUnknown = '(未知)';
; srNone = '(无)';
; SOutOfRange = '取值必须从 %d 到 %d';
; SCannotCreateName = '无法为未命名的组件建立缺省的方法名';

; SDateEncodeError = '参数对于对于日期编码无效';
; STimeEncodeError = '参数对于对于时间编码无效';
; SInvalidDate = '''''%s'''' 不是有效的日期';
; SInvalidTime = '''''%s'''' 不是有效的时间';
; SInvalidDateTime = '''''%s'''' 不是有效的日期和时间';
; SInvalidFileName = '无效的文件名 - %s';
; SDefaultFilter = '所有文件 (*.*)|*.*';
; sAllFilter = '全部';
; SNoVolumeLabel = ': [ - 无卷标 - ]';
; SInsertLineError = '无法插入行';

; SConfirmCreateDir = '指定的目录不存在. 创建吗?';
; SSelectDirCap = '选择目录';
; SCannotCreateDir = '无法创建目录';
; SDirNameCap = '目录名[&N]:';
; SDrivesCap = '磁盘驱动器[D&]:';
; SDirsCap = '目录[&D]:';
; SFilesCap = '文件[&F]: (*.*)';
; SNetworkCap = '网络[&t]...';

; SColorPrefix = '颜色'; ; ; ; ; ; ; ; //!! obsolete - delete in 5.0
; SColorTags = 'ABCDEFGHIJKLMNOP'; ; ; ;//!! obsolete - delete in 5.0

; SInvalidClipFmt = '无效的剪贴板格式';
; SIconToClipboard = '剪贴板不支持图标';
; SCannotOpenClipboard = '无法打开剪贴板';

; SDefault = '缺省';

; SInvalidMemoSize = '文本超过 Memo 容量';
; SCustomColors = '自定义颜色';
; SInvalidPrinterOp = '指定的打印机不支持该操作';
; SNoDefaultPrinter = '目前没有选择缺省打印机';

; SIniFileWriteError = '无法写入 %s';

; SBitsIndexError = '位索引超界';

; SUntitled = '(未命名)';

; SInvalidRegType = '对于 ''%s'' 无效的数据类型';
; SRegCreateFailed = '创建主键 %s 失败';
; SRegSetDataFailed = '设置 ''%s'' 值失败';
; SRegGetDataFailed = '读取 ''%s'' 值失败';

; SUnknownConversion = '未知的 RichEdit 转换文件扩展名 (.%s)';
; SDuplicateMenus = '菜单 ''%s'' 已经被其他窗口使用了';

; SPictureLabel = '图象:';
; SPictureDesc = ' (%dx%d)';
; SPreviewLabel = '预览';

; SCannotOpenAVI = '无法打开 AVI';

; SNotOpenErr = '没有打开的 MCI 设备';
; SMPOpenFilter = '所有文件 (*.*)|*.*|Wave 文件 (*.wav)|*.wav|Midi 文件 (*.mid)|*.mid|Avi 文件 (*.avi)|*.avi';
; SMCINil = '';
; SMCIAVIVideo = 'AVI 视频';
; SMCICDAudio = 'CD 音频';
; SMCIDAT = 'DAT';
; SMCIDigitalVideo = '数字视频';
; SMCIMMMovie = '影片';
; SMCIOther = '其他';
; SMCIOverlay = '覆盖';
; SMCIScanner = '扫描器';
; SMCISequencer = '序列发生器';
; SMCIVCR = 'VCR';
; SMCIVideodisc = '视盘';
; SMCIWaveAudio = 'Wave 音频';
; SMCIUnknownError = '未知的错误代号';

; SBoldItalicFont = '粗体 斜体';
; SBoldFont = '粗体';
; SItalicFont = '斜体';
; SRegularFont = '正常';

; SPropertiesVerb = '属性';

; sWindowsSocketError = 'Windows 套接字错误: %s (%d), 产生于 API 调用 ''%s'' 处';
; sAsyncSocketError = '异步套接字错误 %d';
; sNoAddress = '未指定地址';
; sCannotListenOnOpen = '无法从打开的套接字中读取';
; sCannotCreateSocket = '无法创建新的套接字';
; sSocketAlreadyOpen = '套接字已打开';
; sCantChangeWhileActive = '套接字活动时无法修改值';
; sSocketMustBeBlocking = '套接字必须是块模式';
; sSocketIOError = '%s 错误 %d, %s';
; sSocketRead = '读';
; sSocketWrite = '写';

; SServiceFailed = '%s 服务失败: %s';
; SExecute = '执行';
; SStart = '开始';
; SStop = '停止';
; SPause = '暂停';
; SContinue = '继续';
; SInterrogate = '询问';
; SShutdown = '关闭';
; SCustomError = '服务在自定义消息(%d)中失败: %s';
; SServiceInstallOK = '服务安装成功';
; SServiceInstallFailed = '服务 "%s" 安装失败,错误信息为: "%s"';
; SServiceUninstallOK = '服务卸载成功';
; SServiceUninstallFailed = '服务 "%s" 卸载失败,错误信息为: "%s"';

; SInvalidActionRegistration = '动作注册无效';
; SInvalidActionUnregistration = '动作取消注册无效';
; SInvalidActionEnumeration = '动作列举无效';
; SInvalidActionCreation = '动作创建无效';

; SDockedCtlNeedsName = '驻停式控件必须具有名称';
; SDockTreeRemoveError = '从驻停树中删除控件错误';
; SDockZoneNotFound = ' - 未发现驻停区域';
; SDockZoneHasNoCtl = ' - 驻停区域中没有控件';

; SAllCommands = '全部命令';

; SDuplicateItem = '列表不充许复制 ($0%x)';

; SDuplicatePropertyCategory = '属性类别 %s 已存在';
; SUnknownPropertyCategory = '属性类别不存在(%s)';

; SActionCategoryName = '操作';
; SActionCategoryDesc = '操作属性(和/或)事件';
; SDataCategoryName = '数据';
; SDataCategoryDesc = '数据属性(和/或)事件';
; SDatabaseCategoryName = '数据库';
; SDatabaseCategoryDesc = '数据库和数据感知属性(和/或)事件';
; SDragNDropCategoryName = '拖曳,丢弃和入坞';
; SDragNDropCategoryDesc = '拖曳,丢弃和入坞属性(和/或)事件';
; SHelpCategoryName = '帮助和提示';
; SHelpCategoryDesc = '帮助和提示属性(和/或)事件';
; SLayoutCategoryName = '布局';
; SLayoutCategoryDesc = '布局属性(和/或)事件';
; SLegacyCategoryName = '遗产';
; SLegacyCategoryDesc = '遗产属性(和/或)事件';
; SLinkageCategoryName = '连接';
; SLinkageCategoryDesc = '连接属性(和/或)事件';
; SLocaleCategoryName = '场所';
; SLocaleCategoryDesc = '场所属性(和/或)事件';
; SLocalizableCategoryName = '地方化';
; SLocalizableCategoryDesc = '地方化属性(和/或)事件';
; SMiscellaneousCategoryName = '其他';
; SMiscellaneousCategoryDesc = '其他属性(和/或)事件';
; SVisualCategoryName = '可视';
; SVisualCategoryDesc = '可视属性(和/或)事件';
; SInputCategoryName = '输入';
; SInputCategoryDesc = '输入属性(和/或)事件';

; SInvalidMask = '在(%d)中''%s''是一个无效的掩码';
; SInvalidFilter = '属性过滤器仅仅可以是名字,类或基本类型(%d:%d)';
; SInvalidCategory = '类别必须定议它们的特有名字和描述';

; sOperationNotAllowed = '当应用程序分派事件时操作不允许';

implementation

end.

多谢！并至少给您100分。请稍候！

无法发送到你的邮箱，请另告一个邮箱。

abort 函数 引起放弃的意外处理
　　abs 函数 绝对值函数
　　addexitproc 函数 将一过程添加到运行时库的结束过程表中
　　addr 函数 返回指定对象的地址
　　adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列
　　align 属性 使控件位于窗口某部分
　　alignment 属性 控件标签的文字位置
　　allocmem 函数 在堆栈上分配给定大小的块
　　allowgrayed 属性 允许一个灰度选择
　　ansicomparestr 函数 比较字符串（区分大小写）
　　ansicomparetext 函数 比较字符串（不区分大小写）
　　ansilowercase 函数 将字符转换为小写
　　ansiuppercase 函数 将字符转换为大写
　　append 函数 以附加的方式打开已有的文件
　　arctan 函数 余切函数
　　assignfile 函数 给文件变量赋一外部文件名
　　assigned 函数 测试函数或过程变量是否为空
　　autosize 属性 自动控制标签的大小
　　backgrounddi2001.jpg 属性 背景色
　　beginthread 函数 以适当的方式建立用于内存管理的线程
　　bevelinner 属性 控件方框的内框方式
　　bevelouter 属性 控件方框的外框方式
　　bevelwidth 属性 控件方框的外框宽度
　　blockread 函数 读一个或多个记录到变量中
　　blockwrite 函数 从变量中写一个或多个记录
　　borderstyle 属性 边界类型
　　borderwidth 属性 边界宽度
　　break 命令 终止for、while、repeat循环语句
　　brush 属性 画刷
　　caption 属性 标签文字的内容
　　changefileext 函数 改变文件的后缀
　　chdir 函数 改变当前目录
　　checked 属性 确定复选框选中状态
　　chr 函数 返回指定序数的字符
　　closefile 命令 关闭打开的文件
　　color 属性 标签的颜色
　　columns 属性 显示的列数
　　comparestr 函数 比较字符串（区分大小写）
　　concat 函数 合并字符串
　　continue 命令 继续for、while、repeat的下一个循环
　　copy 函数 返回一字符串的子串
　　cos 函数 余弦函数
　　ctl3d 属性 是否具有3d效果
　　cursor 属性 鼠标指针移入后的形状
　　date 函数 返回当前的日期
　　datetimetofiledate 函数 将delphi的日期格式转换为dos的日期格式
　　datetimetostr 函数 将日期时间格式转换为字符串
　　datetimetostring 函数 将日期时间格式转换为字符串
　　datetostr 函数 将日期格式转换为字符串
　　dayofweek 函数 返回星期的数值
　　dec 函数 递减变量值
　　decodedate 函数 将日期格式分解为年月日
　　decodetime 函数 将时间格式分解为时、分、秒、毫秒
　　delete 函数 从字符串中删除子串
　　deletefile 命令 删除文件
　　diskfree 函数 返回剩余磁盘空间的大小
　　disksize 函数 返回指定磁盘的容量
　　dispose 函数 释放动态变量所占的空间
　　disposestr 函数 释放字符串在堆栈中的内存空间
　　ditherbackgrounddi2001.jpg?使背景色的色彩加重或减少50%
　　dragcursor 属性 当鼠标按下时光标的形状
　　dragmode 属性 按动的作用方式
　　dropdowncount 属性 容许的显示数据项的数目
　　editmask 属性 编辑模式
　　enabled 属性 是否使标签呈现打开状态
　　encodedate 函数 将年月日合成为日期格式
　　encodetime 函数 将时、分、秒、毫秒合成为时间格式
　　endmargin 属性 末尾边缘
　　eof 函数 对有类型或无类型文件测试是否到文件尾
　　eoln 函数 返回文本文件的行结束状态
　　erase 命令 删除外部文件
　　exceptaddr 函数 返回引起当前意外的地址
　　exclude 函数 从集合中删除一些元素
　　exceptobject 函数 返回当前意外的索引
　　exit 命令 立即从当前的语句块中退出
　　exp 函数 指数函数
　　expandfilename 函数 返回包含绝对路径的字符串
　　extendedselect 属性 是否允许存在选择模式，true时，multiselect才有意义
　　extractfiledir 函数 返回驱动器和路径
　　extractfileext 函数 返回文件的后缀
　　extractfilename 函数 返回文件名
　　extractfilepath 函数 返回指定文件的路径
　　fileage 函数 返回文件已存在的时间
　　fileclose 命令 关闭指定的文件
　　filecreate 命令 用指定的文件名建立新文件
　　filedatetodatetime 函数 将dos的日期格式转换为delphi的日期格式
　　fileexists 函数 检查文件是否存在
　　filegatattr 函数 返回文件的属性
　　filegetdate 函数 返回文件的dos日期时间标记
　　fileopen 命令 用指定的存取模式打开指定的文件
　　filepos 函数 返回文件的当前指针位置
　　fileread 命令 从指定的文件读取
　　filesearch 命令 在目录中搜索指定的文件
　　fileseek 函数 改变文件的指针
　　filesetattr 函数 设置文件属性
　　filesetdate 函数 设置文件的dos日期时间标记
　　filesize 函数 返回当前文件的大小
　　filewrite 函数 对指定的文件做写操作
　　fillchar 函数 用指定的值填充连续字节的数
　　findclose 命令 终止findfirst/findnext序列
　　findfirst 命令 对指定的文件名及属性搜索目录
　　findnext 命令 返回与文件名及属性匹配的下一入口
　　floattodecimal 函数 将浮点数转换为十进制数
　　floattostrf 函数 将浮点数转换为字符串
　　floattostr 函数 将浮点数转换为字符串
　　floattotext 函数 将给定的浮点数转换为十进制数
　　floattotextfmt 函数 将给定的浮点数转换为十进制数
　　flush 函数 将缓冲区的内容刷新到输出的文本文件中
　　fmtloadstr 函数 从程序的资源字符串表中装载字符串
　　fmtstr 函数 格式化一系列的参数，其结果以参数result返回
　　font 属性 设置字体
　　format 函数 格式化一系列的参数并返回pascal字符串
　　formatbuf 函数 格式化一系列的参数
　　formatdatetime 函数 用指定的格式来格式化日期和时间
　　formatfloat 函数 指定浮点数格式
　　frac 函数 返回参数的小数部分
　　freemem 函数 按给定大小释放动态变量所占的空间
　　getdir 返回指定驱动器的当前目录
　　getheapstatus 返回内存管理器的当前状态
　　getmem 建立一指定大小的动态变量，并将指针指向该处
　　getmemorymanager 返回内存管理器的入口点
　　glyph 函数 按钮上的图象
　　halt 停止程序的执行并返回到操作系统
　　hi 返回参数的高地址位
　　high 返回参数的上限值
　　hint 属性 提示信息
　　int 返回参数的整数部分
　　include 添加元素到集合中
　　insert 在字符串中插入子串
　　inttohex 将整型数转换为十六进制数
　　inttostr 将整型数转换为字符串
　　ioresult 返回最新的i/o操作完成状态
　　isvalidident 测试字符串是否为有效的标识符
　　items 属性 默认显示的节点
　　kind 属性 摆放样式
　　largechange 属性 最大改变值
　　layout 属性 图象布局
　　length 函数 返回字符串的动态长度
　　lines 属性 缺省显示内容
　　ln 函数 自然对数函数
　　lo 函数 返回参数的低地址位
　　loadstr 函数 从应用程序的可执行文件中装载字符资源
　　lowercase 函数 将给定的字符串变为小写
　　low 函数 返回参数的下限值
　　max 属性 最大值
　　maxlength 属性 最大长度
　　min 属性 最小值
　　mkdir 命令 建立一子目录
　　move 函数 从源到目标复制字节
　　multiselect 属性 允许同时选择几个数据项
　　name 属性 控件的名字
　　new 函数 建立新的动态变量并设置一指针变量指向他
　　newstr 函数 在堆栈上分配新的字符串
　　now 函数 返回当前的日期和时间
　　odd 测试参数是否为奇数
　　onactivate 事件 焦点移到窗体上时触发
　　onclick 事件 单击窗体空白区域触发
　　ondblclick 事件 双击窗体空白区域触发
　　onclosequery 事件 使用者试图关闭窗体触发
　　onclose 事件 窗体关闭后才触发
　　oncreate 事件 窗体第一次创建时触发
　　ondeactivate 事件 用户切换到另一应用程序触发
　　ondragdrop 事件 鼠标拖放操作结束时触发
　　ondragover 事件 有其他控件从他上面移过触发
　　onmousedown 事件 按下鼠标键时触发
　　onmouseup 事件 释放鼠标键时触发
　　onmousemove 事件 移动鼠标时触发
　　onhide 事件 隐藏窗体时触发
　　onkeydown 事件 按下键盘某键时触发
　　onkeypress 事件 按下键盘上的单个字符键时触发
　　onkeyup 事件 释放键盘上的某键时触发
　　onpaint 事件 窗体上有新部分暴露出来触发
　　onresize 事件 重新调整窗体大小触发
　　onshow 事件 在窗体实际显示之前瞬间触发
　　ord 返回序数类的序数
　　outlinestyle 属性 类型
　　outofmemoryerror 引起outofmemory意外
　　pageindex 属性 页索引
　　pages 属性 页
　　paramcount 函数 返回在命令行上传递给程序的参数数量
　　paramstr 函数 返回指定的命令行参数
　　pen 属性 画刷设置
　　pi 函数 返回圆周率pi
　　picture 属性 显示图象
　　pictureclosed 属性 设置closed位图
　　pictureleaf 属性 设置leaf位图
　　pictureminus 属性 设置minus位图
　　pictureopen 属性 设置open位图
　　pictureplus 属性 设置plus位图
　　pos 函数 在字符串中搜索子串
　　pred 函数 返回先前的参数
　　random 函数 返回一随机函数
　　randomize 函数 用一随机数初始化内置的随机数生成器
　　read 函数 对有格式的文件，读一文件组件到变量中；
　　对文本文件，读一个或多个值到一个或多个变量中
　　readln 函数 执行read过程，然后跳到文件下一行
　　readonly 属性 只读属性
　　reallocmem 函数 分配一动态变量
　　rename 函数 重命名外部文件
　　renamefile 函数 对文件重命名
　　reset 函数 打开已有的文件
　　rewrite 函数 建立并打开一新的文件
　　rmdir 函数 删除空的子目录
　　round 函数 将实数值舍入为整型值
　　runerror 函数 停止程序的执行
　　scrollbars 属性 滚动条状态
　　seek 函数 将文件的当前指针移动到指定的组件上
　　seekeof 函数 返回文件的文件结束状态
　　seekeoln 函数 返回文件的行结束状态
　　selectedcolor 属性 选中颜色
　　setmemorymanager 函数 设置内存管理器的入口点
　　settextbuf 函数 给文本文件指定i/o缓冲区
　　shape 属性 显示的形状
　　showexception 函数 显示意外消息与地址
　　sin 函数 正弦函数
　　sizeof 函数 返回参数所占的字节数
　　smallchange 属性 最小改变值
　　sorted 属性 是否允许排序
　　sqr 函数 平方函数
　　sqrt 函数 平方根函数
　　startmargin 属性 开始边缘
　　state 属性 控件当前状态
　　str 函数 将数值转换为字符串
　　stralloc 函数 给以null结束的字符串分配最大长度-1的缓冲区
　　strbufsize 函数 返回存储在由stralloc分配的字符缓冲区的最大字符数
　　strcat 函数 将一字符串附加到另一字符串尾并返回合并的字符串
　　strcomp 函数 比较两个字符串
　　strcopy 函数 将一个字符串复制到另一个字符串中
　　strdispose 函数 释放堆栈上的字符串
　　strecopy 函数 将一字符串复制到另一个字符串并返回结果字符串尾部的指针
　　strend 函数 返回指向字符串尾部的指针
　　stretch 属性 自动适应控件的大小
　　strfmt 函数 格式化一系列的参数
　　stricomp 函数 比较两个字符串（不区分大小写）
　　stringtowidechar 函数 将ansi字符串转换为unicode字符串
　　strlcat 函数 将一字符串中的字符附加到另一字符串尾并返回合并的字符串
　　strlcomp 函数 以最大长度比较两个字符串
　　strlcopy 函数 将一个字符串中的字符复制到另一个字符串中
　　strlen 函数 返回字符串中的字符数
　　strlfmt 函数 格式化一系列的参数，其结果中包含有指向目标缓冲区的指针
　　strlicomp 函数 以最大长度比较两个字符串（不区分大小写）
　　strlower 函数 将字符串中的字符转换为小写
　　strmove 函数 将一个字符串中的字符复制到另一个字符串中
　　strnew 函数 在堆栈上分配一个字符串
　　strpas 函数 将以null结束的字符串转换为pascal类的字符串
　　strpcopy 函数 将pascal类的字符串复制为以null结束的字符串
　　strplcopy 函数 从pascal类的最大长度字符串复制为以null结束的字符串
　　strpos 函数 返回一个字符串在另一个字符串中首次出现指针
　　strrscan 函数 返回字符串中最后出现字符的指针
　　strscan 函数 返回字符串中出现首字符的指针
　　strtodate 函数 将字符串转换为日期格式
　　strtodatetime 函数 将字符串转换为日期/时间格式
　　strtofloat 函数 将给定的字符串转换为浮点数
　　strtoint 函数 将字符串转换为整型
　　strtointdef 函数 将字符串转换为整型或默认值
　　strtotime 函数 将字符串转换为时间格式
　　strupper 函数 将字符串中的字符转换为大写
　　style 属性 类型选择
　　suce 函数 返回后继的参数
　　swap 函数 交换参数的高低地址位
　　tabs 属性 标记每一项的内容
　　tabindex 属性 标记索引
　　text 属性 显示的文本
　　texttofloat 函数 将字符串（以null结束的格式）转换为浮点数
　　time 函数 返回当前的时间
　　timetostr 函数 将时间格式转换为字符串
　　trim 函数 从给定的字符串中删除前导和尾部的空格及控制字符
　　trimleft 函数 从给定的字符串中删除首部的空格及控制字符
　　trimright 函数 从给定的字符串中删除尾部的空格及控制字符
　　trunc 函数 将实型值截取为整型值
　　truncate 函数 截去当前文件位置后的内容
　　unselectedcolor 属性 未选中颜色
　　upcase 将字符转换为大写
　　uppercase 将给定的字符串变为大写
　　val 函数 将字符串转换为整型值
　　vararraycreate 函数 以给定的界限和维数建立变体数组
　　vararraydimcount 函数 返回给定变体的维数
　　vararrayhighbound 函数 返回给定变体数组维数的上界
　　vararraylock 函数 锁定给定的变体数组
　　vararraylowbound 函数 返回给定变体数组维数的下界
　　vararrayof 函数 返回指定变体的数组元素
　　vararrayredim 函数 通过改变上限来调整变体的大小
　　vararrayunlock 函数 解锁指定的变体数组
　　varastype 函数 将变体转换为指定的类型
　　varcase 函数 将变体转换为指定的类型并保存他
　　varclear 函数 清除指定的变体
　　varcopy 函数 将指定的变体复制为指定的变体
　　varformdatetime 函数 返回包含日期时间的变体
　　varisarray 函数 测试变体是否为数组
　　varisempty 函数 测试变体是否为unassigned
　　varisnull 函数 测试变体是否为null
　　vartodatetime 函数 将给定的变体转换为日期时间
　　vartype 函数 将变体转换为指定的类型并保存他
　　visible 属性 控件的可见性
　　wantreturns 属性 为true时，按回车键产生一个回车符；
　　为false时，按下ctrl+enter才产生回车符
　　write 命令 对有格式的文件，写一变量到文件组件中；
　　对文本文件，写一个或多个值到文件中
　　writeln 命令 执行write过程，然后输出一行结束标志
　　widecharlentostring 函数 将ansi字符串转换为unicode字符串
　　widecharlentostrwar 函数 将unicode字符串转换为ansi字符串变量
　　widechartostring 函数 将unicode字符串转换为ansi字符串
　　
　　widechartostrvar 函数 将unicode字符串转换为ansi字符串变量

please send me to:
;
dqwjs@etang.com
dqwjs@263.net

查收！

买个D版的
就有的呀

To Xxfeng:
; ;发到哪个邮箱了？ 我没有收到！

To lanjiancn:
; ;我的没有，如果有，请发到
dqwjs@etang.com
dqwjs@263.net

分数不是问题，我可以另外开帖。

以下是我的for delphi6,以前搞的， 汉化不彻底， 但够用了。
文件名：consts.pas


{*******************************************************}
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ ; ; ; Borland Delphi Visual Component Library ; ; ; ; }
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ ;Copyright (c) 1995-2001 Borland Software Corporation }
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{*******************************************************}

unit Consts;

interface

resourcestring
; SOpenFileTitle = '打开';
; SCantWriteResourceStreamError = '无法写入一个只读的资源流';
; SDuplicateReference = 'WriteObject 对同一个实例调用了两次';
; SClassMismatch = '资源 %s 是无效的类';
; SInvalidTabIndex = '标签索引超界';
; SInvalidTabPosition = '标签位置与当前的标签类型冲突';
; SInvalidTabStyle = '标签类型与当前的标签位置冲突';
; SInvalidBitmap = '位图图象无效';
; SInvalidIcon = '图标图象无效';
; SInvalidMetafile = '元文件无效';
; SInvalidPixelFormat = '无效的像素格式';
; SInvalidImage = 'Invalid image';
; SBitmapEmpty = '位图为空';
; SScanLine = '扫描线索引超界';
; SChangeIconSize = '无法改变图标大小';
; SOleGraphic = 'TOleGraphic 上的无效操作';
; SUnknownExtension = '未知的图象文件扩展名 (.%s)';
; SUnknownClipboardFormat = '不支持的剪贴板格式';
; SOutOfResources = '系统资源不足';
; SNoCanvasHandle = '不允许绘图';
; SInvalidImageSize = '无效的图象大小';
; STooManyImages = '图象太多';
; SDimsDoNotMatch = '图象维数与图象列表维数不匹配';
; SInvalidImageList = '无效的图象列表';
; SReplaceImage = '无法替换图象';
; SImageIndexError = '无效的图象列表索引';
; SImageReadFail = '从流中读取图象列表数据失败';
; SImageWriteFail = '将图象列表数据写入流失败';
; SWindowDCError = '创建窗口设备描述失败';
; SClientNotSet = 'TDrag 客户区没有初始化';
; SWindowClass = '创建窗口类失败';
; SWindowCreate = '创建窗口失败';
; SCannotFocus = '无法聚焦到失效的或不可见的窗口';
; SParentRequired = '控件 ''%s'' 没有父窗口';
; SParentGivenNotAParent = 'Parent given is not a parent of ''%s''';
; SMDIChildNotVisible = '无法隐藏 MDI 子窗口';
; SVisibleChanged = '无法在 OnShow 或 OnHide 事件中改变可是否视';
; SCannotShowModal = '无法使不可见窗口成为模态';
; SScrollBarRange = '滚动条属性超界';
; SPropertyOutOfRange = '%s 属性超界';
; SMenuIndexError = '菜单索引超界';
; SMenuReinserted = '菜单被插入了两次';
; SMenuNotFound = '子菜单不在菜单内';
; SNoTimers = '可用的计时器不足';
; SNotPrinting = '打印机当前不在打印状态';
; SPrinting = '打印正在进行';
; SPrinterIndexError = '打印机索引超界';
; SInvalidPrinter = '选定的打印机无效';
; SDeviceOnPort = '%s 在 %s 上';
; SGroupIndexTooLow = '组索引不能小于前一个菜单项的组索引';
; STwoMDIForms = '每个应用程序只能有一个 MDI 窗口';
; SNoMDIForm = '无法创建窗口. 目前没有活动的 MDI 窗口';
; SImageCanvasNeedsBitmap = '当图象为位图时才能修改它';
; SControlParentSetToSelf = '控件不能将自身作为父窗口';
; SOKButton = '确定';
; SCancelButton = '取消';
; SYesButton = '是[&Y]';
; SNoButton = '否[&N]';
; SHelpButton = '帮助[&H]';
; SCloseButton = '关闭[&C]';
; SIgnoreButton = '忽略[&I]';
; SRetryButton = '重试[&R]';
; SAbortButton = '中断[&A]';
; SAllButton = '全部[&A]';

; SCannotDragForm = '无法拖动窗口';
; SPutObjectError = '移动对象给不明确的项目';
; SCardDLLNotLoaded = '无法载入 CARDS.DLL';
; SDuplicateCardId = '发现重复的 CardId';

; SDdeErr = 'DDE 返回错误 ($0%x)';
; SDdeConvErr = 'DDE 错误 - 会话未确定 ($0%x)';
; SDdeMemErr = 'DDE 运行内存不足时发生错误 ($0%x)';
; SDdeNoConnect = '无法连接到 DDE 会话';

; SFB = 'FB';
; SFG = 'FG';
; SBG = 'BG';
; SOldTShape = '无法载入旧版本的 TShape';
; SVMetafiles = '元文件';
; SVEnhMetafiles = '扩展元文件';
; SVIcons = '图标';
; SVBitmaps = '位图';
; SGridTooLarge = '表格太大,无法进行操作';
; STooManyDeleted = '过多的行或列被删除';
; SIndexOutOfRange = '表格索引超界';
; SFixedColTooBig = '固定列必须少于总列数';
; SFixedRowTooBig = '固定行必须少于总行数';
; SInvalidStringGridOp = '无法在表格中删除或插入行';
; SInvalidEnumValue = 'Invalid Enum Value';
; SInvalidNumber = 'Invalid numeric value';
; SOutlineIndexError = 'Outline index not found';
; SOutlineExpandError = 'Parent must be expanded';
; SInvalidCurrentItem = 'Invalid value for current item';
; SMaskErr = '无效的输入值';
; SMaskEditErr = '无效的输入值. ;按[Esc]键取消所作的修改';
; SOutlineError = '无效的 Outline 索引';
; SOutlineBadLevel = '级别分配错误';
; SOutlineSelection = '无效的选择';
; SOutlineFileLoad = '载入文件错误';
; SOutlineLongLine = '行太长';
; SOutlineMaxLevels = '超过了 Outline 最大深度';

; SMsgDlgWarning = '警告';
; SMsgDlgError = '错误';
; SMsgDlgInformation = '信息';
; SMsgDlgConfirm = '确认';
; SMsgDlgYes = '是[&Y]';
; SMsgDlgNo = '否[&N]';
; SMsgDlgOK = '确定';
; SMsgDlgCancel = '取消';
; SMsgDlgHelp = '帮助[&H]';
; SMsgDlgHelpNone = '没有可用的帮助';
; SMsgDlgHelpHelp = '帮助';
; SMsgDlgAbort = '中断[&A]';
; SMsgDlgRetry = '重试[&R]';
; SMsgDlgIgnore = '忽略[&I]';
; SMsgDlgAll = '全部[&A]';
; SMsgDlgNoToAll = '全部不是[&o]';
; SMsgDlgYesToAll = '全是[&A]';

; SmkcBkSp = '回退';
; SmkcTab = 'Tab';
; SmkcEsc = 'Esc';
; SmkcEnter = '回车';
; SmkcSpace = '空格';
; SmkcPgUp = 'PgUp';
; SmkcPgDn = 'PgDn';
; SmkcEnd = 'End';
; SmkcHome = 'Home';
; SmkcLeft = '左';
; SmkcUp = '上';
; SmkcRight = '右';
; SmkcDown = '下';
; SmkcIns = '插入';
; SmkcDel = '删除';
; SmkcShift = 'Shift+';
; SmkcCtrl = 'Ctrl+';
; SmkcAlt = 'Alt+';

; srUnknown = '(未知)';
; srNone = '(无)';
; SOutOfRange = '取值必须从 %d 到 %d';
;
; SDateEncodeError = '参数对于对于日期编码无效';
; SDefaultFilter = '所有文件 (*.*)|*.*';
; sAllFilter = '全部';
; SNoVolumeLabel = ': [ - 无卷标 - ]';
; SInsertLineError = '无法插入行';

; SConfirmCreateDir = '指定的目录不存在. 创建吗?';
; SSelectDirCap = '选择目录';
; SDirNameCap = '目录名[&N]:';
; SDrivesCap = '磁盘驱动器[D&]:';
; SDirsCap = '目录[&D]:';
; SFilesCap = '文件[&F]: (*.*)';
; SNetworkCap = '网络[&t]...';

; SColorPrefix = '颜色'; ; ; ; ; ; ; ; //!! obsolete - delete in 5.0
; SColorTags = 'ABCDEFGHIJKLMNOP'; ; ; ;//!! obsolete - delete in 5.0

; SInvalidClipFmt = '无效的剪贴板格式';
; SIconToClipboard = '剪贴板不支持图标';
; SCannotOpenClipboard = '无法打开剪贴板';

; SDefault = '缺省';

; SInvalidMemoSize = '文本超过 Memo 容量';
; SCustomColors = '自定义颜色';
; SInvalidPrinterOp = '指定的打印机不支持该操作';
; SNoDefaultPrinter = '目前没有选择缺省打印机';

; SIniFileWriteError = '无法写入 %s';

; SBitsIndexError = '位索引超界';

; SUntitled = '(未命名)';

; SInvalidRegType = '对于 ''%s'' 无效的数据类型';

; SUnknownConversion = '未知的 RichEdit 转换文件扩展名 (.%s)';
; SDuplicateMenus = '菜单 ''%s'' 已经被其他窗口使用了';

; SPictureLabel = '图象:';
; SPictureDesc = ' (%dx%d)';
; SPreviewLabel = '预览';

; SCannotOpenAVI = '无法打开 AVI';

; SNotOpenErr = '没有打开的 MCI 设备';
; SMPOpenFilter = '所有文件 (*.*)|*.*|Wave 文件 (*.wav)|*.wav|Midi 文件 (*.mid)|*.mid|Avi 文件 (*.avi)|*.avi';
; SMCINil = '';
; SMCIAVIVideo = 'AVI 视频';
; SMCICDAudio = 'CD 音频';
; SMCIDAT = 'DAT';
; SMCIDigitalVideo = '数字视频';
; SMCIMMMovie = '影片';
; SMCIOther = '其他';
; SMCIOverlay = '覆盖';
; SMCIScanner = '扫描器';
; SMCISequencer = '序列发生器';
; SMCIVCR = 'VCR';
; SMCIVideodisc = '视盘';
; SMCIWaveAudio = 'Wave 音频';
; SMCIUnknownError = '未知的错误代号';

; SBoldItalicFont = '粗体 斜体';
; SBoldFont = '粗体';
; SItalicFont = '斜体';
; SRegularFont = '正常';

; SPropertiesVerb = '属性';

; SServiceFailed = '%s 服务失败: %s';
; SExecute = '执行';
; SStart = '开始';
; SStop = '停止';
; SPause = '暂停';
; SContinue = '继续';
; SInterrogate = '询问';
; SShutdown = '关闭';
; SCustomError = '服务在自定义消息(%d)中失败: %s';
; SServiceInstallOK = '服务安装成功';
; SServiceInstallFailed = '服务 "%s" 安装失败,错误信息为: "%s"';
; SServiceUninstallOK = '服务卸载成功';
; SServiceUninstallFailed = '服务 "%s" 卸载失败,错误信息为: "%s"';

; SInvalidActionRegistration = '动作注册无效';
; SInvalidActionUnregistration = '动作取消注册无效';
; SInvalidActionEnumeration = '动作列举无效';
; SInvalidActionCreation = '动作创建无效';

; SDockedCtlNeedsName = '驻停式控件必须具有名称';
; SDockTreeRemoveError = '从驻停树中删除控件错误';
; SDockZoneNotFound = ' - 未发现驻停区域';
; SDockZoneHasNoCtl = ' - 驻停区域中没有控件';

; SAllCommands = '全部命令';

; SDuplicateItem = '列表不充许复制 ($0%x)';

; STextNotFound = 'Text not found: "%s"';
; SBrowserExecError = 'No default browser is specified';

; SColorBoxCustomCaption = '定制...';

; SMultiSelectRequired = 'Multiselect mode must be on for this feature';

; SKeyCaption = 'Key';
; SValueCaption = '值';
; SKeyConflict = 'A key with the name of "%s" already exists';
; SKeyNotFound = 'Key "%s" not found';
; SNoColumnMoving = 'goColMoving is not a supported option';
; SNoEqualsInKey = 'Key may not contain equals sign ("=")';

; SSendError = 'Error sending mail';
; SAssignSubItemError = 'Cannot assign a subitem to an actionbar when one of it''s parent''s is already assigned to an actionbar';
; SDeleteItemWithSubItems = 'Item %s has subitems, delete anyway?';
; SMoreButtons = 'More Buttons';
; SErrorDownloadingURL = 'Error downloading URL: %s';
; SAllActions = '(All Actions)';
; SNoCategory = '(No Category)';
; SExpand = 'Expand';
; SErrorSettingPath = 'Error setting path: "%s"';
; SLBPutError = 'Attempting to put items into a virtual style listbox';
; SErrorLoadingFile = 'Error loading previously saved settings file: %s'#13'Would you like to delete it?';
; SResetUsageData = 'Reset all usage data?';
; SFileRunDialogTitle = '运行';
; SNoName = '(No Name)'; ; ; ;
; SErrorActionManagerNotAssigned = 'ActionManager must first be assigned';
; SAddRemoveButtons = '&Add or Remove Buttons';
; SResetActionToolBar = 'Reset Toolbar';
; SCustomize = '&Customize';
; SSeparator = 'Separator';
; SCirularReferencesNotAllowed = 'Circular references not allowed';
; SCannotHideActionBand = '%s does not allow hiding';
; SErrorSettingCount = 'Error setting %s.Count';
; SListBoxMustBeVirtual = 'Listbox (%s) style must be virtual in order to set Count';
; SUnableToSaveSettings = 'Unable to save settings'; ;

implementation

end.

文件名：Dbconsts.pas

{ *************************************************************************** }
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ Kylix and Delphi Cross-Platform Visual Component Library ; ; ; ; ; ; ; ; ; ;}
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ Copyright (c) 1997, 2001 Borland Software Corporation ; ; ; ; ; ; ; ; ; ; ; }
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ *************************************************************************** }


unit DbConsts;

interface

resourcestring
; SInvalidFieldSize = '字段大小无效';
; SInvalidFieldKind = '字段类型无效';
; SInvalidFieldRegistration = '字段注册无效';
; SUnknownFieldType = '字段 ''%s'' 类型未知';
; SFieldNameMissing = '字段名丢失';
; SDuplicateFieldName = '字段名 ''%s'' 重复';
; SFieldNotFound = '未发现字段 ''%s''';
; SFieldAccessError = '无法将字段 ''%s'' 作为 %s 类型存取';
; SFieldValueError = '字段 ''%s'' 取值无效';
; SFieldRangeError = '%g 对于字段 ''%s'' 是无效的. 允许的取值范围是从 %g 到 %g';
; SBcdFieldRangeError = '%s is not a valid value for field ''%s''. The allowed range is %s to %s';
; SInvalidIntegerValue = '''%s'' 对于字段 ''%s'' 不是有效的整数值';
; SInvalidBoolValue = '''%s'' 对于字段 ''%s'' 不是有效的布尔值';
; SInvalidFloatValue = '''%s'' 对于字段 ''%s'' 不是有效的浮点值';
; SFieldTypeMismatch = '字段 ''%s'' 类型不匹配, 希望类型: %s, 实际类型: %s';
; SFieldSizeMismatch = '字段 ''%s'' 大小不匹配, 希望大小: %d, 实际大小: %d';
; SInvalidVarByteArray = '字段 ''%s'' 变量类型或大小无效';
; SFieldOutOfRange = '字段 ''%s'' 取值超界';
// ;SBCDOverflow = '(溢出)';
; SFieldRequired = '字段 ''%s'' 必须赋值';
; SDataSetMissing = '字段 ''%s'' 没有指定数据集';
; SInvalidCalcType = '字段 ''%s'' 不能作为计算字段或查找字段';
; SFieldReadOnly = '字段 ''%s'' 不能修改';
; SFieldIndexError = '字段索引超界';
; SNoFieldIndexes = '目前没有活动的索引';
; SNotIndexField = '字段 ''%s'' 没有索引, 无法修改';
; SIndexFieldMissing = '无法存取索引字段 ''%s''';
; SDuplicateIndexName = '索引名重复 ''%s''';
; SNoIndexForFields = '字段 ''%s'' 没有索引';
; SIndexNotFound = '未发现索引 ''%s''';
; SDuplicateName = '%s 中 ''%s'' 重名';
; SCircularDataLink = '不允许循环的数据连接';
; SLookupInfoError = '字段 ''%s'' 的查找信息不完整';
; SNewLookupFieldCaption = 'New Lookup Field';
; SDataSourceChange = '数据源不能修改';
; SNoNestedMasterSource = '嵌套的数据集不能拥有主数据源';
; SDataSetOpen = '无法在打开的数据集上执行该操作';
; SNotEditing = '数据集不在修改或插入模式';
; SDataSetClosed = '无法在关闭的数据集上执行该操作';
; SDataSetEmpty = '无法在空数据集上执行该操作';
; SDataSetReadOnly = '无法修改只读的数据集';
; SNestedDataSetClass = '嵌套的数据集必须从 %s 继承';
; SExprTermination = '过滤表达式不正常结束';
; SExprNameError = '字段名未终止';
; SExprStringError = '字符串常数未终止';
; SExprInvalidChar = '无效的过滤表达式字符: ''%s''';
; SExprNoLParen = '希望 ''('', 但发现了 %s';
; SExprNoRParen = '希望 '')'', 但发现了 %s';
; SExprNoRParenOrComma = '希望 '')'' 或 '','', 但发现了 %s';
; SExprExpected = '希望表达式, 但发现了 %s';
; SExprBadField = '字段 ''%s'' 不允许在过滤表达式中使用';
; SExprBadNullTest = 'NULL 只允许用于 ''='' 和 ''<>''';
; SExprRangeError = '常数超界';
; SExprNotBoolean = '字段 ''%s'' 不是布尔类型';
; SExprIncorrect = '过滤表达式形式不正确';
; SExprNothing = '无';
; SExprTypeMis = '表达式类型不匹配';
; SExprBadScope = '该操作不能混合合计值和各记录变化的值';
; SExprNoArith = '不支持过滤表达式中的算法';
; SExprNotAgg = '表达式不是合计表达式';
; SExprBadConst = '常数不是正确的 %s 类型';
; SExprNoAggFilter = '过滤中不允许合计表达式';
; SExprEmptyInList = 'IN 列表不能为空';
; SInvalidKeywordUse = '关键字使用错误';
; STextFalse = '假';
; STextTrue = '真';
; SParameterNotFound = '未发现参数 ''%s''';
; SInvalidVersion = '无法载入约束参数';
; SParamTooBig = '参数 ''%s'', 无法保存大于 %d 字节的数据';
; SBadFieldType = '不支持字段 ''%s'' 的数据类型';
; SAggActive = '合计处于活动状态时不能修改属性';
; SProviderSQLNotSupported = 'SQL 不支持: %s';
; SProviderExecuteNotSupported = '运行不支持: %s';
; SExprNoAggOnCalcs = '字段 ''%s'' 的类型不能用于汇总计算, 使用内部计算';
; SRecordChanged = '记录已由其他用户修改';
; SDataSetUnidirectional = 'Operation not allowed on a unidirectional dataset';
; SUnassignedVar = 'Unassigned variant value';
; SRecordNotFound = '该记录没有找到';
; SFileNameBlank = '文件名属性不能为空';

{ For FMTBcd }

; SBcdOverflow = 'BCD 溢出';
; SInvalidBcdValue = '%s 不是有效的BCD值';
; SInvalidFormatType = 'Invalid format type for BCD';

{ For SqlTimSt }

; SCouldNotParseTimeStamp = 'Could not parse SQL TimeStamp string';
; SInvalidSqlTimeStamp = '无效的SQL date/time 值';

; SDeleteRecordQuestion = '删除记录吗?';
; SDeleteMultipleRecordsQuestion = '删除所有选中的记录吗?';
; STooManyColumns = '表格试图显示超过256列';

implementation

end.

文件名：QDBConsts.pas
{ *************************************************************************** }
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ Delphi and Kylix Cross-Platform Visual Component Library ; ; ; ; ; ; ; ; ; ;}
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ Copyright (c) 1997, 2001 Borland Software Corporation ; ; ; ; ; ; ; ; ; ; ; }
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ Licensees holding a valid Borland No-Nonsense License for this Software may }
{ use this file in accordance with such license, which appears in the file ; ;}
{ license.txt that came with this Software. ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; }
{ *************************************************************************** }


unit QDBConsts;

interface

resourcestring
; { DBCtrls }
; SFirstRecord = '第一条记录';
; SPriorRecord = '上一条记录';
; SNextRecord = '下一条记录';
; SLastRecord = '最后一条记录';
; SInsertRecord = '插入记录';
; SDeleteRecord = '删除记录';
; SEditRecord = '编辑记录';
; SPostEdit = '保存改动';
; SCancelEdit = '取消改动';
; SConfirmCaption = '确认';
; SRefreshRecord = '刷新数据';
; SDeleteRecordQuestion = '删除记录吗?';
; SDeleteMultipleRecordsQuestion = '删除所有选中的记录吗?';
; SDataSourceFixed = '操作不允许在 DBCtrlGrid 上执行';
; SNotReplicatable = '控件不允许在 DBCtrlGrid 中使用';
; SPropDefByLookup = '属性已经被lookup字段所定义了';
; STooManyColumns = '表格试图显示超过256列';
;
; { DBLogDlg }
; SRemoteLogin = '远程登录';
;

implementation

end.

太好了阿！干脆打包上传，www.playicq.com

多谢各位，就要发分了。

请 Xxfeng 富翁到我另外的帖子去取分。这里的分数只有300，只好给HD_Copy 、htw两位了。
对其他富翁的关心，说声谢谢！