/trunk/RTL/VtsCurConv.pas |
---|
209,6 → 209,12 |
fromCur := Trim(UpperCase(fromCur)); |
toCur := Trim(UpperCase(toCur)); |
if fromCur = toCur then |
begin |
result := value; |
exit; |
end; |
sJSON := GetJsonRaw(HistoricDate); |
xRoot := TlkJSON.ParseText(sJSON) as TlkJSONobject; |