Database
alley.asc
Associated article: Algorithm Alley
Tags: Database .NET C/C++
_ALGORITHM ALLEY_
by Tom Swan
[LISTING ONE]
const
ESCAPE = 0;
ENDOFLINE = 0;
ENDOFBITMAP = 1;
DELTA = 2;
procedure UnpackRLE8(var f: FILE);
var
done: Boolean;
count: Integer;
oldCount: Integer;
byt: Byte;
begin
while ((not done) and
(not eof(f))) do
begin
byt := GetByte(f);
if (...


