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

[mkinzler]

Zitat:

Delphi-Quellcode:

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

Delphi-Quellcode:

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 :shock:

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

[mkinzler]

Der Typ heisst TFormatSettings und ein Parameter des Typs kann optional den Konvertierungsfunktionen übergeben werden.

Führe TryStrToFloat() doch geschachtelt aus. D.H. im Else der ersten Abfrage einfach die 2.

[DeddyH]

Hatte ich das nicht alles bereits erwähnt? :roll: Man müsste nur einmal die verlinkte Hilfe vollständig lesen.

[snboy2010]

Wäre es möglich, dass jemand mir hier dieses hinschreibt? Ich komme nicht drauf, wie und was ich jetzt bei mir im Queltext ändern muss:(

[mkinzler]

Einfach die Schritte durchführen, wie sie geschrieben wurden.

[snboy2010]

Ohh man. Ich kapiere überhaupt nichts mehr. Welche Schritte? Ich habe es versucht mit StrinReplace dann mit diesem Decimalseparator und alles anderem. Es läuft nicht. Keine Ahnung ob ich vielleicht nur die Syntax falsch schreibe oder was auch immer.

Programmieren ist absolut nicht meine Stärke. Ich mache das nur, weil es in der Schule ein Unterricht dafür gibt. Ich glaube, nachdem dieses Halbjahr vorbei ist, wähle ich das Fach ab.

[mkinzler]

Erst mit , versuchen und wenn das fehlschlägt mit .

[snboy2010]

Das ist ja nicht das Ziel der Aufgabe. Man soll sowohl die Eingabe mit , als mit . durchführen können.

[mkinzler]

Ja genau das stllt diese Vorgehensweise doch sicher!

[snboy2010]

Welche Vorgehenweise denn?

Egal, ich lass es sein. Gebe die Aufgabe so ab. Dann werden mir hoffentlich nur Punkte für Unvollständigkeit abgezogen.

[mkinzler]

Lies dir nocheinmal #24 und #29 durch

[snboy2010]

Wie soll ich es machen? Wie lautet jetzt die Syntax?

[mkinzler]

Du hast doch schon den ersten Teil. Mach einfach nocheinmal das selbe mitr dem anderen Trenner im else Zweig

[snboy2010]

Wenn Sie es so meinen:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
  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
  decimalseparator := '.';
   begin
      aktpreis := StrToFloat(Edit6.Text);
      ver100ben := StrToFloat(Edit3.Text);
      jahrkm := StrToFloat(Edit4.Text);
    end;

Das läuft nur bediengt. Ich kann zwar die Eingabe mit , und . machen. Aber: Umswitchen von , auf . geht immer. Wenn ich aber die Eingabe mit einem . mache und dann auf , umswitchen will--> kommt die Fehlermeldung.

[Sir Rufo]

ich würde meinen, dass hier die Delphi-Tags besser angebracht wären :mrgreen:
dann sieht das so aus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
  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
  decimalseparator := '.';  // <-- entweder unter das begin verschieben
   begin  // <-- oder dieses begin und das end entfernen, denn die sonst zu nix gut :o)
      aktpreis := StrToFloat(Edit6.Text);
      ver100ben := StrToFloat(Edit3.Text);
      jahrkm := StrToFloat(Edit4.Text);
    end;

[mkinzler]

Und die extra StrToFloat() sind wie schön mehrmals erwähnt überflüssig. Das zum Thema richtig Lesen der Antworten!

[snboy2010]

Das Problem bleibt immer noch bestehen.

[Sir Rufo]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
  if not TryStrToFloat( StringReplace( Edit6.Text, '.', ',', [] ), aktpreis ) then
    begin
      Edit6.SetFocus;
      Exit;
    end;
  if not TryStrToFloat( StringReplace( Edit3.Text, '.', ',', [] ), ver100ben ) then
    begin
      Edit3.SetFocus;
      Exit;
    end;
  if not TryStrToFloat( StringReplace( Edit4.Text, '.', ',', [] ), jahrkm ) then
    begin
      Edit4.SetFocus;
      Exit;
    end;
  // Jetzt rechnen