Hi Leute, ich will in Der BeforPost-Routine den Schreibvorgang mit Abort abbrechen:<br><br>
procedure TDataModule1.FilialTableBeforePost(DataSet: TDataSet);<br>
var<br>
LapTopINI: TIniFile;<br>
begin<br>
if fileexists(pgm_datenpath + 'laptop.ini') then<br>
begin<br>
..<br>
..<br>
..<br>
// LapTopOnlineBetrieb<br>
if not (LapTopINI.ReadBool('LapTop', 'WorkFilialen', false)) and<br>
(pgm_datenpath = pgm_ltdatenpath) then<br>
begin<br>
application.MessageBox('Wegen LapTop-Betrieb ist das Einfügen oder Ändern nicht möglich', 'Fehler', 0);<br>
Abort;<br>
end;<br>
LapTopINI.Free;<br>
end;<br><br>
end;<br>
<br><br> Laut Hilfe kann ich Abort einfach so aufrufen, ich bekomme aber beim Kompelieren die Meldung <b>"Anweisung erforderlich aber, aber Ausdruck vom Typ Integer gefunden" </b><br><br>
Danke (mal wieder ;-)) CU Frank
procedure TDataModule1.FilialTableBeforePost(DataSet: TDataSet);<br>
var<br>
LapTopINI: TIniFile;<br>
begin<br>
if fileexists(pgm_datenpath + 'laptop.ini') then<br>
begin<br>
..<br>
..<br>
..<br>
// LapTopOnlineBetrieb<br>
if not (LapTopINI.ReadBool('LapTop', 'WorkFilialen', false)) and<br>
(pgm_datenpath = pgm_ltdatenpath) then<br>
begin<br>
application.MessageBox('Wegen LapTop-Betrieb ist das Einfügen oder Ändern nicht möglich', 'Fehler', 0);<br>
Abort;<br>
end;<br>
LapTopINI.Free;<br>
end;<br><br>
end;<br>
<br><br> Laut Hilfe kann ich Abort einfach so aufrufen, ich bekomme aber beim Kompelieren die Meldung <b>"Anweisung erforderlich aber, aber Ausdruck vom Typ Integer gefunden" </b><br><br>
Danke (mal wieder ;-)) CU Frank
Comment