VPF::RadioGroup помогите разобраться... - Форум программистов

4eJIoBe4eK

Дата 27.2.2010, 18:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.2.2010

Репутация: нет
Всего: нет

У меня на форме 5 радиогруп для перевода величин в систему Си(Длинна, Вес, Давление, Енерогия и т.п.) каждая точка определяет значение b:= мне нужно, чтобы активной была тольо одна из 5-ти радиогруп, а то так у меня все значения b перемножаються и на это "B" умнажаеться заданое число

Код


unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Menus, ExtCtrls;

type
  TForm4 = class(TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn3: TBitBtn;
    RadioGroup2: TRadioGroup;
    RadioGroup3: TRadioGroup;
    RadioGroup4: TRadioGroup;
    RadioGroup5: TRadioGroup;
    RadioGroup8: TRadioGroup;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  s:string;
  a,b,c:real;
  cod:integer;
implementation

uses Unit1, Unit2, Unit3;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
   Form1.hide;
   Form2.show;
   Form3.hide;
   Form4.hide;
end;


procedure TForm4.BitBtn3Click(Sender: TObject);
 begin
  if RadioGroup2.ItemIndex=0 then b:=0.0000000001;

  if RadioGroup2.ItemIndex=1 then b:=0.000000001;

  if RadioGroup2.ItemIndex=2 then b:=0.000001;

  if RadioGroup2.ItemIndex=3 then b:=0.001;

  if RadioGroup2.ItemIndex=4 then b:=0.01;

  if RadioGroup2.ItemIndex=5 then b:=0.1;

  if RadioGroup2.ItemIndex=6 then b:=1000;


  if RadioGroup4.ItemIndex=0 then b:=60;

  if RadioGroup4.ItemIndex=1 then b:=3600;

  if RadioGroup4.ItemIndex=2 then b:=86400;

  if RadioGroup4.ItemIndex=3 then b:=604800;

  if RadioGroup4.ItemIndex=4 then b:=2678400;

  if RadioGroup4.ItemIndex=5 then b:=31536000;

  if RadioGroup4.ItemIndex=6 then b:=31622400;

  if RadioGroup4.ItemIndex=7 then b:=31557600000;


  if RadioGroup8.ItemIndex=0 then b:=100000;

  if RadioGroup8.ItemIndex=1 then b:=133.322;

  if RadioGroup8.ItemIndex=2 then b:=98066.5;

  if RadioGroup8.ItemIndex=3 then b:=101325;

  if RadioGroup8.ItemIndex=4 then b:=133.322;


  if RadioGroup3.ItemIndex=0 then b:=0.0002;

  if RadioGroup3.ItemIndex=1 then b:=0.001;

  if RadioGroup3.ItemIndex=2 then b:=100;

  if RadioGroup3.ItemIndex=3 then b:=1000;


  if RadioGroup5.ItemIndex=0 then b:=1000;

  if RadioGroup5.ItemIndex=1 then b:=1000000;


   val(Edit1.Text,a,cod);
   c:=a*b;
   str(c:7:12,s);
   Edit2.Text:=s;
 end;


end.

P.S. надеюсь я на понятном языке обьяснил? smile

DarkProg

Дата 28.2.2010, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 4
Всего: 19

Значит смотри просто при включении одного элемента из RadioGroup1, ты остальным прописываешь

Код


  RadioGroup2.ItemIndex:=-1;
  RadioGroup3.ItemIndex:=-1;
  RadioGroup4.ItemIndex:=-1;
  RadioGroup5.ItemIndex:=-1;

Я не уверен, но помоему есть событие onChange у RadioGroup или onCheck, туда и впишешь код.

P.S. Я не тестил и давно с RadioGroup не работал

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

4eJIoBe4eK

Дата 28.2.2010, 22:47 (ссылка)

(голосов:5)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.2.2010

Репутация: нет
Всего: нет

Прошу исправить МОЙ КОД на то как надо, заранее спс

profesiachuvak

Дата 28.2.2010, 23:49 (ссылка)

(голосов:4)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

Репутация: 1
Всего: 4

Цитата(4eJIoBe4eK @ 28.2.2010, 22:47

)

Прошу исправить МОЙ КОД на то как надо, заранее спс

4eJIoBe4eK, ну имейте же совесть. Вы просто не хотите думать.

--------------------

Закон Мерфи :если есть вероятность того, что какая-нибудь неприятность может случиться, то она обязательно произойдет.

DarkProg

Дата 1.3.2010, 09:53 (ссылка)

(голосов:3)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 4
Всего: 19

Цитата(4eJIoBe4eK @ 28.2.2010, 22:47

)

Прошу исправить МОЙ КОД на то как надо, заранее спс

ТОгда написал не в тот раздел, в этих тебе будут исправлять код если ничего не прокатывает из предложенного, а если думать лень то есть раздел Цент Помощи, там это сделают, но не бесплатно smile

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

4eJIoBe4eK

Дата 5.3.2010, 01:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.2.2010

Репутация: нет
Всего: нет

ну оч нада... я слышал что это как то можно сделать через True/False

bems

Дата 5.3.2010, 03:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Цитата(4eJIoBe4eK @ 5.3.2010, 01:13

)

я слышал что это как то можно сделать через True/False

По этой цитате:
Модератор: тема не представляет интереса

--------------------

Обижено школьников: 8

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »