Hi!
Wir brauchen dringend Hilfe und sind 2 absolute Anfängerinnen
, wir haben bereits die Eingabe von bestimmten Werten ausgeschlossen, allerdings wissen wir nicht, wie man die Eingabe von Buchstaben in die 3 Editfelder verhindert.
Delphi-Quellcode:
procedure TForm1.ButtonBerechnenClick(Sender: TObject);
var
a: Integer;
begin
// Ungültige Eingaben werden ausgeschlossen
if (editpalettenlast.text='')or(strtoint(editpalettenlast.text)>1000) then
begin
showmessage('Ungültiger Wert für die Palettenlast!');
end else
if (editlagerhoehe.text='')or(strtoint(editlagerhoehe.text)>15) or (editlagerhoehe.text='#13') then
begin
showmessage('Ungültiger Wert für die Lagerhoehe !');
end else
if (editregallaenge.text='')or(strtoint(editregallaenge.text)>75)or (editregallaenge.text='#13')
then
begin
showmessage('Ungültiger Wert für die Lagerlänge !');
end else
begin
--> dann folgt unsere Rechnung
wir würden den Befehl gerne direkt mit in den bereits vorhandenen Text einbauen.
Kann uns da irgendjemand helfen????
LG
[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]