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

procedure TMainForm.InitMetrix;

begin

try

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;