String als Double

[m.fuchs]

Das ist ja alles schön und gut, löst aber nicht das eigentliche Problem. Dem OP geht es nicht um die Arbeitsweise von Funktionen oder wie die Float-Umwandlung funktioniert. Er möchte eine Liste von Strings einer Liste von Doubles zuordnen.

[Mathias]

Er möchte eine Liste von Strings einer Liste von Doubles zuordnen.

Dann könnte man doch eine TList nehmen.

Oder einfach einen Array of Record.

Das einfachste für solche Sachen sind halt immer noch Classen, so wie es weiter oben beschrieben ist.
Sieht komplizierter aus als es ist.

[wp_xyz]

Ich weiß nicht, wie die Daten von der EZB bei dir vorliegen. Ich nehme mal an, dir liegt eine Datei vor, in der die Währungsbezeichnungen in einer Spalte stehen und daneben die aktuellen Kurswerte. Um das in einem Programm umzusetzen würde ich einen Record definieren, der Währungsbezeichnung und Kurs in einer Größe zusammenpackt, und all diese Records in einem Array, zum Beispiel, (das ist anfängergerechter als eine TList). Dann durchläufst du in einer Schleife alle Records und siehst nach, ob die Währung des aktuell gewählten Records der gesuchten entspricht - die Schleife ersetzt dir sozusagen die 80 if's.

Etwa so (nicht getestet, Fehler möglich) - ich hoffe mal, dass das keine Hausaufgabe ist...:

Code: Alles auswählen

type
  TWaehrung = record
    Name: String;
    Kurs: Double;
  end;
 
var
  Waehrungen: array of TWaehrung;
 
function KursSuchen(EineWaehrung: String): Double;
var
  i: Integer;
begin
  for i:=0 to High(Waehrungen) do
    if Waehrungen[i].Name = EineWaehrung then begin
      Result := Waehrungen[i].Kurs;
      exit;
    end;
  Result := -1;  // soll anzeigen, dass die Währung nicht gefunden wurde.
end;
 
procedure TForm1.Combobox1Change(Sender: TObject);
var
  Kurs: Double;
begin
  kurs := KursSuchen(Combobox1.Text);
  if kurs = -1 then
    Label1.Caption := 'Währung nicht gefunden'
  else
    Label1.Caption := FloatToStr(kurs);
end;

[Hartkern]

Wie jetzt....Kurse von der EZB laden können aber bei ner Funktion hört es auf??

[Euklid]

80 mal if ... then ... schreiben, ist ja nicht besonders elegant.

Kennst Du das CASE-OF-Statement? Es ist extra geschaffen worden, um viele if-Abfragen elegant zu lösen - passt also vielleicht genau für Dein Problem

Schau mal hier:

http://www.freepascal.org/docs-html/ref/refsu57.html

Gib einfach Bescheid, wenn Du ein konkretes Beispiel brauchst.

- Euklid

[Andromeda]

vielen Dank. Ja, das mit CASE-OF habe ich mir angeschaut. Das scheint auch eine gute Möglichkeit zu sein. Aber noch lieber wäre mir eine Function, die mir aus dem Namen der Währung (das ist ein String, wie Euro, Dollar, Yen usw.) den Kurs (das ist ein Double, wie KursEuro, KursDollar, KursYen usw.) liefert. Ich habe in meinem Programm 80 Strings mit den Namen der Währungen und 80 Doubles mit den Kursen der entsprechenden Währungen. Da die Bezeichnungen der Doubles sich nur durch den Vorsatz "Kurs" von den Namen unterscheiden, müsste das meiner Meinung nach möglich sein, aber geschafft habe ich das bis jetzt noch nicht. Mit Listen oder Maps zu arbeiten, ist sicherlich auch möglich, aber da die Kurse im Minutenabstand aktualisiert werden und von vielen verschiedenen Quellen (nicht nur von der EZB, sondern auch von europäischen, amerikanischen und chinesischen Börsen) stammen, wahrscheinlich etwas umständlich. Jede Börse liefert mir ja nur einen kleinen Teil der Werte, die in der Liste enthalten sind.

[m.fuchs]

Aber noch lieber wäre mir eine Function, die mir aus dem Namen der Währung (das ist ein String, wie Euro, Dollar, Yen usw.) den Kurs (das ist ein Double, wie KursEuro, KursDollar, KursYen usw.) liefert.

