Subversion Repositories currency_converter

Rev

Rev 13 | Rev 17 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 16
Line 207... Line 207...
207 
  result := 0; // to avoid that the compiler shows a warning
 207 
  result := 0; // to avoid that the compiler shows a warning
208 
 
 208 
 
209 
  fromCur := Trim(UpperCase(fromCur));
 209 
  fromCur := Trim(UpperCase(fromCur));
210 
  toCur := Trim(UpperCase(toCur));
 210 
  toCur := Trim(UpperCase(toCur));
211 
 
 211 
 
- 
 
 212 
  if fromCur = toCur then
- 
 
 213 
  begin
- 
 
 214 
    result := value;
- 
 
 215 
    exit;
- 
 
 216 
  end;
- 
 
 217 
 
212 
  sJSON := GetJsonRaw(HistoricDate);
 218 
  sJSON := GetJsonRaw(HistoricDate);
213 
 
 219 
 
214 
  xRoot := TlkJSON.ParseText(sJSON) as TlkJSONobject;
 220 
  xRoot := TlkJSON.ParseText(sJSON) as TlkJSONobject;
215 
  try
 221 
  try
216 
    xSource := xRoot.Field['source'] as TlkJSONstring;
 222 
    xSource := xRoot.Field['source'] as TlkJSONstring;