home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / ll04.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-12  |  3.0 KB  |  138 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {               Testprogramm LOW-LEVEL-MEMO-ROUTINEN               }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Hängt ein (unsinniges) Memo an das DBT-File "LL04" an und        }
  5. { liest dann aus der Datei die Memos 1, 2, 3 und 4 ein (sind in    }
  6. { ihrer Position bekannt) und gibt ihren Inhalt aus.               }
  7. { ──────────────────────────────────────────────────────────────── }
  8. {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
  9. { ──────────────────────────────────────────────────────────────── }
  10. {     History:                                                     }
  11. {  Datum     / Bearb. / Art                                        }
  12. { 18. 3.1992    MS       Implementierung.                          }
  13. { ──────────────────────────────────────────────────────────────── }
  14.  
  15. PROGRAM LL04;
  16.  
  17.  
  18.   USES
  19.     LLMemo,
  20.     dbTypes,
  21.     Error,                             { Fehlerbehandlungsroutinen }
  22.     AStrings,
  23. {$IFDEF Windows}
  24.     STRINGS,
  25.     WINCRT;
  26. {$ELSE}
  27.     CRT;
  28. {$ENDIF}
  29.  
  30.  
  31.   VAR
  32.     Cnt            : INTEGER;
  33.     PC             : PChar;
  34.     Memo           : PMemo;
  35.     Found          : PChar;
  36.  
  37.  
  38.   CONST
  39.     Created        : STRING =
  40.                          'Noch ''ne Änderung ...'#13#10;
  41.     Search1        : STRING = 'Änderung'#0;
  42.     Search2        : STRING = 'ÄnderunG'#0;
  43.  
  44.   BEGIN
  45.     CLRSCR;
  46.  
  47.     WRITELN (MEMAVAIL);
  48.  
  49. {$IFNDEF Windows}
  50.     SetErrHandler (ErrPrint);
  51. {$ENDIF}
  52.  
  53.     Memo := NewMemo;
  54.     PC := Nil;
  55.  
  56.     WRITELN (MEMAVAIL);
  57.  
  58.     MemoUse (Memo, 't:\kdv\dbdemo\LL04');
  59.  
  60.     IF GetErr <> 0 THEN
  61.       HALT;
  62.  
  63.     WRITELN ('Vor StrPasNew');
  64.  
  65.     PC := StrPasNew (Created);
  66. (*
  67.     FOR Cnt := 0 TO 4 DO
  68.       StrCat (PC, PC);
  69. *)
  70.     WRITELN ('Nach StrPasNew');
  71.  
  72.     WRITELN (MemoAppend (Memo, PC));
  73.     WRITELN;
  74.     WRITELN ('Taste ...');
  75.     READKEY;
  76.  
  77.     StrDispose (PC);
  78.  
  79.     WRITELN;
  80.  
  81.     PC := MemoRead (Memo, '1');
  82.  
  83.     FOR Cnt := 1 TO StrLen (PC) DO
  84.       IF StrGetChar (PC, Cnt) = #$0a THEN
  85.         WRITELN
  86.       ELSE
  87.         WRITE (StrGetChar (PC, Cnt));
  88.  
  89.     StrDispose (PC);
  90.  
  91.     WRITELN;
  92.  
  93.     PC := MemoRead (Memo, '2');
  94.  
  95.     FOR Cnt := 1 TO StrLen (PC) DO
  96.       IF StrGetChar (PC, Cnt) = #$0a THEN
  97.         WRITELN
  98.       ELSE
  99.         WRITE (StrGetChar (PC, Cnt));
  100.  
  101.     StrDispose (PC);
  102.  
  103.     WRITELN;
  104.  
  105.     PC := MemoRead (Memo, '3');
  106.  
  107.     FOR Cnt := 1 TO StrLen (PC) DO
  108.       IF StrGetChar (PC, Cnt) = #$0a THEN
  109.         WRITELN
  110.       ELSE
  111.         WRITE (StrGetChar (PC, Cnt));
  112.  
  113.     StrDispose (PC);
  114.  
  115.     WRITELN;
  116.  
  117.     PC := MemoRead (Memo, '4');
  118.  
  119.     Cnt := 0;
  120.  
  121.     FOR Cnt := 1 TO StrLen (PC) DO
  122.       IF StrGetChar (PC, Cnt) = #$0a THEN
  123.         WRITELN
  124.       ELSE
  125.         WRITE (StrGetChar (PC, Cnt));
  126.  
  127.     StrDispose (PC);
  128.  
  129.     WRITELN;
  130.  
  131.     MemoClose (Memo);
  132.     DISPOSE (Memo);
  133.  
  134.     WRITELN (MEMAVAIL);
  135.     WRITELN;
  136.     WRITELN ('Taste ...');
  137.     READKEY;
  138.   END. { PROGRAM LL04 }