ай. эт я провтыкал. забыл что реадх в пх по мимо чтения еще и увеличивает передаенный ему оффсет
Цитата:
for i := 1 to length(pck) do
panelki[ind] := panelki[ind] + chr(ReadC(i));
|
на
Цитата:
i := 1;
while i <= length(pck) do panelki[ind] := panelki[ind] + chr(ReadC(i));
|
хотя не.. не поможет...
долженбыл каждый второй.. а у тебя каждый 4й.
он #0 тупо игнорит