Hallo,
ich habe folgendes:
Delphi-Quellcode:
type
TMyTyp = (mt1,mt2,mt3,mt4,mt5);
TMyTypes = set of TMyTyp;
.
.
procedure SaveToFile(ATyp : TMyTypes);
begin
//Was muss hier rein?
end;
procedure Test;
var mytyp : TMyTypes;
begin
mytyp := [mt1,mt2,mt4];
SaveToFile(mytyp);
end;
Wie muss die Prozedur SaveToFile aussehen, damit ich später ein möglichst einfaches LoadFromFile machen kann?
ich hatte mal irgendwo das Phänomen, dass solche sets als Integer abgespeichert wurden. Dabei hatte der erste Wert den Wert "1", der zweite den Wert "2", der dritte "4", der vierte "8", diese dann alle zusammenaddiert wurden und somit eindeutig in einer Zahl den Inhalt des gespeicherten Sets dargestellt haben.
//Edit: In diesem Fall wäre das die Zahl "11" die diese zusammensetzung eindeutig darstellt und die nicht anders zusammenzusetzen ist.
Gibt es dafür einen Befehl der das macht?
Hoffentlich hab ich mich verständlich ausgedürckt
MfG
