Курсы валют на Delphi - Delphi - Ответ 1713990

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type TCurrencyData = record
     ComboBox1: TComboBox;
     Label1: TLabel;
     CharCode, Name: ShortString;
     Nominal: Integer;
     Value: Real;
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
var CBR: array of TCurrencyData;
 
function TMainForm.GetCurrencyList(FileName, DefaultCurrency: string): TDateTime;
var
  XMLDocument: TXMLDocument;
  BufXMLNodeList: IXMLNodeList;
  i, k: integer;
begin
  try
    XMLDocument := TXMLDocument.Create(MainForm);
    XMLDocument.Active := True;
    XMLDocument.LoadFromFile(FileName);
    CurrencyBox.Clear;
    if XMLDocument.ChildNodes[1].HasChildNodes then
      BufXMLNodeList := XMLDocument.ChildNodes[1].ChildNodes;
    Result := StrToDate(XMLDocument.ChildNodes[1].Attributes['Date']);
    SetLength(CBR, 1);
    CBR[Length(CBR) - 1].CharCode := 'RUB';
    CBR[Length(CBR) - 1].Nominal := 1;
    CBR[Length(CBR) - 1].Name := 'Ðîññèéñêèå ðóáëè';
    CBR[Length(CBR) - 1].Value := 1;
    CurrencyBox.Items.Add(FloatToStr(CBR[Length(CBR) - 1].Value) + ' ' + CBR[Length(CBR) - 1].CharCode + ' = ' + IntToStr(CBR[Length(CBR) - 1].Nominal) + ' RUB');
    if CurrencyBox.Text = '' then
      if Pos(DefaultCurrency, CurrencyBox.Items[Length(CBR) - 1]) > 0 then
      begin
        CurrencyBox.ItemIndex := Length(CBR) - 1;
        CurrencyLabel.Caption := 'Âàëþòà: ' + CBR[Length(CBR) - 1].Name;
      end;
 
    for i := 0 to BufXMLNodeList.Count - 1 do
      if BufXMLNodeList[i].HasChildNodes then
      begin
        SetLength(CBR, Length(CBR) + 1);
        for k := 0 to BufXMLNodeList[i].ChildNodes.Count - 1 do
        begin
          if BufXMLNodeList[i].ChildNodes[k].NodeName = 'CharCode' then
            if BufXMLNodeList[i].ChildNodes[k].NodeValue <> Null then
              CBR[Length(CBR) - 1].CharCode := BufXMLNodeList[i].ChildNodes[k].NodeValue;
          if BufXMLNodeList[i].ChildNodes[k].NodeName = 'Nominal' then
            if BufXMLNodeList[i].ChildNodes[k].NodeValue <> Null then
              CBR[Length(CBR) - 1].Nominal := StrToInt(BufXMLNodeList[i].ChildNodes[k].NodeValue);
          if BufXMLNodeList[i].ChildNodes[k].NodeName = 'Name' then
            if BufXMLNodeList[i].ChildNodes[k].NodeValue <> Null then
              CBR[Length(CBR) - 1].Name := BufXMLNodeList[i].ChildNodes[k].NodeValue;
          if BufXMLNodeList[i].ChildNodes[k].NodeName = 'Value' then
            if BufXMLNodeList[i].ChildNodes[k].NodeValue <> Null then
              CBR[Length(CBR) - 1].Value := StrToFloat(BufXMLNodeList[i].ChildNodes[k].NodeValue);
        end;
        CurrencyBox.Items.Add(FloatToStr(CBR[Length(CBR) - 1].Value) + ' ' + CBR[Length(CBR) - 1].CharCode + ' = ' + IntToStr(CBR[Length(CBR) - 1].Nominal) + ' RUB');
        if CurrencyBox.Text = '' then
          if Pos(DefaultCurrency, CurrencyBox.Items[Length(CBR) - 1]) > 0 then
          begin
            CurrencyBox.ItemIndex := Length(CBR) - 1;
            CurrencyLabel.Caption := 'Âàëþòà: ' + CBR[Length(CBR) - 1].Name;
          end;
      end;
  finally
    XMLDocument.SaveToFile('cbr.xml');
    XMLDocument.Active := False;
    XMLDocument.Free;
  end;
end;
end.