1:

http://www.google.com/ig/calculator?hl=en&q=1 USD in EUR                    

1:

{lhs: "1 U.S. dollar",rhs: "0.76057195 Euros",error: "",icc: true}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm2.Button1Click(Sender: TObject);
var
 s:TStringStream;
begin
   s:=TStringStream.Create;
   try
     idHttp1.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml',s);
     Memo1.Lines.Text := s.DataString;
   finally
     s.Free;
   end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm2.Button1Click(Sender: TObject);
begin
  try
    Memo1.Text := idHttp1.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
  except
    ShowMessage('Es ist ein Fehler aufgetreten!');
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

uses
  IdHttp;

var
  HttpLoader: TIdHttp;
  PageContents: String;
begin
  HttpLoader := TIdHttp.Create;
  try
    Memo1.Text := HttpLoader.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
  finally
    HttpLoader.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

var Eurowert: Array[0..9] of real;
    Waehrungen: Array[0..9] of real;

procedure TForm1.B_OKClick(Sender: TObject);
var Eingabeok: boolean;
begin
Eingabeok:=true;

// an dieser Stelle kommt eine Eingabe überpfüfung
// Wenn die Eingabe fehlerhaft ist (z.B Buchstaben anstatt zahlen.... wird Eingabeok auf false gesetzt...

  If Eingabeok=True then
     begin
       Eurowert[0]:=StrToFloat(TF_Australien.Text)/Waehrungen[0] ;
       Eurowert[1]:=StrToFloat(TF_China.Text)/Waehrungen[1];
       Eurowert[2]:=StrToFloat(TF_Canada.Text)/Waehrungen[2];
       Eurowert[3]:=StrToFloat(TF_DK.Text)/Waehrungen[3];
       Eurowert[4]:=StrToFloat(TF_GBr.Text)/Waehrungen[4];
       Eurowert[5]:=StrToFloat(TF_Indien.Text)/Waehrungen[5];
       Eurowert[6]:=StrToFloat(TF_Japan.Text)/Waehrungen[6];
       Eurowert[7]:=StrToFloat(TF_Schweden.Text)/Waehrungen[7];
       Eurowert[8]:=StrToFloat(TF_Schweiz.Text)/Waehrungen[8];
       Eurowert[9]:=StrToFloat(TF_USA.Text)/Waehrungen[9];
       Gesamt:=Eurowert[0]+Eurowert[1]+Eurowert[2]+Eurowert[3]+Eurowert[4]+Eurowert[5]+
               Eurowert[6]+Eurowert[7]+Eurowert[8]+Eurowert[9];

       TF_Euro.Text:=FloatToStrF(Gesamt, ffFixed, 10, 2);
     end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  Waehrungen[0]:=1.2332;      //Australien
  Waehrungen[1]:=8.2179;      //China
  Waehrungen[2]:=1.3129;      //Canada
  Waehrungen[3]:=7.4358;      //Dänemark
  Waehrungen[4]:=0.83625;     //Groß Britanien
  Waehrungen[5]:=65.0780;     //Indien
  Waehrungen[6]:=100.10;      //Japan
  Waehrungen[7]:=8.7791;      //Schweden
  Waehrungen[8]:=1.2061;      //Schweiz
  Waehrungen[9]:=1.3017;      //USA
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

uses ..., IdHTTP;

...

var
  http: TIdHTTP;
  html: String;
begin
  http := TIdHTTP.Create(nil);
  try
    // Quelltext herunterladen
    html := http.Get('http://www.google.de/');  

    // Etwas mit html machen, z. B. deine benötigten Werte auslesen
  finally
    FreeAndNil(http);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var list: TStringList;
begin
  //...
  list:= TStringList.Create;
  try
    list.LoadFromFile('blubb.txt');
    //...
  finally
    list.Free;
  end;
  //...
  list.Add('Test');
  //...
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.FormCreate(Sender: TObject);
var PassNode :TDOMNode;
    API: TIdHttp;
    Doc: TXMLDocument;
begin
  B_New.Click;
  Doc.Create;
  API:=TIdHTTP.Create;

  API.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
  ReadXMLFile(Doc,API); 

  API.Free;
  Doc.Free;
end;