ja des mit edit leer lassen kommt halt mit dem problem
" is not a valid integer value.
muss ich halt noch gucken das dann entweder nichts kommt oder eine andere error nachricht.
bzw.
habs so probiert funktioniert allerdings net,
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var eins, zwei, drei, vier, fuenf: Integer;
begin
eins:=StrToInt(edit1.text);
zwei:=StrToInt(edit2.text);
drei:=StrToInt(edit3.text);
vier:=StrToInt(edit4.Text);
fuenf:=StrToInt(edit5.Text);
// Das hier sollte die Fehlerbehandlung sein
If (eins or zwei or drei or vier or fuenf =$22) then
Showmessage('Bitte fülle alle Felder aus!')
// ende der Fehlerbehandlung
else
If (eins = fuenf) and (zwei = vier) then begin
Label3.Visible:=StrToBool('False');
Label2.Visible:=StrToBool('True');
end
else
begin
Label2.Visible:=StrToBool('False');
Label3.Visible:=StrToBool('True');
end;
end;