Как сделать расчет?

← →
ser35 (2005-02-26 00:16) [0]

Имеются данные Выбираемые из комбобокса(1А,2А) и радиогроуп(1Б,2Б):

1А 2А
1Б 5 3
2Б 8 9
Подскажите, пожалуйста, как мне отобразить в Эдите, допустим цифру "5". Осознаю, что вопрос легкий для опытного человека, но пожалуйста не откажите. По книге смотрел, но не могу разобраться. Большое спасибо за советы

← →
Fenik (2005-02-26 00:18) [1]

Edit1.Text := IntToStr(5);

← →
ser35 (2005-02-26 00:25) [2]

Я имел ввиду, чтобы выйти на цифру "5" нужно выбрать комбобокс(1А) и радиогроуп (1Б) и нажимая Button в окошке Эдита появляется 5

← →
GanibalLector © (2005-02-26 00:33) [3]

if (Combobox.Text="чего-то там") and (RadioButton.Checked) then
Edit.Text:="5";

← →
Fedia © (2005-02-26 00:54) [4]

procedure TForm1.SpeedButton1Click(Sender: TObject);
const
ar : array [0..1, 0..1] of integer = ((5,3),(8,9));
begin
Edit1.Text:=IntToStr(ar[RadioGroup1.ItemIndex, ComboBox1.ItemIndex]);
end;

← →
ser35 (2005-02-26 09:12) [5]

> Fedia © (26.02.05 00:54) [4]
> procedure TForm1.SpeedButton1Click(Sender: TObject);
> const
> ar : array [0..1, 0..1] of integer = ((5,3),(8,9));
> begin
> Edit1.Text:=IntToStr(ar[RadioGroup1.ItemIndex, ComboBox1.ItemIndex]);
> end;

Это подходит. А как быть в случае, если запись в Эдите (5,3,8,9) будет меняться?

← →
ser35 (2005-02-26 10:44) [6]

Посоветуйте, мастера :)

>ser35 (26.02.05 10:44) [6]
Вероятность того, что хотя бы 30% посетителей форума не знает ответ на твой вопрос, очень близка к нулю. А не отвечают, скорее всего, из-за некорректности задаваемых вопросов. Конечно, догадаться, о чем ты спрашиваешь можно, но отвечать на такие вопросы как минимум лень.
>А как быть в случае, если запись в Эдите (5,3,8,9) будет меняться?
Наверное, имеется в виду: а как быть в случае, если перечень значений, присваиваемых свойству text компонента Edit1 необходимо менять?
Константу ar из примера [4] заменить на переменную динамического массива и заполнять его значениями из файла, БД или визуальных компонентов.
Без обид Ok?

Как сделать расчет? Найти похожие ветки