File of pointer – Pascal – Fórum – Programujte.com

Potřebuju poradit, dělám ročníkovou práci na libovolné téma (podmínka jsou soubory+v nich databáze čehokoliv) a já se rozhodl vytvořit univerzální databázový program, kde si může uživatel za běhu programu sám nadefinovat, jaké bude mít položka v sobě datové typy (tzn. pokud by někdo dělal telefonní seznam, tak longint a string apod.), tudíž musím všechny typy té položky udělat dynamicky (nevím, jestli nebude chtít těch stringů třeba pět, pak by v samotné položce byl jenom ukazatel na record, v recordu by byl jeden typ string a pak ukazatel na další string). Nevím ale však, jestli a jakým způsobem mohu zapisovat tyto položky do souboru, popř. jakého typu ten typový soubor udělat. konkrétněji mám takovéto typy:

type



po_integer=^r_integer;

r_integer=record

                  i_value:integer;

                  i_name:string;

                  i_index:longint;

                  i_next:po_integer;

end;



po_string=^r_string;

r_string=record

                  s_value:string;

                  s_name:string;

                  s_index:longint;

                  s_next:po_string;

end;



po_boolean=^r_boolean;

r_boolean=record

                  bo_value:boolean;

                  bo_name:string;

                  bo_index:longint;

                  bo_next:po_boolean;

end;



po_byte=^r_byte;

r_byte=record

                  by_value:byte;

                  by_name:string;

                  by_index:longint;

                  by_next:po_byte;

end;

{----------------------------------------------------------------}



hlavni_polozka=record

                  hp_integer:po_integer;

                  hp_string:po_string;

                  hp_boolean:po_boolean;

                  hp_byte:po_byte;

end;

Hm, přemýšlel jsem a IMHO bych musel mít podmínku v type, což bohužel nejde. Napadlo mě to ale vyřešit tak, že udělám další record, který bude obsahovat akorát příslušnost, jméno a hodnotu(podle příslušnosti se pozná, ke kterému hlavnímu recordu patří) a pak bych zvlášť udělal soubor pro jednotlivé recordy, když budu poté načítat, vždycky prohledám všechny a podívám se, kolik z těch recordů má příslušnost právě k tomu, co hledám.

Hlavní položku bych řešil nějakou beztypovou strukturou, např. polem bytů (počítej s tím, že musí mít variabilní délku a budeš ho číst a zapisovat Blockreadem a Blockwritem). Nadefinuj si kódy, jakými budeš identifikovat jednotlivé datové typy (třeba 1 = byte, 2 = integer, 3 = longint, 4 = string atd.). Typy položek (tj. posloupnost těchhle kódů), které zadá uživatel, si ulož do nějakého pole. Podle něj pak budeš určovat, jak velké položky máš číst a kde v nich jednotlivá data najdeš.
Nevím, jestli jsem to napsal aspoň trochu srozumitelně. Kdyžtak se ještě koukni sem: http://int21h.ic.cz/?id=42.

To Mircosoft : Díky, budu se to snažit pochopit :-). Nicméně, zjistil jsem že to buď budu muset udělat v Delphách, nebo se na tento námět vykašlat, protože tohle nakódit v Pascalu ještě tak, aby se to příjemně ovládalo... nevím nevím.