Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

ser35 © (2005-02-26 00:16:00)
Имеются данные Выбираемые из комбобокса(1А,2А) и радиогроуп(1Б,2Б):

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

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

ser35 (2005-02-26 10:44:00) [2]
Посоветуйте, мастера :)

ser35 (2005-02-26 09:12:00) [3]

> 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) будет меняться?

Fedia (2005-02-26 00:54:00) [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;

GanibalLector (2005-02-26 00:33:00) [5]
if (Combobox.Text='чего-то там') and (RadioButton.Checked) then
Edit.Text:='5';

ser35 (2005-02-26 00:25:00) [6]
Я имел ввиду, чтобы выйти на цифру "5" нужно выбрать комбобокс(1А) и радиогроуп (1Б) и нажимая Button в окошке Эдита появляется 5

Fenik (2005-02-26 00:18:00) [7]
Edit1.Text := IntToStr(5);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »