[<<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