unit m.eeprom; interface uses m.base, m.eeprom.types; type TmodEEPROM = class( TmodBase, IEEPROM) // ------------------------------------------------------------ // IEEPROM // ------------------------------------------------------------ protected function ReadPage( Page : word; Buffer: pointer): integer; function WritePage( Page : word; Buffer: pointer): integer; end; implementation { TmodEEPROM } // @@@: IEEPROM +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // // IEEPROM // // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // ================================================================================================ // read page // ================================================================================================ function TmodEEPROM.ReadPage(Page: word; Buffer: pointer): integer; begin if Assigned( fDevice) then begin end else ; // raise result := 0 end; // ================================================================================================ // write page // ================================================================================================ function TmodEEPROM.WritePage(Page: word; Buffer: pointer): integer; begin if Assigned( fDevice) then begin end else ;// raise result := 0 end; end.