Ver Mensaje Individual
  #11  
Antiguo 29-11-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
pero quiero que ese 1 = 1.0625
el 2 = 1.375
3 = 1.875
4 = 2.625
Hola.

Entonces según entiendo, la función del valor de Edit2 sería la de un índice para acceder a otro valor.

Podrías hacer algo así:
Código Delphi [-]
...
implentation
var
  TS: TStrings;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TS:= TStringList.Create;
  TS.Add('1,0625');  
  TS.Add('1,375');
  TS.Add('1,875');
  TS.Add('2,625'); 
  // el resto de los valores
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(TS[StrToInt(Edit2.Text)-1]));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  TS.Free;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 29-11-2011 a las 00:12:48.
Responder Con Cita