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