Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Можно ли так, или я многого хочу от Delphi   Найти похожие ветки 

 
UVV ©   (2005-10-26 08:04) [0]

Есть набор констант типа int вида
<const_name1>
<const_name2>
<const_name3>
...
<const_namen>

Если я выбираю из ComboBox"а значение 1, 2, 3 ..., то как мне передать переменной определённое значение константы?


 
dmitry501 ©   (2005-10-26 08:09) [1]

почитать про case


 
MBo ©   (2005-10-26 08:13) [2]

или объединить константы в массив...


 
Digitman ©   (2005-10-26 08:25) [3]

uses TypInfo;

type
 TFruits = (
             fig_0,
             apples_1,
             pears_2,
             grapes_3,
             bananas_4,
             oranges_5
           );

procedure TForm1.Button3Click(Sender: TObject);
begin
 ShowMessage(GetEnumName(TypeInfo(TFruits), 0));
 ShowMessage(GetEnumName(TypeInfo(TFruits), 1));
 ShowMessage(GetEnumName(TypeInfo(TFruits), 2));
 ShowMessage(GetEnumName(TypeInfo(TFruits), 3));
 ShowMessage(GetEnumName(TypeInfo(TFruits), 4));
 ShowMessage(GetEnumName(TypeInfo(TFruits), 5));
end;


 
UVV ©   (2005-10-26 09:10) [4]

Скажу более конкретно!
Речь идёт о скорости COM-порта!
BAUD_150
BAUD_300
и т.д.
Есть в этом случае готовые варианты?


 
Digitman ©   (2005-10-26 09:58) [5]


> UVV ©   (26.10.05 09:10) [4]


type
TBoudRate = (
            BAUD_150,
            BAUD_300
          );

procedure TForm1.Button3Click(Sender: TObject);
var
 s: String;
 baud: Integer;
begin
s := GetEnumName(TypeInfo(TBoudRate), 1);
baud := StrToInt(Copy(s, 6, Length(s)));
showmessage(IntToStr(baud));
end;


 
Leonid Troyanovsky ©   (2005-10-26 10:23) [6]


> UVV ©   (26.10.05 08:04)  

> Если я выбираю из ComboBox"а значение 1, 2, 3 ..., то как
> мне передать переменной определённое значение константы?



var
 BaudValues : array [0..2] of Longint = (150, 300, 400);

procedure TForm1.FormCreate(Sender: TObject);
var
 i : Longint;
begin
 for i := 0 to High(BaudValues) do
 with Combobox1.Items do
   begin
     Add(Format("BAUD_%3.3d", [BaudValues[i]]));
   end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
 with Sender as TComboBox do
  ShowMessage( IntToStr(BaudValues[ItemIndex]));
end;


--
Regards, LVT.


 
wal ©   (2005-10-26 11:51) [7]


> Скажу более конкретно!
> Речь идёт о скорости COM-порта!
> BAUD_150
> BAUD_300
> и т.д.
> Есть в этом случае готовые варианты?
CommConfigDialog



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.043 c
3-1127905448
Dail
2005-09-28 15:04
2005.11.13
Как распечатать cxGrid???


4-1126532696
vishnia
2005-09-12 17:44
2005.11.13
Переключение языков


2-1130307297
pic509
2005-10-26 10:14
2005.11.13
как узнать номер созданной записи


14-1129780309
Вьюер
2005-10-20 07:51
2005.11.13
Кто нибудь пользуется универсальным пультом ДУ ?


14-1129649926
Kolan
2005-10-18 19:38
2005.11.13
Прграмма BpWin что это?