Kann man machen, intern würde ich die Werte in einer Map speichern und von dort auslesen.

Ich habe in meinem Programm 80 Strings mit den Namen der Währungen und 80 Doubles mit den Kursen der entsprechenden Währungen. Da die Bezeichnungen der Doubles sich nur durch den Vorsatz "Kurs" von den Namen unterscheiden, müsste das meiner Meinung nach möglich sein, aber geschafft habe ich das bis jetzt noch nicht.

Viel zu kompliziert. Ob man in Freepascal auf die Variablennamen überhaupt zugreifen kann weiß ich nicht einmal, wenn ist es recht aufwändig (Stichwort: RTTI). Die Map ist da die einfache Variante.

Mit Listen oder Maps zu arbeiten, ist sicherlich auch möglich, aber da die Kurse im Minutenabstand aktualisiert werden und von vielen verschiedenen Quellen (nicht nur von der EZB, sondern auch von europäischen, amerikanischen und chinesischen Börsen) stammen, wahrscheinlich etwas umständlich. Jede Börse liefert mir ja nur einen kleinen Teil der Werte, die in der Liste enthalten sind.

Im Gegenteil, wenn du die zentrale Map hast dann können deine einzelnen Programmteile auch problemlos nur die Kurse updaten, die sie kennen. Zugriff erfolgt ja über den Key, also den Währungsnamen. Es kristallisiert sich für mich immer mehr heraus: die Map ist die beste Lösung für dein Problem.

[Requion]

Hallo Andromeda,

ich habe gerade nochmal durchs Netz geschaut. Bei der Suche nach verschiedenen Stichworten kam mir irgendwann eine INI-Datei in den Sinn.
Jetzt weiß ich allerdings nicht in welcher vorm du die jeweiligen Kurse erhälst. Da müsste man dann schauen ob man die INI entsprechend automatisch aktualisieren kann (möglich ist das mit Sicherheit, nur der Aufwand ist fraglich).

Also meine Idee:
Kurse.ini:

Code: Alles auswählen

[Kurse]
Dollar=x,xx
Yen=x,xx
Euro=x,xx

im Programm rufst du den Wert dann mit

Code: Alles auswählen

Inifile.ReadFloat('Kurse', CmbKurse.Text, 0); //gibts das im Laz? Ansonsten ReadString und dann konvertieren

auf.

[Andromeda]

Ok, das sehe ich ein. Du hast mir ja praktisch schon den ganzen Quellcode für das Erstellen einer Map aufgezeigt. Im Grunde scheint mir zwischen einer Map und einer Listview kein großer Unterschied zu sein. Das müsste ich hinbekommen.

Edit: Diese Antwort war für m.fuchs bestimmt.

[Andromeda]

Wahrscheinlich ist es besser, ich schildere mal, was ich in meinem Programm machen möchte. Vielleicht hat dann jemand eine Idee, wie man das am besten lösen könnte. Ich habe eine antizyklische Tradingmethode entwickelt, die ich mit meinem Programm realisieren möchte. Im Programm werden insgesamt etwa 80 Werte berücksichtigt, dazu gehören die ganzen Fiatwährungen, wie Euro, Dollar, Yen usw., dann die Kryptowährungen, wie Bitcoin, Ethereum, NEM usw und zuletzt auch noch wichtige andere Werte, wie Gold- und Ölpreis . Die Fiatwährungen werden einmal täglich um 14 Uhr 15 von der EZB heruntergeladen. Dollar und andere wichtige Fiatwährungen zusätzlich noch alle halbe Stunde von der Forex. Die Kryptowährungen lade ich von allen gängigen europäischen, amerikanischen und chinesischen Börsen herunter. Der Kurs wird je nach Umsatz an der jeweiligen Börse gewichtet, so dass ein möglichst realistischer Durchschnittskurs errechnet werden kann. Das Aktualisierungsintervall kann im Programm von 1 Minute bis zu 1 Stunde eingestellt werden. Das alles ist schon fertig, funktioniert und liefert mir für jeden der 80 Werte den aktuellen, umsatzgewichteten Kurs als Double (KursDollar, KursYen, KursBitcoin usw.).

