<div dir="ltr"><div class="gmail_extra">Here is another example:</div><div class="gmail_extra"><br></div><div class="gmail_extra"><div class="gmail_extra">type </div><div class="gmail_extra">  TDay = (Monday = 0, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday);</div><div class="gmail_extra"><br></div><div class="gmail_extra">  TDayHelper = record helper for TDay</div><div class="gmail_extra">    function AsByte: Byte;</div><div class="gmail_extra">    function ToString: string;</div><div class="gmail_extra">  end;</div><div class="gmail_extra"><br></div><div class="gmail_extra">function TDayHelper.AsByte: Byte;</div><div class="gmail_extra">begin</div><div class="gmail_extra">  Result := Ord(Self);</div><div class="gmail_extra">end;</div><div class="gmail_extra"><br></div><div class="gmail_extra">function TDayHelper.ToString: string;</div><div class="gmail_extra">begin</div><div class="gmail_extra">  case Self of</div><div class="gmail_extra">    Monday: Result := 'Monday';</div><div class="gmail_extra">    Tuesday: Result := 'Tuesday';</div><div class="gmail_extra">    Wednesday: Result := 'Wednesday';</div><div class="gmail_extra">    Thursday: Result := 'Thursday';</div><div class="gmail_extra">    Friday: Result := 'Friday';</div><div class="gmail_extra">    Saturday: Result := 'Saturday';</div><div class="gmail_extra">    Sunday: Result := 'Sunday';</div><div class="gmail_extra">  end;</div><div class="gmail_extra">end;</div><div class="gmail_extra"><br></div><div class="gmail_extra">And you can have code like this:</div><div class="gmail_extra"><br></div><div class="gmail_extra">var</div><div class="gmail_extra">  Day: TDay;</div><div class="gmail_extra">  S: string;</div><div class="gmail_extra">begin</div><div class="gmail_extra">  Day := TDay.Monday;</div><div class="gmail_extra">  S := Day.ToString.ToLower;</div><div class="gmail_extra">  WriteLn(S);</div><div class="gmail_extra">end;</div></div></div>