Hola groexe.
Supongamos que en el
TComboBox almacenamos las frecuencias:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
const
N_LONG = 5; var
i,c: Integer;
begin
c:= 144; for i:= 1 to N_LONG do
begin
ComboBox1.Items.Add(IntToStr(c*1000)+' Mhz.');
Dec(c,2); end;
ComboBox1.ItemIndex:= 0; end;
Luego tenemos que convertir a metros la selección que el usuario haya echo:
Código Delphi
[-]
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
with ComboBox1 do
Label1.Caption:= Format('%8.4f',[300000/StrToInt(Items[ItemIndex])]);
end;
Saludos.