[mixasnt]

скажите пожалуйста,как ввести одномерный массив в едит.(нет разделителей) Пример: вводим число в едит 1111,и делаем из него массив 1 1 1 1 ?

[angvelem]

Так из массива в Edit или наоборот?

[mixasnt]

из Едит в массив

Суть моей задачи такова:
Пользователь вводит в едит двоичное число,программа должна его перевести в 10ое и вывести в другой едит.

[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];

[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]);  //в массив А

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

[angvelem]

Забыл преобразование дописать

Код:

 Buf[i] := ord(St[I + 1]) - $30;