Реферат: Довідник одиниці вимірювання система числення час у різних країнах

except

on EConvertError do ShowMessage('Невірнийформатчисла');

end ; // try

end ; //if

end ; //for

X := F.ReadFloat(RadioGroup.Items[RadioGroup.ItemIndex],

( Sender as TSpeedButton).Hint, 1.0) ;

Etalon := val * X;

// Взяття введеного значення і приведення до „еталону”

for i := 0 to High(Edits) do

begin

if Edits[i].Hint<>( Sender as TSpeedButton).Hint then

begin

Y := Etalon / F.ReadFloat(RadioGroup.Items[RadioGroup.ItemIndex],

Edits[i].Hint , 1.0) ;

// знаходження вихідної величини і подальше її форматування

Edits[i].Text:=FloatToStr(Y);

if (pos(',', Edits[i].Text)>0) and (pos('E', Edits[i].Text)=0) then begin

for j:= pos(',', Edits[i].Text)+1 to Length(Edits[i].Text) do

if (Edits[i].Text[j]<>'0') then break;

Edits[i].Text:=copy( Edits[i].Text,0,j-1+5);

// число значущих цифр після коми

end ;

end ; //if

end ; //for

Beep; // звук

end ;

// перерахунок величин

procedure TMainForm.LoadSetings;