home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 01 / tricks / nolist.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-10-10  |  1.8 KB  |  58 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      NOLIST.PAS                        *)
  3. (*       Programm zur Demonstration der Unit Header       *)
  4. (*         (c) 1989 by Ofer Schakowski & TOOLBOX          *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM NoList2;
  7.  
  8. USES Crt, Dos, Headers;
  9.  
  10. CONST
  11.   Mitteilung  : HeaderStr = 'Die Datei enthält keine '+
  12.                             'lesbaren Informationen.';
  13. VAR
  14.   Zaehler     : WORD;
  15.   Dateiname   : PathStr;
  16.   ZwischenStr : HeaderStr;
  17.  
  18. PROCEDURE Info;
  19. BEGIN
  20.   Writeln;
  21.   Writeln('Aufruf: NOLIST Datei [ Option / Mitteilung ]');
  22.   Writeln;
  23.   Writeln('Option: -R oder');
  24.   Writeln('        /R(emove)    Entfernen der Mitteilung');
  25.   Writeln;
  26.   Writeln('Voreingestellte Mitteilung:');
  27.   Writeln('       ',Mitteilung);
  28.   Writeln;
  29.   TextAttr := TextAttr + Blink;
  30.   Writeln('Achtung:');
  31.   TextAttr := TextAttr - Blink;
  32.   Writeln('Es wird bei /R(emove) nicht überprüft, ob eine'+
  33.           ' Mitteilung gesetzt wurde');
  34.   Writeln('oder nicht. Es werden immer die ersten 128 '+
  35.           'Bytes entfernt !');
  36.   Halt;
  37. END;
  38.  
  39. BEGIN
  40.   Writeln('NOLIST  Version 1.1  Copyright ' +
  41.           '(c) 1989 by Ofer Schakowski & TOOLBOX');
  42.   IF (ParamCount = 0) THEN Info;
  43.   DateiName   := ParamStr (1);
  44.   ZwischenStr := ParamStr (2);
  45.   FOR Zaehler := 3 TO ParamCount DO
  46.     ZwischenStr := ZwischenStr + ' ' + ParamStr (Zaehler);
  47.   IF (ZwischenStr = '/R') OR (ZwischenStr = '/r') OR
  48.      (ZwischenStr = '-R') OR (ZwischenStr = '-r')
  49.     THEN
  50.       RemoveHeader (DateiName)
  51.     ELSE
  52.       IF (ZwischenStr = '') THEN
  53.         CreateHeader (DateiName, Mitteilung)
  54.       ELSE
  55.         CreateHeader (DateiName, ZwischenStr);
  56. END.
  57. (* ------------------------------------------------------ *)
  58. (*                 Ende von NOLIST.PAS                    *)