Ach so. Sorry. Habe ich jetzt mal so eingebaut, jedoch ist die überprüfungsfunktion damit ausgehebelt. Habe mal nur das erste Edit-Feld eingetragen und er hat den DS trotzdem ohne meckern gespeichert!!
Hier mla mein aktueller Code
Delphi-Quellcode:
a := 1;
for i := 0 to Form1.ComponentCount -1 do
begin
if (Form1.Components[i] is TEdit) and (Form1.Components[i].Tag = 0) then
a := a * (Length(TEdit(Form1.Components[i]).Text));
end;
if a = 0 then
begin
ShowMessage('Bitte Eingabe überprüfen');
exit;
end;