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

val := StrToFloat(Edits[i].Text)

else begin Edits[i].Text:='1'; val:=1; end;

Break;

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;