SetVRName Example for Delphi
LEADDicom1.EnableMethodErrors := true;
try
{ move to the selected VR }
LEADDicom1.FindIndexVR(12);
ShowMessage('Original VR name: ' + LEADDicom1.CurrentVR.Name);
{ change the name }
LEADDicom1.SetVRName('New VR Name');
ShowMessage('Modified VR name: ' + LEADDicom1.CurrentVR.Name);
except
ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
end;