Торрес А. Шина I2C. По материалам фирмы Филипс
Подождите немного. Документ загружается.
if IOResult = 0 then
begin
BlockWrite(F, Buf, SizeOf(Buf));
Close(F);
end;
end;
mWrite:
begin
Reset(F, 1);
if IOResult = 0 then
begin
BlockRead(F, Buf, SizeOf(Buf));
Close(F);
for A:= 0 to 2047 do WriteByte(A, Buf[A]);
end;
end;
mError:
begin
WriteLn('24c16 fileName -r|-w');
WriteLn(' -r Read');
WriteLn(' -w Write');
end;
end;
end.
JbkmghdIh^dexq_gb_ ,
2
&mkljhckl\Zd/37ihjlm
JZamf__lky\^Zgghc klZlv_g_\hafh`ghhibkZlv iheghklvx \k_ gx
-
Zgkunmgdpbhgbjh\Zgbyrbgu,
2
& ghihdjZcg_cf_j_fh`ghih emqblv
hg_ch[s__ij_^klZ\e_gb_ >ey[he__ihegh]h bamq_gbyfh`gh ihkh
-
\_lh\Zlv
•
•
2 2
OZjvdh\