home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / tricks / textverl.inc < prev    next >
Text File  |  1989-11-14  |  1KB  |  38 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   TEXTVERL.INC                         *)
  3. (* ------------------------------------------------------ *)
  4.  
  5. (* vom Programm wird benötigt:
  6.  
  7. TYPE
  8.   FName = STRING(.14.);
  9.  
  10. VAR
  11.   TF   : TEXT;
  12.   Name : FName;                                           *)
  13.  
  14.   PROCEDURE Text_File_VerL(Name : FName);
  15.   VAR
  16.     TFA     : TEXT;
  17.     NameAlt : FName;
  18.     Satz    : STRING(.255.);
  19.   BEGIN
  20.     Assign(TF, Name);
  21.     {$I-}
  22.     Reset(TF);
  23.     {$I+}                  (* existiert FILE mit 'Name' ? *)
  24.     IF IOResult = 0 THEN BEGIN                      (* ja *)
  25.       Close(TF);
  26.       NameAlt := Copy(Name, 1, Pos('.', Name)) + 'ALT';
  27.       Rename(TF, NameAlt);
  28.       Assign(TF,  Name);     Rewrite(TF);
  29.       Assign(TFA, NameAlt);  Reset(TFA);
  30.       WHILE NOT EOF(TFA) DO BEGIN
  31.         ReadLn(TFA, Satz);
  32.         WriteLn(TF, Satz);
  33.       END;
  34.        Close(TFA);  Erase(TFA);
  35.     END ELSE Rewrite(TF);
  36.   END;
  37. (* ------------------------------------------------------ *)
  38. (*                Ende von TEXTVERL.INC                   *)