Für die antizyklische Handelsstrategie kann man aus ebenfalls 80 (fast gleichnamigen) Werten bis zu 10 Werte auswählen, die dann ständig angezeigt und mit denen die eigentlichen Handelsberechnungen durchgeführt werden. Diese Werte liegen als String vor und dafür brauche ich die Verbindung zu den Doubles. In 10 ComboBoxen kann man die gewünschten Währungen auswählen und dabei sollen natürlich die aktuellen Kurse übernommen werden. Das ist mein ganzes Problem: ich wähle in der ComboBox eine Währung aus, die mir als String (Euro, Dollar, Yen usw.) vorliegt und möchte den entsprechenden Double (KursEuro, KursDollar, KursYen usw.) erhalten. Natürlich sollen diese Werte bei jeder Aktualisierung der Börsen ständig ebenfalls aktualisiert werden.

Bei dem Vorschlag von m.fuchs mit den Maps müsste ich also ständig die Map aktualisieren, und bis jetzt weiß ich nicht, wie so etwas geht. Deshalb erschien es mir einfacher, ich könnte bei der Auswahl "Dollar" irgendwie den Wert von "KursDollar" nachschlagen.

Mir wäre natürlich auch mit dem Umgekehrten geholfen, wenn ich also die Bezeichnungen für die Doubles KursEuro, KursDollar, KursYen usw. in Strings Euro, Dollar, Yen usw. umwandeln könnte, um damit die Liste für die ComboBoxen zu generieren.

[m.fuchs]

Ehrlich gesagt verstehe ich deine Schwierigkeiten nicht. Wenn du Variablen verändern kannst, dann kannst du doch auch die Werte einer Map verändern.

Hier nochmal zusammengefasst:

Definition der Map:

Code: Alles auswählen

type
  TKursMap = specialize TFPGMap<String, Double>;
 
var
  KursMap: TKursMap;
 

Map beim Programmstart initialisieren:

Code: Alles auswählen

Kursmap := TKursMap.Create;
KursMap.Add('Dollar', 1.444);
KursMap.Add('Pfund', 1.51);

Du lässt dir den Wert des Pfund ausgeben:

Code: Alles auswählen

Label1.Caption := FloatToStr(KursMap.KeyData['Pfund']);

Label1 zeigt jetzt 1.51 an.

Nun, tritt eine Veränderung ein. Beispielsweise stimmen 51,89 Prozent der Wähler für einen Brexit.

Code: Alles auswählen

KursMap.KeyData['Pfund'] := 1.19;

Du lässt dir wieder den Wert des Pfund ausgeben:

Code: Alles auswählen

Label1.Caption := FloatToStr(KursMap.KeyData['Pfund']);

Label1 zeigt jetzt 1.19 an.

Noch Fragen? Dann fragen

Ach ja, für die Nutzung der Maps musst du die Unit fgl einbinden.

[Andromeda]

Ok, Du hast mich überzeugt. Ich werde das jetzt mit der Map machen. Vielen dank.

[Andromeda]

ich habe das jetzt mit der Map gemacht und es funktioniert wunderbar, auch die Aktualisierung und Abfrage der Werte. Das ist genau die richtige Lösung. Nochmals vielen Dank. Ohne Deine Hilfe hätte ich das nie hingebracht. Weiter oben hast Du kurz erwähnt, dass man noch Fehler abfangen sollte. An was hast Du dabei gedacht?

[m.fuchs]

Weiter oben hast Du kurz erwähnt, dass man noch Fehler abfangen sollte. An was hast Du dabei gedacht?

Wenn du auf einen Key zugreifst der nicht existiert, wirft dein Programm eine Exception. Zur Absicherung kann man folgendes machen:

Code: Alles auswählen

if KursMap.IndexOf('Dollar') > -1 then
  Label1.Caption := FloatToStr(KursMap.KeyData['Dollar'])
else
  Label1.Caption := 'not found';

IndexOf liefert die Position des Keys in der Map zurück. Existiert der Key nicht, dann ist das Ergebnis -1.

Beim Updaten der Werte muss du das nicht machen, hier wird bei ein Zugriff auf einen fehlenden Key dieser automatisch angelegt.

[malabarista]

Du könntest eine "switch : case" -Lösung verwenden:
http://wiki.freepascal.org/Case/de