combobox ayuda

[ecfisa]

Hola groexe.

Supongamos que en el TComboBox almacenamos las frecuencias:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
const
  N_LONG = 5; // cantidad de items
var
  i,c: Integer;
begin
  c:= 144;  // Longitud de onda empieza 144 Mhz (como en tus datos)
  for i:= 1 to N_LONG do
  begin
    ComboBox1.Items.Add(IntToStr(c*1000)+' Mhz.');
    Dec(c,2); // 142,140,138,...
  end;
  ComboBox1.ItemIndex:= 0; // posicionar 1° item
end;

Luego tenemos que convertir a metros la selección que el usuario haya echo:

Código Delphi [-]
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  // long. de onda en mts = 300000/freq (Mhz)
  with ComboBox1 do
    Label1.Caption:= Format('%8.4f',[300000/StrToInt(Items[ItemIndex])]);
end;

Saludos.