home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 04 / tricks / strunit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-15  |  908 b   |  32 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    STRUNIT.PAS                         *)
  3. (*          (c) 1990   & TOOLBOX                          *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM StrUnit;
  6.  
  7. USES Dos;
  8.  
  9. VAR
  10.   i        : BYTE;
  11.   StrDatei : TEXT;
  12.  
  13. BEGIN
  14.   Assign(StrDatei, 'STRINGS.PAS');
  15.   ReWrite(StrDatei);
  16.   WriteLn(StrDatei, 'UNIT Strings;');
  17.   WriteLn(StrDatei);
  18.   WriteLn(StrDatei, 'INTERFACE');
  19.   WriteLn(StrDatei);
  20.   FOR i:= 1 TO 255 DO
  21.     WriteLn(StrDatei, 'TYPE   Str_', i,
  22.             Chr(9), '= STRING[', i:3, '];');
  23.   WriteLn(StrDatei);
  24.   WriteLn(StrDatei);
  25.   WriteLn(StrDatei, 'IMPLEMENTATION');
  26.   WriteLn(StrDatei);
  27.   WriteLn(StrDatei, 'END.');
  28.   Close(StrDatei);
  29. END.
  30. (* ------------------------------------------------------ *)
  31. (*                Ende von STRUNIT.PAS                    *)
  32.