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');
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.