Code: Select all
procedure Byte2Bin(Value: byte; var S: string[8]);
var I: byte;
begin
I := 0;
while I < 8 do
begin
if Value.I = 0 // <------------- here error: "=" is not a valid identifier.
then S[7 - I] := '0'
else S[7 - I] := '1';
Inc(I);
end;
S[8] := 0; // terminator
end;
Code: Select all
I.J := not (TestBit(I, J));
Thanks in advance!