[mixasnt]

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

Примерно так:

Код:

var
  buf : array of Byte;
  I : Integer;
  St : String
...
  St := Edit1.Text;
  SetLength(Buf, Length(St));
  for I := 0 to Length(Edit1.Text) - 1 do
    Buf[i] := St[I + 1];

так не получается (ошибка типов данных)

я так ещё пробовал:

Код:

var
  A:array[1..n] of byte;
  i:byte;
  S:string[n];
begin
  s:=Edit1.Text; //присваеваем перменной
                 //строк-го типа значение в нах-я Edit1
  for I := 1 to n do      //цикловым процессом вводим необх-е эл.
    A[i]:=StrToInt(S[i]);  //в массив А

но тоже глухо(