home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / LEXMPSRC.RAR / RES.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  891b  |  35 lines
  1. {█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
  2. {█                                                       █}
  3. {█      Virtual Pascal for Linux                         █}
  4. {█      Test example for resource loading                █}
  5. {█      ─────────────────────────────────────────────────█}
  6. {█      Copyright (C) 1999 Joerg Pleumann                █}
  7. {█                                                       █}
  8. {▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
  9.  
  10. program Res;
  11.  
  12. uses
  13.   SysUtils;
  14.  
  15. var
  16.   I: Integer;
  17.  
  18. begin
  19.   WriteLn('These are the day names as loaded from the application resources:');
  20.   WriteLn;
  21.  
  22.   for I := 1 to 7 do
  23.     WriteLn(LongDayNames[I]);
  24.  
  25.   WriteLn;
  26.   WriteLn('These are the day names as loaded from the application resources:');
  27.   WriteLn;
  28.  
  29.   for I := 1 to 12 do
  30.     WriteLn(LongMonthNames[I]);
  31.  
  32.   WriteLn;
  33. end.
  34.  
  35.