demostrs.pas

还是一个词法分析程序

{************************************************}
{                                                }
{   Turbo Vision Demo                            }
{   Copyright (c) 1990 by Borland International  }
{                                                }
{************************************************}

unit DemoStrs;

interface

const
  sNoMem = 1;
  sErrorReading = 2;
  sErrorWriting = 3;
  sErrorCreating = 4;
  sModified = 5;
  sSaveUntitled = 6;
  sStrNotFound = 7;
  sReplace = 8;
  sErrorHelp = 9;
  sErrorOpenDesk = 10;
  sErrorReadingDesk = 11;
  sDeskInvalid = 12;
  sErrorDeskCreate = 13;

implementation

end.