ввод массива едит

[Mixasnt]

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

[Stilet]

Никак. Массив без ограничителей элементов не может быть расщеплен.

[Mixasnt]

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

Никак. Массив без ограничителей элементов не может быть расщеплен.

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

что посоветуешь?
как сделать по другому?

[Serge_Bliznykov]

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

Никак. Массив без ограничителей элементов не может быть расщеплен.

стоп-стоп! Что значит - без разделителей. Автор темы в примере ясно показал, что у него каждая отдельная цифра - это отдельный элемент массива!

Mixasnt, я правильно понял, что у вас элементы массива это строго ЦИФРЫ от 0 до 9 ? Тогда - легко:

var Mas : array of byte;
  i, k, n : integer
begin
  n := 0;
  for i:=1 to Length(Edit1.Text) do
    if Edit1.Text[i] in ['0'..'9'] then Inc(n);
  SetLength(Mas, n);
  k:=0;
  for i:=1 to Length(Edit1.Text) do
    if Edit1.Text[i] in ['0'..'9'] then begin 
       Mas[k] := StrToInt(Edit1.Text[i]);
       Inc(k)
    end;

  // готово. Все цифры записаны в массив Mas длиной n 
  .... тут что надо делаем с массивом Mas
end;

UPDATE
пока писал, задача прояснилась..

Mixasnt, ну и зачем Вам переводить число в массив?!! Идите по Edit1.Text справа налево и вычисляйте значение. Массив тут совсем не нужен!


ещё раз обновлено
пусть в Edit1.Text исходное двоичное число.
и по нажатию на кнопку результат нужно поместить в Edit2.Text
тогда вешаем на кнопку такой код:

procedure TForm1.Button1Click(Sender: TObject);
var base, rez : int64;
  i : integer;
begin
  base := 1;
  rez := 0;
  for i := Length(Edit1.Text) downto 1 do
    if Not ( Edit1.Text[i] in ['0'..'1'] )  then begin
       Application.MessageBox('В edit1 не двоичное число!!',
                'Ошибка', MB_ICONSTOP or MB_OK);
       Exit
    end
    else begin
      rez := rez +  StrToInt(Edit1.Text[i])*Base;
      Base := Base * 2;
    end;
  Edit2.Text := IntToStr( rez )
end;

[Mixasnt]

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

пусть в Edit1.Text исходное двоичное число.
и по нажатию на кнопку результат нужно поместить в Edit2.Text
тогда вешаем на кнопку такой код:

procedure TForm1.Button1Click(Sender: TObject);
var base, rez : int64;
  i : integer;
begin
  base := 1;
  rez := 0;
  for i := Length(Edit1.Text) downto 1 do
    if Not ( Edit1.Text[i] in ['0'..'1'] )  then begin
       Application.MessageBox('В edit1 не двоичное число!!',
                'Ошибка', MB_ICONSTOP or MB_OK);
       Exit
    end
    else begin
      rez := rez +  StrToInt(Edit1.Text[i])*Base;
      Base := Base * 2;
    end;
  Edit2.Text := IntToStr( rez )
end;

огромное спасибо)
правда я не совсем въехал как она работает)



_______________
НЕ злоупотребляйте излишним цитированием!
Это нарушение называется overquoting (оверквотинг)
Удаляйте из цитаты лишний текст!

Модератор.

[Serge_Bliznykov]

правда я не совсем въехал как она работает)

о!!
А если Вам дано, например, двоичное число 1100
Вы знаете, как его перевести в десятичное?

Вот по такому же принципу и программа переводит.
берёт крайнюю справа цифру (0) умножает на базу (сначала база равна 1)
сдвигает базу путём умножения её на два
потом следующуу справа цифру (0) умножает на базу (база уже равна 2)
сдвигает базу путём умножения её на два
потом следующуу справа цифру (1) умножает на базу (база уже равна 4)
сдвигает базу путём умножения её на два
потом следующуу справа цифру (1) умножает на базу (база уже равна 8)
суммирует результаты.
готово!

[Stilet]

Автор темы в примере ясно показал

Повезло. Сам того не понимая пример четкий вписал )