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;