Hallöle!
Ich brauch mal eure Hilfe!Bei unserem Schulprojekt fehlt noch eine wichtige Sache und zwar ein Teil der Sicherung für Edit-Felder im Programm.Wenn die Edit Felder leer sind,dann kommt ja der Fehler : '' ist kein Integerwert,sobald man den Berechnen Button klickt.
Die bisherige Sicherung:
Delphi-Quellcode:
// Sicherungen der einzelnen EDIT-Felder
procedure TFRM_Rentenversicherungsnummer.EDT_Z1Exit(Sender: TObject);
begin
//Fehler keine Eingabe
if EDT_Z1.text=''
then
begin
showmessage('Ihre Eingabe fehlt! Bitte geben sie hier eine Ziffer ein!');
EDT_Z1.setfocus;
exit; //sonst Fehler beim Lesen aus leeren Editfeldern in der
//nächsten if-Abfrage
end;
//Fehler keine Ziffer
if (ord(EDT_Z1.text[1])>57) or (ord(EDT_Z1.text[1])<48)
then
begin
showmessage('Falsche Eingabe, bitte hier eine Ziffer eingeben!');
EDT_Z1.text := '';
EDT_Z1.setfocus;
end;
end;
Also wir wollen noch eine Sicherung haben,die verhindert das gerechnet wird wenn alle 11 edit felder leer sind eine showmessage kommt
gruß
andre