[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
LL04.PAS

 { ---------------------------------------------------------------- }
 {               Testprogramm LOW-LEVEL-MEMO-ROUTINEN               }
 { ---------------------------------------------------------------- }
 { H.ngt ein (unsinniges) Memo an das DBT-File "LL04" an und        }
 { liest dann aus der Datei die Memos 1, 2, 3 und 4 ein (sind in    }
 { ihrer Position bekannt) und gibt ihren Inhalt aus.               }
 { ---------------------------------------------------------------- }
 {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }
 {     History:                                                     }
 {  Datum     / Bearb. / Art                                        }
 { 18. 3.1992    MS       Implementierung.                          }
 { ---------------------------------------------------------------- }

 PROGRAM LL04;


   USES
     LLMemo,
     DbTypes,
     Error,                              { Fehlerbehandlungsroutinen }
     AStrings,
 {$IFDEF Windows}
     Strings,
     WINCRT;
 {$ELSE}
     CRT;
 {$ENDIF}


   VAR
     Cnt            : INTEGER;
     PC             : PChar;
     Memo           : PMemo;
     Found          : PChar;


   CONST
     Created        : STRING =
                          'Noch ''ne .nderung ...'#13#10;
     Search1        : STRING = '.nderung'#0;
     Search2        : STRING = '.nderunG'#0;

   BEGIN
     CLRSCR;

     WRITELN (MEMAVAIL);

 {$IFNDEF Windows}
     SetErrHandler (ErrPrint);
 {$ENDIF}

     Memo := NewMemo;
     PC := Nil;

     WRITELN (MEMAVAIL);

     MemoUse (Memo,  't:\kdv\dbdemo\LL04');

     IF GetErr <> 0 THEN
       HALT;

     WRITELN ('Vor StrPasNew');

     PC := stRPasNew (Created);
  (*
     FOR Cnt := 0 TO 4 DO
       StrCat (PC, PC);
 *)
     WRITELN ('Nach StrPasNew');

     WRITELN (MemoAppend (Memo,  PC));
     WRITELN;
     WRITELN ('Taste ...');
     READKEY;

     stRDispose (PC);

     WRITELN;

     PC := MemoRead (Memo,  '1');

     FOR Cnt := 1 TO stRLen (PC) DO
       IF stRGetChar (PC,  Cnt) = #$0A THEN
         WRITELN
       ELSE
         WRITE (stRGetChar (PC,  Cnt));

     stRDispose (PC);

     WRITELN;

     PC := MemoRead (Memo,  '2');

     FOR Cnt := 1 TO stRLen (PC) DO
       IF stRGetChar (PC,  Cnt) = #$0A THEN
         WRITELN
       ELSE
         WRITE (stRGetChar (PC,  Cnt));

     stRDispose (PC);

     WRITELN;

     PC := MemoRead (Memo,  '3');

     FOR Cnt := 1 TO stRLen (PC) DO
       IF stRGetChar (PC,  Cnt) = #$0A THEN
         WRITELN
       ELSE
         WRITE (stRGetChar (PC,  Cnt));

     stRDispose (PC);

     WRITELN;

     PC := MemoRead (Memo,  '4');

     Cnt := 0;

     FOR Cnt := 1 TO stRLen (PC) DO
       IF stRGetChar (PC,  Cnt) = #$0A THEN
         WRITELN
       ELSE
         WRITE (stRGetChar (PC,  Cnt));

     stRDispose (PC);

     WRITELN;

     MemoClose (Memo);
     DISPOSE (Memo);

     WRITELN (MEMAVAIL);
     WRITELN;
     WRITELN ('Taste ...');
     READKEY;
   END. { PROGRAM LL04 }

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson