home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / toolbox / reorg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-21  |  1.2 KB  |  43 lines
  1. (* ------------------------------------------------- *)
  2. (*                   REORG.PAS                       *)
  3. (*       (c) 1990, 1992 Horst Zein & DMV-Verlag      *)
  4. (* ------------------------------------------------- *)
  5. PROGRAM ReOrg;
  6.  
  7. USES Crt, Index;
  8.  
  9. TYPE
  10.   Daten   = RECORD
  11.               Nr   : LONGINT;
  12.               Name : STRING [20];
  13.             END;
  14.  
  15. VAR
  16.   d       : Daten;
  17.   dFile,
  18.   dTemp   : FILE OF Daten;
  19.   DateiNr : BYTE;                   { schlüssige Bez. }
  20.  
  21. BEGIN
  22.   ClrScr;
  23.   DateiNr := 3;
  24.   Assign(dTemp, 'DTEMP.DAT');  Rewrite(dTemp);
  25.   Assign(Kette, 'DATEN.IDX');  ReadKette;
  26.   Assign(dFile, 'DATEN.DAT');  Reset(dFile);
  27.   Find := Root[DateiNr];
  28.   WHILE Find <> NIL DO BEGIN
  29.     Seek(dFile, Find^.RecNo);  Read(dFile, d);
  30.     WriteLn('Satz alt/neu: ', Find^.RecNo:6, '/',
  31.              FileSize(dTemp):6, 'Name: ':11,
  32.              d.name:21, 'Nummer: ':10, d.Nr:10);
  33.     Find^.RecNo := FileSize(dTemp);
  34.     Write(dTemp, d);
  35.     Find := Find^.Next;
  36.   END;
  37.   Close(dFile);  Close(dTemp);
  38.   Erase(dFile);  Rename(dTemp, 'DATEN.DAT');
  39.   WriteKette;
  40. END.
  41. (* ------------------------------------------------- *)
  42. (*              Ende von REORG.PAS                   *)
  43.