fs_iconst.pas

来自「地址档案管理系统」· PAS 代码 · 共 59 行

{******************************************}
{                                          }
{             FastScript v1.7              }
{                Resources                 }
{                                          }
{ (c) 2003, 2004 by Alexander Tzyganenko,  }
{             Fast Reports, Inc            }
{                                          }
{******************************************}

unit fs_iconst;

interface

{$i fs.inc}

var
  SLangNotFound: String;
  SInvalidLanguage: String;
  SIdRedeclared: String;
  SUnknownType: String;
  SIncompatibleTypes: String;
  SIdUndeclared: String;
  SClassRequired: String;
  SIndexRequired: String;
  SStringError: String;
  SClassError: String;
  SArrayRequired: String;
  SVarRequired: String;
  SNotEnoughParams: String;
  STooManyParams: String;
  SLeftCantAssigned: String;
  SForError: String;
  SEventError: String;

implementation

initialization
  SLangNotFound := '找不到 ''%s'' 语言';
  SInvalidLanguage := '不合法的语言定义';
  SIdRedeclared := '识别字重复宣告: ';
  SUnknownType := '未知的型态: ';
  SIncompatibleTypes := '不相容的型态';
  SIdUndeclared := '识别字未宣告: ';
  SClassRequired := '此处需要类别(Class)型态';
  SIndexRequired := '此处需要索引(Index)';
  SStringError := 'Strings没有属性(properties)或方法(methods)';
  SClassError := '类别(Class) %s 没有预设的属性';
  SArrayRequired := '此处需要阵列型态';
  SVarRequired := '此处需要变数';
  SNotEnoughParams := '实际的参数个数不符';
  STooManyParams := '参数个数太多';
  SLeftCantAssigned := '左边的变数不能指定新的值';
  SForError := 'for..loop变数必须是数值变数';
  SEventError := '事件处理程式必须是程序(procedure)';

end.