diff options
Diffstat (limited to 'raetselunit.inc')
| -rw-r--r-- | raetselunit.inc | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/raetselunit.inc b/raetselunit.inc index b0d85d1..e319ea1 100644 --- a/raetselunit.inc +++ b/raetselunit.inc @@ -17,6 +17,8 @@ type procedure randErzeugen; override; function loesen(lPos: integer): boolean; override; function anzLoesungen(lPos: integer): integer; override; + procedure speichern(var datei: file); override; + procedure laden(var datei: file); override; public constructor create(aOwner: tForm); destructor destroy; override; @@ -791,3 +793,36 @@ begin result:=1; end; {$ENDIF} + +{$IFDEF speichern} +// procedure tHochhausRaetsel.speichern(var datei: file); +begin + {$IFDEF hochhaus} + blockWrite(datei,'Ho',2); + {$ENDIF} + {$IFDEF buchstaben} + blockWrite(datei,'Bu',2); + {$ENDIF} + inherited speichern(datei); +end; +{$ENDIF} + +{$IFDEF laden} +// procedure tHochhausRaetsel.laden(var datei: file); +var + s: string[2]; +begin + s:=#0#0; + blockRead(datei,s[1],2); + {$IFDEF hochhaus} + assert(s='Ho','Die zu ladende Datei ist kein Hochhausrätsel!'); + uebersetze:=@zahlenAlphabetFunktion; + {$ENDIF} + {$IFDEF buchstaben} + assert(s='Bu','Die zu ladende Datei ist kein Buchstabenrätsel!'); + uebersetze:=@buchstabenAlphabetFunktion; + {$ENDIF} + inherited laden(datei); +end; +{$ENDIF} + |