home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / tricks / textdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-14  |  2.7 KB  |  92 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   TEXTDEMO.PAS                         *)
  3. (* Beispielprogramm für die Verwendung von TEXTVERL.INC   *)
  4. (*      (c) 1989 by Wolfgang Dexheimer und TOOLBOX        *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM TextDemo;
  7.  
  8. USES Crt;
  9.  
  10. TYPE
  11.   FName = STRING(.14.);
  12.   Str60 = STRING(.60.);
  13.  
  14. VAR
  15.   TF, ATF     : TEXT;
  16.   Name, AName : FName;
  17.   ch          : CHAR;
  18.   Eingabe     : STRING(.255.);
  19.  
  20. {$I TEXTVERL.INC}
  21.  
  22.   PROCEDURE Datei_Name_Lesen(welcher   : Str60;
  23.                              pruefen   : BOOLEAN;
  24.                              VAR DName : FName);
  25.   BEGIN
  26.     Write(welcher, ' : ');  ReadLn(DName);
  27.     IF Pos('.', welcher) = 0 THEN DName := DName + '.TXT';
  28.     IF pruefen THEN BEGIN
  29.       Assign(ATF, DName);
  30.       {$I-} Reset(ATF); {$I+}
  31.       IF IOResult <> 0 THEN BEGIN
  32.         WriteLn;
  33.         WriteLn('Die Datei ', DName,
  34.                 ' kann ich nicht finden !!');
  35.         DName := '';
  36.         WriteLn('      -> weiter mit bel. Taste <-');
  37.         REPEAT UNTIL KeyPressed;
  38.       END;
  39.     END;
  40.   END;
  41.  
  42. BEGIN
  43.   REPEAT
  44.     ClrScr;
  45.     WriteLn; WriteLn; WriteLn;
  46.     WriteLn; WriteLn; WriteLn;
  47.     WriteLn('Beispielprogramm für die Verwendung von ',
  48.             'TEXTVERL.INC':66);
  49.     WriteLn; WriteLn;
  50.     WriteLn('1 = TEXT-File anfügen':45);
  51.     WriteLn;
  52.     WriteLn('2 = Eingabe von Tastatur anfügen':56);
  53.     WriteLn;
  54.     WriteLn('E = ENDE':32);
  55.     WriteLn; WriteLn;
  56.     Write('Bitte wählen Sie -> ':24);
  57.     REPEAT
  58.       ch := ReadKey;
  59.       ch := UpCase(ch);
  60.     UNTIL ch IN (.'1', '2', 'E'.);
  61.     WriteLn(ch); WriteLn;
  62.     IF ch <> 'E' THEN
  63.       Datei_Name_LeseN('Name der Datei ', FALSE, Name);
  64.     CASE ch OF
  65.       '1' : BEGIN
  66.               Datei_Name_Lesen('Name der Datei ',
  67.                                 TRUE, AName);
  68.               IF Length(AName) > 0 THEN BEGIN
  69.                 Text_File_VerL(Name);
  70.                 WHILE NOT EOF(ATF) DO BEGIN
  71.                   ReadLn(ATF, Eingabe);
  72.                   WriteLn(TF, Eingabe);
  73.                 END;
  74.                 Close(ATF); Close(TF);
  75.               END;
  76.             END;
  77.       '2' : BEGIN
  78.               Text_File_VerL(Name);
  79.               REPEAT
  80.                 WriteLn;
  81.                 Write('Eingabe (.E. = ENDE): ');
  82.                 ReadLn(Eingabe);
  83.                 IF Eingabe <> '.E.' THEN
  84.                   WriteLn(TF, Eingabe);
  85.               UNTIL Eingabe = '.E.';
  86.               Close(TF);
  87.             END;
  88.     END;
  89.   UNTIL ch = 'E';
  90. END.
  91. (* ------------------------------------------------------ *)
  92. (*                Ende von TEXTDEMO.PAS                   *)