Kurs aus Datei auslesen?!

[Armadillo]

Tag zusammen,

is mein erster Post hier und naja, ich bin DER n00b schlechthin in Delphi, da ich aber früher schon andre Sachen geproggt haben und ich die langweiligen Programme, die wir im Informatikunterricht machen zu langweilig finde (durch die Schule bin ich auch auf Delphi gekommen!!! :D), will ich immer ziemlich hoch hinaus und hab den Standard-Euro-Umrechner einfach mal en bissl sehr modifiziert, jetzt hab ich aber ein Problem:

Mal angenommen, ich hab ne Datei, die ich aus dem Internet runterladen kann, in der der aktuelle Umrechnungskurs, z.B. von Euro in Dollar steht, des Ding lad ich mir dann immer, wenn ich den aktuellen Kurs haben will in ein bestimmtes Verzeichnis auf die Festplatte (könnte man ja zur Not auch angeben!). Wie zum Henker kann ich den Kurs aus der Datei auslesen, wenn er alleine in einer Zeile steht??? Ein Dateiformat kann ich leider ncoh nicht angeben, weil ich ehrlich gesagt noch keinen Server gesehen hab, der sowas anbietet!!! :( Zur Not müsst ich mir irgendwie sowas selber über den Server von nem Freund machen, is ja auch egal, aber wie kann ich den Kurs dann auslesen und automatisch in meine Umrechnungsfunktion (irgendeine Variable) einbauen lassen?

Noch was, wenn ich des über den Server von nem Freund laufen lass, welches datei-Format würdet ihr mir denn dann am betsen dafür empfehlen?! :):):)

Ich weiß, ich frag viel und es is auch net grad wirklich leicht(ich hab schon andre Delphi-Checker gefragt, die wussten aber keine Antwort!!! *g*), aber momentan seid ihr so ziemlich miene letzte Möglichkeit, alles andre hab cihs chon abgeklappert!!! *ggg* :D:D:D

Armadillo

PS: Oh mann, is ja schon wieder en halber Roman geworden, passiert mir übrigens immer!!! *g* :D:D:D

[Christian Seehase]

Moin Armadillo,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Das simpelste wäre wohl, wenn Du den Kurs aus einer INI Datei mit der Methode ReadFloat ausliest (falls Dir die Genauigkeit reicht)

z.B.

Delphi-Quellcode:

uses inifiles;

function KursAuslesen_USD : double;

var
  ini : TIniFile;

begin
  ini := TIniFile.Create('Hier\Der\Pfad\Wo\Sich\Die\Datei\Befindet');
  try
    Result := ini.ReadFloat('USD','Kurs',0);
  finally
    FreeAndNil(ini);
  end;
end;

ggf. kannst Du auch hier noch mehr zu TIniFile finden.

Die Hilfe gibt auch was her.

[EDIT]
Ich verschieb's mal nach "Sonstiges".
[/EDIT]

[p0w3r5tr34m3r]

Delphi-Quellcode:

function KursAuslesen_USD : double;

ist gar nicht nötig!

wenn er schon alles in einer .ini gespeichert hat dann brauch er doch lediglich folgendes zu machen

Delphi-Quellcode:

uses inifiles;

var
  ini : TIniFile;

begin
 ini := TIniFile.Create('Hier\Der\Pfad\Wo\Sich\Die\Datei\Befindet');
  try
   Label1.Caption := ini.readstring('Euro2','USD','0,00')
  except
   ShowMessage('Konnte nicht umrechnen');    
  end;
 ini.Free;
end;

[Christian Seehase]

Moin Powerstreamer,

sicher ist das Auslagern in eine Funktion nicht notwendig, aber wenn sich die Quelle mal ändern sollte (z.B. ein anderes Dateiformat), muss man nur die Funktion anpassen, und jede Stelle im Programm, wo sie aufgerufen wird so lassen wie sie ist.

BTW: Das ganze als String auszulesen ist eventuell etwas unpraktisch, wenn man damit rechnen will. ;-)

[Armadillo]

@Christian Seehase: Hehe, war das falsche Forum?! Ups *g* Hab halt noch net so die Planung!!! ;):):D THX fürs Verschieben!!! :):):)

@Powerstreamer: Danke für deine Antwort, aber Christian Seehase (gibts da irgendeine Abkürzung?! *g*) hat Recht, is en bissl plöde, wenn ich des dann als String hab, um danach dann den Kurs auch Umrechnen zu können is es viel besser, wenn ich des gleich im Float hab!!! Aber trotzdem Danke!!! :)

