// Display a value for a nested tag var Index: integer; Tags: TIEDicomTags; begin ImageEnView1.IO.LoadFromFile('input.dcm'); Tags := imageenview1.IO.Params.DICOM_Tags.FindNestedTag($18, $1042, Index); if Index > -1 then ShowMessage( Tags.GetTagString(Index) ); end;
// Update the value of a nested tag ImageEnView1.IO.LoadFromFile('D:\tags1.dcm'); Tags := imageenview1.IO.Params.DICOM_Tags.FindNestedTag($0040, $1001, Index); if Index > -1 then Tags.SetTagString( Tags.GetTag( Index ).Group, Tags.GetTag( Index ).Element, 'NEW VALUE' );