Delphi - Egyedi adattípus tárolása a Windows regisztrációs adatbázisába

forráskód letöltése
A Windows regisztrációs adatbázisába számtalan adattípust tárolhatunk el. Szám, sztring, dátum, logikai típus, stb.
Ha viszont egy összetett adattípusra lenne szükségünk, például egy rekord típusú változóra, akkor némi varázslattal ez is megoldható... Mellékelt példában létrehoztunk egy rekord típust:
TRec=record
    A: integer;
    B: boolean;
    C: TDateTime;
end;
Az ebből a típusból létrehozott változót szeretnénk most eltárolni, illetve kiolvasni a regisztrációs adatbázisból.

Mivel lehetőségünk van arra, hogy bináris formátumban tároljunk adatot és olvassunk ki, így most ezt felhasználva a fenti típusból létrehozott változót bináris adatként fogjuk eltárolni.

Első lépésként természetesen értéket adunk a változónak, majd a WriteBinaryData hívásával eltároljuk. Itt első paraméterként - a szokásos módon - egy nevet adunk a tárolt adatnak, majd jön maga a változó, végül meg kell adnunk, hogy hány bájt méretű a tárolandó bináris adat.

Visszaolvasáshoz a ReadBinaryData-t használhatjuk. Ennek paraméterezése megegyezik a WriteBinaryData-val.