home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Classic / MultimediaClassic.mdf / utility / vts139b.arj / MAKESTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-04-24  |  776 b   |  40 lines
  1. PROGRAM MakeStr;
  2.  
  3. USES Objects, StrConst, VTStrConst;
  4.  
  5.  
  6. CONST
  7.   EspHeader : STRING = 'VT LNG. Fichero de lenguajes del VangeliSTracker. Español.'#$1A;
  8.   EngHeader : STRING = 'VT LNG. VangeliSTracker language file. English.'#$1A;
  9.  
  10. VAR
  11.   Stream : TDosStream;
  12.   List   : TStrListMaker;
  13.  
  14. BEGIN
  15.  
  16.   List.Init(65520, 65520);
  17.  
  18.   LibAddSpanishMsg(List);
  19.   VTAddSpanishMsg (List);
  20.  
  21.   Stream.Init('VT_Esp.Lng', stCreate);
  22.   Stream.Write(EspHeader[1], Length(EspHeader));
  23.   List.Store(Stream);
  24.   Stream.Done;
  25.   List.Done;
  26.  
  27.  
  28.  
  29.   List.Init(65520, 65520);
  30.  
  31.   LibAddEnglishMsg(List);
  32.   VTAddEnglishMsg (List);
  33.  
  34.   Stream.Init('VT_Eng.Lng', stCreate);
  35.   Stream.Write(EngHeader[1], Length(EngHeader));
  36.   List.Store(Stream);
  37.   Stream.Done;
  38.   List.Done;
  39.  
  40. END.