Author: Michel Langeveld
Date: 04:13:04 07/17/99
Go up one level in this thread
datarecord(97 bytes)
9 bytes: pointers(indexnumbers) to other bases?
25 bytes: player lastname and /0 at the end
20 bytes: player surename and /0 at the end
3 bytes: date of birth (see bolow)
4 bytes: pointer to other bases
2? bytes: title of the player (see below)
2? bytes: country of the player (see below)
2? bytes: unknown
2? bytes: sex of the player (0 = MALE, 1 = FEMALE)
4? bytes: pointer(indexnumber) to other datafiles?
4? bytes: pointer(indexnumber) to other datafiles?
4? bytes: pointer(indexnumber) to other datafiles?
4? bytes: pointer(indexnumber) to other datafiles?
4? bytes: pointer(indexnumber) to other datafiles?
8 bytes: FF FF FF FF FF FF FF FF?
function ConvertByte2Title(b : byte) : string;
var tmp : string;
begin
tmp := '';
{processing highnible}
if b and $80 = $80 then tmp := tmp + ', WCH';
if b and $40 = $40 then tmp := tmp + ', WWCH';
if b and $30 = $30 then
tmp := tmp + ', GM'
else
begin
if b and $20 = $20 then tmp := tmp + ', IM';
if b and $10 = $10 then tmp := tmp + ', FM';
end;
{processing lownible}
if b and $0c = $0c then
tmp := tmp + ', WGM'
else
begin
if b and $08 = $08 then tmp := tmp + ', WIM';
if b and $04 = $04 then tmp := tmp + ', WFM';
end;
if b and $02 = $02 then tmp := tmp + ', HGM';
if tmp <> '' then
delete(tmp, 1, 2)
else
tmp := 'NOTITLE';
ConvertByte2Title := tmp;
end;
This page took 0 seconds to execute
Last modified: Thu, 15 Apr 21 08:11:13 -0700
Current Computer Chess Club Forums at Talkchess. This site by Sean Mintz.