Fehler bei Dateneingabe

[snboy2010]

Hallo. Ich habe ein folgendes Problem. Schreibe gerade ein Programm. Der Queltext für den Button sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : real;
begin
    aktpreis := StrToFloat(Edit6.Text);
    ver100ben := StrToFloat(Edit3.Text);
    jahrkm := StrToFloat(Edit4.Text);
    ausgabevbj := VerbrauchBenzinJahr(ver100ben, jahrkm);
    ausgabebkj := BenzinkostenJahr(aktpreis, ausgabevbj);

    Panel1.Caption := FloatToStr(ausgabevbj);
    Panel4.Caption := FloatToStr(ausgabebkj);

end;

Wenn ich jetzt das Programm starte funktioniert es eigentlich. Aber es sind kleine Fehler. Wenn ich keine Daten in den Edit-Feldern habe und dann den Button anklicke kommt immer eine Fehlermeldung. Ebenfalls muss ich die Zahlen duch Komma schreiben. Also z.B. 1,2 bei 1.2 kommt ebenfalls eine Fehlermeldung. Was kann ich da jetzt machen?

[DeddyH]

Schließe Delphi-Code bitte künfig in Delphi-Tags ein. Und Du könntest Dir TryStrToFloat oder StrToFloatDef einmal anschauen.

[p80286]

Try... wurde ja schon genannt.
Und in Deutschland werden Dezimalbrüche nuneinmal mit , geschrieben.
Wenn Du hierfür den Punkt nutzen willst, dann solltest du Deinem Rechner klarmachen, das er in den USA steht. Dann ist aber auch das Datumsformat ein anderes.
Du könntest aber auch gleich das Format der Eingabe überprüfen und das richtige Format an Dein Programm weiter reichen.

Gruß
K-H

[DeddyH]

Beide genannten Funktionen sind überladen, so dass man auch das Format übergeben kann.

[snboy2010]

Hallo. Ok ich habe es jetzt so gemacht:

Code:

var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : real;
begin
    aktpreis := tryStrToFloat(Edit6.Text);

Es kommt aber die folgende Fehlermeldung:
There is no overloaded version of 'TryStrToFloat' that can be called with these arguments.

Muss ich TryStrToFloat irgendwo definieren? Sorry aber programmieren ist nicht meine Stärke. Ich mache es nur für die Schule.

[mkinzler]

Dann schau dir mal an, wie die Funktion deklariert ist
http://docs.embarcadero.com/[e-mail]

[rollstuhlfahrer]

Und gib bitte deinen Komponenten aussagekräftige Namen. Mit Edit1-6 wirst du in 1-2 Wochen nichts mehr anfangen können oder du schaust jedes mal nach, wie das Feld heißt.

Bernhard

[snboy2010]

Sprich ich muss diese SysUtils in den Queltext implemetieren?

[mkinzler]

Nein, nur Einbinden und dann miut den richtigen Parametern und Rückgabewert aufrufen.

[snboy2010]

Ok. Habe es so gelöst

Code:

procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
  if TryStrToFloat(Edit6.Text,aktpreis) then
    begin
      //ShowMessage('Ungültige Eingabe');
      aktpreis := StrToFloat(Edit6.Text);
    end
  else
   begin
      ShowMessage('HAHA');
    end;
    //aktpreis := StrToFloat(Edit6.Text);
    ver100ben := StrToFloat(Edit3.Text);
    jahrkm := StrToFloat(Edit4.Text);
    ausgabevbj := VerbrauchBenzinJahr(ver100ben, jahrkm);
    ausgabebkj := BenzinkostenJahr(aktpreis, ausgabevbj);

    Panel1.Caption := FloatToStr(ausgabevbj);
    Panel4.Caption := FloatToStr(ausgabebkj);

end;

Funktioniert auf jeden Fall.
Könnt Ihr mir bitte noch erklären wie das gemeint war, dass ich Dezimalzahlen auch mit Punkt schreiben kann. Also das beides funktioniert sowohl , als auch . ?