interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Printers;
Const
Un : array[0..7] of Real = (3.3, 5.0, 9.0, 12.0, 15.0, 18.0, 16.0, 25.0);
Il : array[0..3] of Real = (0.1, 0.5, 1.0, 1.0);
Uw : array[0..7] of Real = (9.0, 9.0, 12.0, 15.0, 15.0, 18.0, 18.0, 24.0);
Iw : array[0..3] of Real = (0.15, 0.65, 1.1, 1.1);
R1 : array[0..3] of Real = (12, 2.4, 1.2, 24.9);
P1 : array[0..3] of Real = (0.25, 1, 2, 0.25);
R2 : array[0..7] of Real = (240, 240, 240, 220, 240, 240, 169, 249);
. . . . .
private
{ Private declarations }
nU, nI : Integer;
public
{ Public declarations }
end;
var
frmNT: TfrmNT;
implementation
{$R *.dfm}
uses uNavigation;
procedure TfrmNT.rgUClick(Sender: TObject);
begin
nU := rgU.ItemIndex;
nI := rgI.ItemIndex;
. . . .
Edit1.Text := FloatToStrF(R1[nI], ffNumber, 8, 2);
. . . .
end;