• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

Set in LongInt wandeln

Hallo,

ich möchte ein Set in einen LongInt konvertieren um es dann in einer
sqlite Datenbank zu speichern. Leider funktioniert meine Idee nicht so ganz:

program SetTest;
type
ETest = (Eins=1, Zwei=2, Vier=4, Acht=8);
TestSet = set of ETest;
var
ts: TestSet;
begin
WriteLn(LongInt(ts));
Include(ts, Zwei);
WriteLn(LongInt(ts));
Include(ts, Vier);
WriteLn(LongInt(ts));
end.

Ich hatte die Hoffnung, dass das Testprogramm dann die Ausgabe
0
2
6
auf den Bildschirm schreiben würde, stattdessen ist es aber
0
4
20

So einfach ist es also nicht. Hat da jemand eine bessere Idee?

mfg
Micha
--
Meine Wanderungen durch Realität und Cyberspace

auf --> http://www.michael-fuchs.net <--

Antworten