Динамика курса валют - Проблема с выводом значений больше 1000 (Delphi)

[Max1097]

Всем привет!

У меня проблема с выводом данных курса валют Доллара США с 02.06.1993 по 30.12.1997 значений которых больше 1000. До 999 выводит нормально, а вот больше 1000 уже не может. Парсинг делается через URL ссылку, а ответ сохраняется в XML файле. Проблема заключается в пробеле между сотнями и тысячами, там стоит пробел, а так как график работает только с типом с плавающей запятой. Пробовал убрать пробел многими способами, но это спасало ситуацию.

Вот фото ошибки:



Вот фрагмент кода функции Доллара США, где проходит весь процесс парсинга:

...
  TCurrencyData = record
    Date: TDateTime;
    Value: String;
  end;

var
  Form1: TForm1;
  CBR: array of TCurrencyData;
  Result1, Result2: TDateTime;
...
function TForm1.GetKursUSD(FileName: string): TDateTime;
var
  XMLDocument: TXMLDocument;
  BufXMLNodeList: IXMLNodeList;
  i: integer;
begin
  try
    XMLDocument := TXMLDocument.Create(Form1);
    XMLDocument.Active := True;
    XMLDocument.LoadFromFile(FileName);
    Result1:=StrToDate(XMLDocument.ChildNodes[1].Attributes['DateRange1']);
    Result2:=StrToDate(XMLDocument.ChildNodes[1].Attributes['DateRange2']);
    if XMLDocument.ChildNodes[1].HasChildNodes <> Null then
    begin
    BufXMLNodeList := XMLDocument.ChildNodes[1].ChildNodes;
    SetLength(CBR, BufXMLNodeList.Count);
    for i := 0 to BufXMLNodeList.Count - 1 do
      begin
        if BufXMLNodeList[i].HasAttribute('Date') then
          CBR[i].Date := StrToDate(BufXMLNodeList[i].Attributes['Date']);
        if BufXMLNodeList[i].HasChildNodes and
          (BufXMLNodeList[i].ChildNodes['Value'].NodeValue <> Null) then
            CBR[i].Value := BufXMLNodeList[i].ChildNodes['Value'].NodeValue;
          ValueListEditor1.InsertRow(DateToStr(CBR[i].Date),CBR[i].Value,true);
          Series1.Add(StrToFloat(CBR[i].Value), DateToStr(CBR[i].Date));
      end;
    end;
  finally
  SetLength(CBR, 0);
  XMLDocument.SaveToFile('cbrUSD.xml');
  XMLDocument.Active := False;
  XMLDocument.Free;
  end;
end;

Сама программа во вложении.
Буду рад если поможете.

[Аватар]

Пробовал убрать пробел многими способами

Какими интерсено?

StrToFloat(CBR[i].Value)

замени на

StrToFloat(StringReplace(CBR[i].Value,' ','',rfReplaceAll))

Может быть еще проблема с десятичным разделителем, в зависимости от настроек винды

[TaLadno]

А всё потому, что там "пробел" очень хитрый, аж неразрывный

function TForm1.PrepareValue(Value: string): string;
Begin
  result := Value;
  result := AnsiReplaceStr(result, ' ', '');
  result := AnsiReplaceStr(result, chr(160), '');
End;
...

function TForm1.GetKursUSD(FileName: string): TDateTime;
...
Begin
...
  Series1.Add(StrToFloat(PrepareValue(CBR[i].Value)), DateToStr(CBR[i].Date));
...
End;

[Serge_Bliznykov]

TaLadno, в точку!!

а если так попробовать?

StrToFloat(StringReplace(CBR[i].Value,#$A0,'',rfReplaceAll))

[TaLadno]

Да, так тоже прокатит, только проверку на "нормальный" пробел все равно надо пихать, бо крашится без неё

[Serge_Bliznykov]

Сообщение от TaLadno

Да, так тоже прокатит, только проверку на "нормальный" пробел все равно надо пихать, бо крашится без неё

ага. согласен! Вы просто пример кода дописали уже после...

[Max1097]

Сообщение от TaLadno

А всё потому, что там "пробел" очень хитрый, аж неразрывный

function TForm1.PrepareValue(Value: string): string;
Begin
  result := Value;
  result := AnsiReplaceStr(result, ' ', '');
  result := AnsiReplaceStr(result, chr(160), '');
End;
...

function TForm1.GetKursUSD(FileName: string): TDateTime;
...
Begin
...
  Series1.Add(StrToFloat(PrepareValue(CBR[i].Value)), DateToStr(CBR[i].Date));
...
End;

Большое спасибо! Помогло. Вот так сюрприз от ЦБ с пробелами. Всем кто откликнулся тоже спасибо. Удачи всем!