home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / LEXMPSRC.RAR / FILES.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  1KB  |  55 lines
  1. {█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
  2. {█                                                       █}
  3. {█      Virtual Pascal for Linux                         █}
  4. {█      Test example for basic file operations           █}
  5. {█      ─────────────────────────────────────────────────█}
  6. {█      Copyright (C) 1999 Joerg Pleumann                █}
  7. {█                                                       █}
  8. {▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
  9.  
  10. program Files;
  11.  
  12. uses
  13.   Strings, VpSysLow;
  14.  
  15. var
  16.   T: Text;
  17.   I: Integer;
  18.  
  19. begin
  20.   {$I+}
  21.   WriteLn('Creating stupid test file "Testfile.Dat"...');
  22.  
  23.   Assign(T, 'Testfile.Dat');
  24.   Rewrite(T);
  25.  
  26.   for I := 32 to 255 do
  27.     WriteLn(T, 'Asc(', I:3, ') = ', Chr(I));
  28.  
  29.   Close(T);
  30.  
  31.   WriteLn('Copying it to "Testfile.Bak"...');
  32.   if not SysFileCopy('Testfile.Dat', 'Testfile.Bak', True) then
  33.   begin
  34.     WriteLn('Error!');
  35. //    Halt;
  36.   end;
  37.  
  38.   WriteLn('Deleting original file...');
  39.   if SysFileDelete('Testfile.Dat') <> 0 then
  40.   begin
  41.     WriteLn('Error!');
  42. //    Halt;
  43.   end;
  44.  
  45.  
  46.   WriteLn('Renaming copy to "Testfile.Org"...');
  47.   if SysFileMove('Testfile.Bak', 'Testfile.Org') <> 0 then
  48.   begin
  49.     WriteLn('Error!');
  50. //    Halt;
  51.   end;
  52.  
  53.   WriteLn('Perfect! :-)');
  54. end.
  55.