Try - Funktion?

[AlohaBanane]

Hallo,

Wie kann ich Lazarus sagen, dass es nur ausschließlich dann etwas berechnen soll, wenn in den Edit Feldern auch wirklich nur zahlen stehen? Kann ja sein, dass man sich beim eingeben vertippt - und mit Buchstaben kann Lazarus nun mal nicht umgehen, wenns um eine einfache Rechenaufgabe geht ^^

Gibts da so eine "Try - then" Funktion, die erst ein Mal prüft, ob das ganze überhaupt funktioniert? Wenn nicht, soll das Programm eben NICHT durchlaufen, sondern abbrechen und eine Infobox öffnen, in welcher zu lesen ist, man hätte sich vertippt.

[Jochen]

1.
Das Ergebnis kannst du direkt vor der Ausgabe runden, am einfachsten mit 'RoundTo()' aus der Unit math.
Bei dem Datentyp single kommt es bei mir zu seltsamen Rundungs-Ergebnissen. Bei double scheint es zu stimmen.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  // d: double!
  d := ((b/100)*a)*c;
  d := RoundTo(d,-2) //2 digits
  Label4.Caption := (floattostr(d));
end;

2.
Das Leeren der Felder löst Edit1.Change aus. Dort versucht dein Programm einen leeren String in eine Zahl zu wandeln. Du könntest das komplett raus lassen, vom Ablauf her macht es keinen Sinn (Du hast ja sowieso ein Button zum Starten der Berechnung, dort kannst du auch sämtliche Werte einlesen). Oder du überprüfst den String und entscheidest entsprechend.

[Jochen]

Wo ist denn deine zuerst gestellte Frage hin?

Es gibt try..except Blöcke zum Abfangen von Fehlern. Allerdings schlage ich vor, direkt bei der Eingabe zu prüfen. Wie wär's mit FloatSpinEdit-Feldern?

[u-boot]

Ist wohl "nachbearbeitet".

Ich hatte mich auch schon gewundert.....

[Olli]

Hi AlohaBanane,

bin zwar auch Anfänger was FP anbelangt, da Jahrelang nur VBA programmiert, aber ich würde das schon bei der Eingabe 'KeyPress' prüfen ob Zahlenwerte eingegeben werden. Z.B. bei Integer würde ich das so machen...

Code: Alles auswählen

begin
  if length(edit1.Text) >= 1 then
    if not (Key in ['0'..'9', #8, #9]) then
      Key := #0
    else
      if not (Key in ['0'..'9', #8, #9, '-']) then
        Key := #0;
  inherited KeyPress(Key);
end;

[Antrepolit]

Was soll das alles? Es gibt ein TFolatEdit bei Lazarus, der nur Zahlen zulässt. Ebenso kann man Eingabe-Restriktionen im Normalen Edit-Feld setzen.
Der FloatEdit hat den Vorteil, dass man direkt ein Property Value hat, mit dem man rechnen kann.

[Olli]

Hallo Antrepolit,

wo finde ich denn dieses TFloatEdit, muß ich dazu noch ein extra Paket installieren?
Ich habe mir für diese Felder letztens extra das Paket "JUJIBOUTILS" installiert.

[m.fuchs]

aber ich würde das schon bei der Eingabe 'KeyPress' prüfen

Kann man durchaus machen, dann aber so:

Code: Alles auswählen

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if not ((TEdit(Sender).CaretPos.X = 0) and (Key = '-')) then
    if not (Key in ['0'..'9', #8, #9, #37, #39]) then
      Key := #0;
end;

Die Prüfroutine bei Bedarf natürlich um weitere Werte ergänzen.

Dann kann man das Minuszeichen auch nachträglich noch an die erste Position setzen. Und deinen inherited-Aufruf versteh ich auch nicht so richtig.

[mschnell]

Du kannst einen try ... except Block um StrToInt herum machen oder die Funktion TryStrToInt benutzen.

-Michael

[Olli]

Kann man durchaus machen, dann aber so:

Code: Alles auswählen

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if not ((TEdit(Sender).CaretPos.X = 0) and (Key = '-')) then
    if not (Key in ['0'..'9', #8, #9, #37, #39]) then
      Key := #0;
end;

Die Prüfroutine bei Bedarf natürlich um weitere Werte ergänzen.

Dann kann man das Minuszeichen auch nachträglich noch an die erste Position setzen. Und deinen inherited-Aufruf versteh ich auch nicht so richtig.

äh ja, geht natürlich so noch besser deine Lösung. Wie gesagt, als neu Pascaljaner gibbet es noch einiges zu lernen
Achso, kannst Du mir vielleicht sagen wo ich den nun das TFloatEdit finde ?

[creed steiger]

TryStrToInt?

http://lazarus-ccr.sourceforge.net/docs ... toint.html" onclick="window.open(this.href);return false;
von hier
http://lazarus-ccr.sourceforge.net/docs ... dex-5.html" onclick="window.open(this.href);return false;

Edit:
ooopps das hatte Michael ja schon erwähnt

[Socke]

Du kannst einen try ... except Block um StrToInt herum machen

Was ziemlich sinnlos ist, da StrToInt die Exception auslöst, wenn TryStrToInt das Ergebnis False zurückliefert.

[Jochen]

Hallo Antrepolit,

wo finde ich denn dieses TFloatEdit, muß ich dazu noch ein extra Paket installieren?
Ich habe mir für diese Felder letztens extra das Paket "JUJIBOUTILS" installiert.

Würde mich auch interessieren! Habs nur zum runterladen gefunden, für Delphi.

[m.fuchs]

Sollte Teil der LCL sein, also ohne Extra Package.

[Jochen]

Das ist aber das TFloatSpinEdit. Das hatte ich auch schon vorgeschlagen.