Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
мне нужна программа перевода из 2 в 10 сс и наобарот с помощью радиогруппы

Вопрос задал: egor95 (статус: Посетитель) Вопрос отправлен: 5 марта 2012, 17:00 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: Егор

Здравствуйте, egor95!
Две радио-кнопки, одно текстовое поле. Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  RadioButton1.Checked := false;
  RadioButton1.Caption := 'Binary';
 
  RadioButton2.Checked := true;
  RadioButton2.Caption := 'Decimal';
 
  Edit1.Text := '0';
end;
 
procedure TForm1.RadioButton1Click(Sender: TObject);
var
  s : string;
  i : integer;
begin
  if Edit1.Text = '' then
    Edit1.Text := '0';
  i := StrToInt(Edit1.Text);
  s := '';
  while i > 0 do
  begin
    s := IntToStr(i mod 2) + s;
    i := i div 2;
  end;
  if s = '' then
    s := '0';
  Edit1.Text := s;
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
var
  s : string;
  i, l, res : integer;
begin
  l := length(Edit1.Text);
  res := 0;
  for i := l downto 1 do
  begin
    res := res * 2;
    if Edit1.Text[l-i+1] = '1' then
      res := res + 1;
  end;
  Edit1.Text := IntToStr(res);
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
var
  i : integer;
  max : char;
  t : string;
begin
  t := Edit1.Text;
  max := '9';
  if RadioButton1.Checked then max := '1';
  for i := length(t) downto 1 do
  begin
    if (t[i] < '0') or (t[i] > max) then
      delete(t, i, 1);
  end;
  Edit1.Text := t;
end;

Ответ отправил: Егор (статус: 10-ый класс) Время отправки: 5 марта 2012, 19:55 Оценка за ответ: 4 Комментарий к оценке: спасибо! РЅРµ совсем то что хотел РЅРѕ как делать переводы РїРѕРЅСЏР» сейчас сделаю)))

Мини-форум вопроса

min@y™ (статус: Доктор наук), 6 марта 2012, 08:21 [#1]: Коммент к оценке мощный. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

bugmenot (статус: 3-ий класс), 6 марта 2012, 12:07 [#2]: Не кормите. виконання програми розпочинається з того самого мiсця, де призупинилося.

11 мая 2012, 16:30: Статус вопроса изменён на решённый (изменил модератор DNK): В отзыве: спасибо! не совсем то что хотел но как делать переводы понял сейчас сделаю)))

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.