einfache Berechnung

[Wilfried Hagemann]

habe eine Frage
bin absoluter Neuling in Delphi
ich will nur ein Beispiel haben an dem ich lernen kann also >>
will zwei Edit Felder berechnen und in einem Labelfeld das Ergebnis ausgeben die Berechnung soll über eine Schaltfläche ausgelöst werden.

Ich brauche nur kurz ein Beispiel(die Unit(Code))
kann mir jemand einen BeispielCode geben
habe schon viele Delphi - Bücher durchforstet aber kein passendes Beispiel gefunden

Gruß Wilfried

[Lars Paprotny]

Hallo Wilfried,

zuerst einmal sollte sichergestellt sein, dass keine unerlaubten Zeichen (Buchstaben, Sonderzeichen, etc.) in die Editfelder eingegeben werden können. Auch mehrere Kommata dürfen natürlich nicht erlaubt sein.

Ein einfaches Beispiel, ohne Überprüfung direkt bei der Eingabe in die Edit-Felder, aber mit Fehlerabfrage:

<pre>
procedure TForm1.Calculate;
var
Zahl1, Zahl2: Double; //Real geht natürlich auch
begin
try
Zahl1 := StrToFloat(Edit1.Text);
Zahl2 := StrToFloat(Edit2.Text);
Label1.Caption := Zahl1 + Zahl2; //oder andere Berechnungen
except
ShowMessage('Ungültige Zahl eingeben.');
end;
end;
</pre>

So, das ist schon alles. Aber mal eine andere Frage: Was für Delphi-Bücher liest Du denn, dass nicht einmal so elementare Dinge dort erläutert sind?

Gruß

Lar

Hallo Lars,

ich möchte mich ganz herzlich bei Dir bedanken.
Die Bücher sind von Markt und Technik >finde ich nicht so gut
aber ich kann mit diesem Beispiel sehr viel anfangen .
Nochmals Danke

Gruß Wilfrie