Ich werd mal ausprobieren, was funktioniert und in der Hilfe werd ich mir auch mal umschaun!!! :) Vielen Dank nochmal, wenns Probleme gibt meld ich mich nochmal!!! :)

[Edit]

Hehe, mist, grad hab ich die Antowort abgeschickt und dann fällt's mir ein!!! :D Also noch ne Frage: Also mal rein hypothetisch: Ich hab ne Datei Online, kann ich dann einfach den Online-Pfad angeben und den Kurs auch dort auslesen?! :?:?:?

[/Edit]

[Christian Seehase]

Moin Armadillo,

Zitat:

Zitat von Armadillo

Also noch ne Frage:

hier heisst es:

Neue Frage - Neuer Thread.
Danke.

[Armadillo]

Also, da ich zwischenzeitlich net so zum Proggen gekommen bin, hab jetzt grad mal ausprobiert, was ihr mir da empfohlen habt, das Einbauen war auch kein Porblrm, ich hab die ganze Sache mit nem ButtonClick verknüpft:

Delphi-Quellcode:

procedure TFEuroUSD.Button1Click(Sender: TObject);
begin
  ini := TIniFile.Create('D:\Eigene Dateien\Thomas\Computer\Programmieren\Programme\Umrechner\KUSD.ini');
  try
    Result := ini.ReadFloat('USD','Kurs',0);
  finally
    FreeAndNil(ini);
  end;
end;

Jetzt hab ich aber diverse Probleme...:

[Fehler] Unit6.pas(49): Undefinierter Bezeichner: 'TIniFile' //is des, was ich ins "var" packen sollt!!!
[Fehler] Unit6.pas(82): Operator oder Semikolon fehlt //Zeile 82(damit man sich zurecht findet!) :)
[Fehler] Unit6.pas(82): Inkompatible Typen: 'TComponent' und 'String'
[Fehler] Unit6.pas(84): Undefinierter Bezeichner: 'Result'
[Fehler] Unit6.pas(84): Operator oder Semikolon fehlt
[Fataler Fehler] Project1.dpr(11): Verwendete Unit 'Unit6.pas' kann nicht compiliert werden

Könntet ihr mir da bitte nochmal helfen, alleine hab ich die Sache noch net zum Laufen gebracht! :):):)

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[Matze]

dein erster Fehler:

Delphi-Quellcode:

uses IniFiles

den Rest weiß ich auch nicht. Steht "Result" in einer function? Dann müsste es erst ab D6 oder so ;) erkannt werden.

[Armadillo]

[PATSCH] *sichvorshirngehauenhat* :wall: Is mir auch grad aufgefallen, jetzt hab ich die Sache mal etwas sehr vereinfacht :coder:, ich will den Kurs jetzt nur noch in einem Edit-Fenster ausgeben!!! *g* Dazu hab ich mir folgendes aus den Fingern gesaugt: :D:D:D

Delphi-Quellcode:

procedure TFEuroUSD.Button1Click(Sender: TObject);
var
  ini: TIniFile;
begin
  ini:= TIniFile.Create('D:\Eigene Dateien\Thomas\Computer\Programmieren\Programme\Umrechner\KUSD.ini');
  EKurs.Text:= '';
  EKurs.Text:= ini.ReadFloat('Transfer', EKurs.Text);    //besagte Zeile 85 ist hier!!!
  ini.Free;
end;

Und nun hab ich folgendes Problem...: :)

[Fehler] Unit6.pas(85): Nicht genügend wirkliche Parameter
[Fataler Fehler] Project1.dpr(11): Verwendete Unit 'Unit6.pas' kann nicht compiliert werden

Das letzte is mir ja klar, aber was gibts bei dem ersten zu tun, das EKurs, is das Edit-Fenster, in dass die Zahl ausgegeben werden soll!!! Den Rest muss ich denk ich net erklären! :)

@Matze: THX!!! :D:D:D

Oh verdammt, ich hab nur Delphi 5!!! Bei der Lösung immer dran denken, wer immer sich auch meldet!!! *g* ;):):D

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[Daniel B]

Hi,

Zitat:

Zitat von Armadillo

[Fehler] Unit6.pas(85): Nicht genügend wirkliche Parameter
[Fataler Fehler] Project1.dpr(11): Verwendete Unit 'Unit6.pas' kann nicht compiliert werden

Delphi-Quellcode:

EKurs.Text:= ini.ReadFloat('Transfer', EKurs.Text);

Nach dem Edit.Text kommt noch ein dritter Parameter, siehe OH!!!
Und gewöhne Dir BITTE an Delphi-Tags zu benutzen, das ist ja fürchterlich! :gruebel: