Fehler bei Dateneingabe

[snboy2010]

Das habe ich ja probiert. Funktioniert nicht. Kommt folgende Fehlermeldung: 1.51 Is not a valid floating point value

[mkinzler]

Es dürfte ja kein Punkz mehr drin sein, oder gibst du mehrere ein?

[snboy2010]

eingentlich nicht. Mal so eine Idee:
Ich kann ja mit decimalseparator := '.'; den Punkt festlegen kann ich auch schreiben punkt oder komma? also z.b. so: decimalseparator := '.' or ',';

[mkinzler]

Nein. Ein weiteres Problem könnte aber sein, dass auch Tausendertrenner verwendet werden.

[snboy2010]

Hier bis jetzt das gesamte Programm:

Code:

function VerbrauchBenzinJahr(ver100ben, jahrkm : double): double;
begin
    result := ver100ben * jahrkm / 100;
end;

function BenzinkostenJahr(aktpreis, ausgabevbj : double): double;
begin
    result := aktpreis * ausgabevbj;
end;

procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
  decimalseparator := '.';
  if TryStrToFloat(Edit6.Text,aktpreis) and TryStrToFloat(Edit3.Text,ver100ben)
      and TryStrToFloat(Edit4.Text,jahrkm) then
    begin
      aktpreis := StrToFloat(Edit6.Text);
      ver100ben := StrToFloat(Edit3.Text);
      jahrkm := StrToFloat(Edit4.Text);
    end
  else
   begin
      ShowMessage('Bitte Zahlen zur Eingabe verwenden!');
    end;

    ausgabevbj := VerbrauchBenzinJahr(ver100ben, jahrkm);
    ausgabebkj := BenzinkostenJahr(aktpreis, ausgabevbj);

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

end;

end.

Sorry, wenn ich euch nerve. Aber diese Hausaufgabe muss ich morgen abgeben

[mkinzler]

Wie gesagt sind diese Zeilen unnötig!

Delphi-Quellcode:

      aktpreis := StrToFloat(Edit6.Text);
      ver100ben := StrToFloat(Edit3.Text);
      jahrkm := StrToFloat(Edit4.Text);

[rollstuhlfahrer]

Außerdem fände ich es nicht ratsam, an den globalen Einstellungen deiner Anwendung rumzuspielen. Die holt sich Delphi vom System. Wenn dir was nicht passt, kannst du immernoch ein TFormatSettings definieren, dem du dann sagst, dass das Tausendertrennzeichen ein Komma ist und das Dezimalzeichen ein Punkt ist.

Bernhard

[snboy2010]

Wo finde ich diese TFormat.Settings? Außerdem will ich doch, dass beide Varianten laufen. Man soll die Eingabe sowohl mit . als auch mit , schreiben können.