ADLINK Technology RTV Series User Manual page 99

Result := AngeloRTV_Get_Version
(DriverVersion[1], DLLVersion[1],
Reserved[1]);
strDriverVersion := IntToStr(DriverVersion[1]);
strDriverVersion := strDriverVersion + '.' +
IntToStr(DriverVersion[2]);
strDriverVersion := strDriverVersion + '.' +
IntToStr(DriverVersion[3]);
strDriverVersion := strDriverVersion + '.' +
IntToStr(DriverVersion[4]);
strDLLVersion := IntToStr(DLLVersion[1]);
strDLLVersion := strDLLVersion + '.' +
IntToStr(DLLVersion[2]);
strDLLVersion := strDLLVersion + '.' +
IntToStr(DLLVersion[3]);
strDLLVersion := strDLLVersion + '.' +
IntToStr(DLLVersion[4]);
Function Library 89