Code: Select all
program array_of_record_problem;
const bufsize : word = 30;
Crlf : Array[3] Of Byte = (13,10,0);
type irectype = record
recbuf : array[bufsize] of byte;
head ,
tail,
match,
index,
state,
stat : byte;
delimiter : string[6];
bittime : word;
end;
var single : irectype;
irec : array[0..12] of irectype;
testarr : array[300] of byte;
procedure init;
var i : word;
begin
single.delimiter := crlf;
irec[3].stat := 123;
for i := 0 to 12 do irec[i].delimiter := crlf; <<<<<<<<<<<<<<<< problem
for i := 0 to 290 do testarr[i] := 69;
end;
begin
memset(@single,33,sizeof(single));
init;
while true do
begin
end;
end.