Irgendeinen kleinen Fehler habe ich noch. Hier nochmal die Funktionen und die Procedure:
Delphi-Quellcode:
function ComboTest(const acombo : TCombobox): boolean;
begin
result := Length (acombo.Text) > 0;
end;
function DateEditTest( const aDateEdit : TDateEdit): Boolean;
begin
result := Length (aDateEdit.Text) >0; // Ein Passender Code
end;
function MaskEditTest(const aMaskEdit : TMaskEdit): Boolean;
begin
result := Length (aMaskEdit.text) >0; // und noch ein Code;
end;
Delphi-Quellcode:
procedure TForm1.btnspeichernClick(Sender: TObject);
var datum:TDate;
zeit:TTime;
i: integer;
test:boolean;
tmpComponent : TComponent;
begin
for i := 0 to Form1.ComponentCount -1 do
begin
if (tmpComponent is TMaskEdit) then // Test des MaskEdit
begin
test := MaskEditTest (tmpComponent as TMaskEdit);
end;
if (tmpComponent is TDateEdit) then // Test des DateEdit
begin
test := DateEditTest (tmpComponent as TDateEdit);
end;
if (tmpComponent is TCombobox) then // Test der ComboBox
begin
test := ComboTest (tmpComponent as TCombobox);
end;
end;
if not (Test) then
begin
ShowMessage('Fehler bei der Eingabe');
exit;
end;
Wenn ich jetzt alle Pflichteingaben gemacht habe meldet er mir trotzdem einen Eingabefehler......oder hast Du mir eine kleine Falle gestellt Sharky
