[km_]

Сообщение от Konrad

П.с.: ошибку выдает в той программе. текст которой ты привел?
Та программа сплошная ошибка. Её все равно придеться переписывать.

Нет, в новой.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var str, podstr, s:string; t, f, i, a, b, j:byte;
state:array[1..4,1..4] of byte;
begin
a:=0; b:=1;
str:=edit1.text;
t:=length(str) mod 16; 
f:=length(str) div 16; 
if t<>0 then
  for i:=1 to 16*(f+1)-length(str) do //заполняем недостающие байты нулями
  str:=str+'0'
  else f:=f-1;
for i:=1 to f+1 do //отделяем блоки
  begin
    podstr:=copy(str, 1, 16);
    delete(str, 1, 16);
    for j:=1 to 16 do  
      begin
        s:=copy(podstr, 1, 1); //отделяем символы
        delete(podstr, 1, 1);
        a:=a+1;
        state[a, b]:=strtoint(s); 
        if a=4 then
          begin
            a:=0;
            b:=b+1;
          end;
      end;
  end;
end;

Эта вроде пограмотнее). Правда, запись в файл еще не написал.
Поменял string на byte. Но теперь после ввода текста появляется ошибка