Fehler bei Dateneingabe

[mkinzler]

Zitat:

aktpreis := StrToFloat(Edit6.Text);

ist nicht notwendig, da die TryStrToInt()-Funktion, die Konvertierung ja schon durchführt

Zitat:

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 . ?

Z.B. indem man vorher alle Punkte durch Kommas ersetzt

[snboy2010]

und wie?

[mkinzler]

Wie wäre es mit StringReplace()?

[snboy2010]

Geht nicht, da die Variablen vom Datentyp double sind und wenn ich diese in ein String umwandele, funktioniert das ganze Programm nicht mehr.

[mkinzler]

Vor der Wandlung
if TryStrToFloat(StringReplace(Edit6.Text, '.', ',', []),aktpreis) then

[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