RomanTim
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
unit Unit2;
interface
uses
StdCtrls;
procedure FillComboBox(CB: TComboBox, Txt: string);
implementation
procedure FillComboBox(CB: TComboBox, Txt: string);
begin
CB.Clear;
if Txt = '2' then begin
CB.Items.Add('0,25');
CB.Items.Add('0,4');
end else if Txt = '2,5' then begin
CB.Items.Add('0,35');
CB.Items.Add('0,45');
end;
end;
end. |
Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 17:01 01-03-2007 | Исправлено: RomanTim, 17:02 01-03-2007 |
|
