Hi, habe gerade mit dem Programmerien begonnen und hätte da eine Frage und zwar.
Wie bekomm ich das hin, dass man in ein Edit-Feld nur Zahlen eingeben kann bzw. dass eine Fehlermeldung kommt wenn man was anderes eingibt. Weil jetzt stürzt mein Programm einfach ab.
Und vorallem wo muss ich das reinschreiben.
Hier der Delphi-Code:
Delphi-Quellcode:
unit Vieleck;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFormVieleck =
class(TForm)
LabelEckpunkte: TLabel;
{Label für die Eckpunkte}
LabelUmkreisradius: TLabel;
{Label für den Umkreisradius}
LabelFlaecheninhalt: TLabel;
{Label für den Flächeninhalt}
Editradius: TEdit;
{Eingabefeld für den Umkreisradius}
Editflaeche: TEdit;
{Ausgabefeld für den Flächeninhalt}
Editeck: TEdit;
{Eingabefeld für die Anzahl der Ecken}
ButtonBerechnen: TButton;
{Button zum Berechnen des Vielecks}
ButtonEnde: TButton;
{Button zum Beenden des Programms}
procedure ButtonEndeClick(Sender: TObject);
procedure ButtonBerechnenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
FormVieleck: TFormVieleck;
implementation
{$R *.dfm}
procedure TFormVieleck.ButtonBerechnenClick(Sender: TObject);
var k,r,A:Real;
{k = Variable für die ANzahl der Ecken
r = Variable für den Umkreisradius
A = Variable für den Flächeninhalt }
begin
if (Editeck.Text='
')
or (Editradius.Text='
')
or (Editeck.Text='
')
or (Editradius.Text='
')
then ShowMessage('
Bitte geben sie die Anzahl der Ecken des Vielecks und einen Umkreisradius ein.')
else begin
k:=StrtoFloat(Editeck.Text);
r:=StrtoFloat(Editradius.Text);
if (k<3)
or (r<=0)
then begin
ShowMessage('
Falsche Eingabe! (Anzahl der Ecken muss mindestens 3 betragen und der Radius muss größer als 0 sein).')
end
else begin
A:=(k*Sqr(r))/2*sin((2*Pi)/k);
Editflaeche.Text:=FloattoStr(A);
end;
end;
end;
procedure TFormVieleck.ButtonEndeClick(Sender: TObject);
begin
Application.terminate
{Der Ende Button beendet das Programm}
end;
end.
Dann hätte ich noch ein frage. Bei meiner 1. if-Schleife wo steht, dass wenn in einem der 2 EditFelder nichts drin steht, dass er eine Fehlermeldung ausgeben soll. Kann ich das noch irgendwie machen, dass wenn man bei einem Feld nichts eingibt kommt eine andere Fehlermeldung als wenn man bei der anderen nichts eingibt oder bei beiden.
Das gleiche dann bei der 2. if-Schleife.
danke schon mal im vorraus
mfg Corleone