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

F := TIniFile.Create(ExtractFilePath(Application.ExeName)+IniFile);

except

on Exception do Close;

end ;

f.ReadSections( RadioGroup.Items );

RadioGroup.Items.Delete(0);

RadioGroup.ItemIndex:=0;

end ;

// Завантаження заголовків одиниць вимірювання в RadioGroup.

procedure TMainForm.TimeTimerTimer(Sender: TObject);

var Finded : TDateTime;

begin

CurTime.Caption:=TimeToStr(Now);

try

if ComboGMT.Text[5]='+' then

Finded:= Now + StrToTime(copy(ComboGMT.Text,6,5)) - StrToTime('02:00')

else

Finded:= Now - StrToTime(copy(ComboGMT.Text,6,5)) - StrToTime('02:00');

FindedTime.Caption:=TimeToStr(Finded);

except

end ;

end ;

// Порахунок і відображення часу

procedure TMainForm.N1Click(Sender: TObject);

var

reg : TRegistry;

ts : TStrings;

i : integer;

s : string[150];