sichereEingabe.zip
procedure TForm1.eVerarbeite1Click(Sender: TObject);
var
s : string;
a : real;
code : integer;
begin
// Eingabe
s := eEingabe.Text;
// das erste ',' im String s wird durch ein '.' ersetzt
if pos(',',s) > 0 then s[pos(',',s)] := '.';
// Val (Value) versucht aus s a zu machen, code gibt
Val(s,a,code); // die Fehlerstelle bei der Umwandlung an
// Verarbeitung
if code > 0
then
ShowMessage(s+' ist keine erlaubte Eingabe')
else
if a <= 0
then
ShowMessage(s+' ist nicht größer 0.')
else
begin
ShowMessage(s+' ist eine Zahl und größer 0.')
// ....
end;
// Ausgabe
end;
procedure TForm1.bVerarbeite2Click(Sender: TObject);
var
a : real;
begin
// Eingabe
a := StrToFloat(eEingabe.Text); // enthält Fehlerbehandlung
// Verarbeitung
if a <= 0
then
ShowMessage(eEingabe.Text+' ist nicht größer 0.')
else
begin
ShowMessage(eEingabe.Text+' ist größer 0.');
// ...
end;
// Ausgabe
end;
