Variantes Record mit 2x Case

[Steffen]

Hallo!

Ich habe gerade folgenden Code zusammen "gefuscht":

Delphi-Quellcode:

type

  // Aufzählungstyp enthält alle Felder in denen gesucht werden kann
  TSearchFields = (sfTrackingID, sfSender, sfRecipient, sfSubject, sfMsgText);

  TSearchDetails = record
                     SearchText : String;
                     MaxResults : Word; // 0 = alle Ergebnisse liefern

                     case SearchOverAllFields : Boolean of // Suche über alle Felder?
                       True  : (); // Keine Angabe von Suchfeldern, da Suche über alle Felder
                       False : (SearchFields : TSearchFields);

                     case DatePeriodIndicated : Boolean of // Datumszeitraum angegeben?
                       True  : ( DateFrom : String[10]; // DD.MM.YYYY
                                 DateTo   : String[10]);
                       False : ();
                   end;

Nun stoße ich gerade auf das Problem, dass es eigentlich nur einen case-Teil in einem Record geben kann...
Hat jemand einen Vorschlag, wie ich's lösen kann?

Gruß,
Steffen