AlternativeUnits - Exemples

// modification du ratio de conversion entre deux unités

uses QubesAlternativeUnits;

const cItemGPAOID = 'ITEM_GPAOID';
const cUnitSrc = 'UNIT_SRC';
const cUnitDest = 'UNIT_DEST';

var alternativeUnitsList : array of TAlternativeUnitCfg;
alternativeUnitsList:= AlternativeUnits.Enumerate(cItemGPAOID);
for var i:=0 to alternativeUnitsList.Length()-1 do begin
   var cfg := alternativeUnitsList[i];
   if (cfg.UnitSrc=cUnitSrc) and (cfg.UnitDest=cUnitDest) then begin
      alternativeUnitsList[i].Ratio := 20;
      AlternativeUnits.Update(cItemGPAOID, alternativeUnitsList);
      Print("config changed");
      break;
   end;
end;