GetConvertValue Example for Delphi

Procedure TForm1.TestProc();
var
   x: Integer;
   nRet: Integer;
   nCount: Integer;
begin
   //add some values to the element
   //note, this will only work for elements that have a VR that supports multiple values
   LEADDicomDS1.EnableMethodErrors:= False;
   LEADDicomDS1.StringValueCount:= 3;
   LEADDicomDS1.StringValues [0]:= FloatToStr(3.45);
   LEADDicomDS1.StringValues[1]:= FloatToStr(9.99);
   LEADDicomDS1.StringValues[2]:= FloatToStr(1.11);

   nRet:= LEADDicomDS1.SetConvertValue;
   //free the current values
   LEADDicomDS1.StringValueCount:= 0;

   //now get the values and display them
   nRet:= LEADDicomDS1.GetConvertValue ();
   if(nRet = 0)then
   begin
     nCount:= LEADDicomDS1.StringValueCount;
     Edit5.Text:= '';
     for x:= 0 To nCount - 1 do
     begin
         //display each value on a separate line
         Edit5.Text:= Edit5.Text + LEADDicomDS1.StringValues [x] + Chr(13) + Chr(10)
     end;
   end;
   LEADDicomDS1.EnableMethodErrors:= True;
end;