| ---------------------------------------- |  |
| example add | ...SimpleText="Entry Added"; } //--------------------------------------------------------------------------- ... |
| example backup | ...MessageBoxA("Backup Done","RealIsam",MB_OK); } //--------------------------------------------------------------------------- ... |
| example clear | ...Clear(); } //--------------------------------------------------------------------------- ... |
| example delete | ...SimpleText="Entry Deleted"; } //--------------------------------------------------------------------------- ... |
| example duplicate | ...MessageBoxA("Duplication Finished","RealIsam",MB_OK); } //--------------------------------------------------------------------------- ... |
| example exit | ... void __fastcall TMainForm::Exit2Click(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- ... |
| example first | ...SetTextBuf(buffer); } } void __fastcall TMainForm::btFirstClick(TObject *Sender) { First(); } //--------------------------------------------------------------------------- ... |
| example formclose | ...CloseEngine(); Action = caFree; } //--------------------------------------------------------------------------- ... |
| example formcreate | ...Caption = AnsiString(rc); if (rc) First(); } //--------------------------------------------------------------------------- ... |
| example include | ... //--------------------------------------------------------------------------- #ifndef MainH #define MainH //--------------------------------------------------------------------------- #include ... |
| example include | ... //--------------------------------------------------------------------------- #ifndef MainH #define MainH //--------------------------------------------------------------------------- #include ... |
| example include | ... //--------------------------------------------------------------------------- class TMainForm : public TForm { __published: // IDE-managed Components TPageControl *PageControl1; TTabSheet *TabSheet2; TButton *btStart; TLabel *Label15; TEdit *eWo... |
| example include | ... void __fastcall DisableButtons(); public: // User declarations __fastcall TMainForm(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TMainForm *MainForm; //------------------------------------------------------... |
| example include | ...ner); }; //--------------------------------------------------------------------------- extern PACKAGE TMainForm *MainForm; //--------------------------------------------------------------------------- #endif ... |
| example last | ...SetTextBuf(buffer); } } //--------------------------------------------------------------------------- ... |
| example main_header | ... //--------------------------------------------------------------------------- #include ... |
| example main_header | ... #pragma hdrstop #include "Main.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TMainForm *MainForm; //---------------... |
| example main_header | ...------------------------------------------------ #pragma package(smart_init) #pragma resource "*.dfm" TMainForm *MainForm; //--------------------------------------------------------------------------- __fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner) { } //-------... |
| example main_header | ...----------------------------------------- __fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- ... |
| example next | ...SetTextBuf(buffer); } } //--------------------------------------------------------------------------- ... |
| example prev | ...SetTextBuf(buffer); } } //--------------------------------------------------------------------------- ... |
| example restore | ...MessageBoxA("Restoration Done","RealIsam",MB_OK); } //--------------------------------------------------------------------------- ... |
| example search | ... void __fastcall TMainForm::btSearchClick(TObject *Sender) { Search(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::Search() { int rc,recdata; char Key[MAX_KEY],RetKey[MAX_KEY]; char buffer[BUF_LEN]; char tmp[256]; ... |
| example searchword | ... void __fastcall TMainForm::eWordKeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { if (Key==13) Search(); } //--------------------------------------------------------------------------- ... |
| example start | ...MessageBoxA("Indexation Finished","RealIsam",MB_OK); } //--------------------------------------------------------------------------- ... |
| example update | ...SimpleText="Entry Updated"; } //--------------------------------------------------------------------------- ... |
| example version | ...MessageBoxA(version,"Version",MB_OK); } //--------------------------------------------------------------------------- ... |
| example wordmouseup | ...Text=AnsiString(tmp); Search(); } //--------------------------------------------------------------------------- ... |
| -concatenate | |
| example stat | ...-Concatenate definition if No duplicate Key option is set, else store definition in record ... |
| -extract | |
| example stat | ...-Extract Entry Word into Key ... |
| -read | |
| example stat | ...-Read Sequential record in the dictionnary file ... |
| example stat | ...-Read Key ... |
| -write | |
| example stat | ...-Write or rewrite Record ... |
| example stat | ...-Write Key if Key doesn't exists ... |
| 0-63 | |
| example restore | ...MessageBoxA("Index Number Not Correct (0-63)","RealIsam",MB_OK); return; } // create a new database strcpy(name,dict_directory);strcat(name,"dict"); rc = dict->OpenEngine(name,120,"ndx","dat"); //120 = 128 - 8 rc = dict->SetIndexMode(INDEX,multi); // if MULTI == 1 duplicate key a... |
| example start | ...MessageBoxA("Index Number Not Correct (0-63)","RealIsam",MB_OK); return; } Application->ProcessMessages(); // Get Number of Files to Index strcpy(tmp,edFile->Text.c_str()); nbf=atoi(tmp); nbf--; if (nbf... |
| realisamdoc readfirst | ... index number (0-63) Key is a pointer on a character string, large enough to receive the key (max = 250 characters) recdata is a pointer on the data record related to the key. ... |
| 0x00 | |
| realisamdoc readrecord | ...e the right amount of memory. ReadRecord restores the entire data written previously, including binary data. For character strings stored without a 0x00 terminator, it is recommended to terminate the string with a 0 after the ReadRecord. ... |
| realisamdoc readrecord | ...ReadRecord(buffer,&recdata); buffer[rc]=0; // to end with a 0x00 .......................... } else ................ ... |
| realisamdoc writerecord | ...reviously defined by a call to GetNewRecordNumber. Data can be text or binary. Length is a parameter to provide . For characters strings ended with 0x00, the developer can insert the last byte 0x00, or can insert it when the program read the data. ... |
| realisamdoc writerecord | ...mber. Data can be text or binary. Length is a parameter to provide . For characters strings ended with 0x00, the developer can insert the last byte 0x00, or can insert it when the program read the data. ... |
| __cplusplus | |
| realisamdoc include | ... #ifndef __REALISAM_H #define __REALISAM_H #ifdef __cplusplus extern "C" { #endif class _export realisam { public: realisam(void); ~realisam(void); int OpenEngine(char *FileName,short BlockSize,char *ndx, char*dat); int CloseEngine(void); int SetIndexMode(short Index,... |
| realisamdoc include | ...x); int DeleteIsam(char *indexname,char *dataname); int CloseReopen(char *FileName,short BlockSize,char *ndx, char *dat); }; #ifdef __cplusplus } #endif #endif ... |
| __fastcall | |
| example add | ... void __fastcall TMainForm::btAddClick(TObject *Sender) { char Key[MAX_KEY],RetKey[MAX_KEY]; int rc, recdata; char buffer[BUF_LEN],str[BUF_LEN]; strcpy(Key,eWord->Text.c_str()); if (strlen(Key)==0) { Application->MessageBoxA("Key not provided","RealIsam",MB_OK); return; ... |
| example backup | ... void __fastcall TMainForm::btBackupClick(TObject *Sender) { int rc,recdata; char Key[MAX_KEY],RetKey[MAX_KEY]; char buffer[BUF_LEN]; char html[BUF_LEN]; char definition[BUF_LEN]; int nbseq,nbisam; struct time t; int nbsec1,nbsec2; TCursor oldCursor = Screen->Cursor; char tmp[250]; c... |
| example clear | ... void __fastcall TMainForm::btClearClick(TObject *Sender) { eWord->Text=""; mWord->Clear(); } //--------------------------------------------------------------------------- ... |
| example delete | ... void __fastcall TMainForm::btDeleteClick(TObject *Sender) { int rc; rc=dict->DeleteKey(INDEX,M_Key,M_recdata); rc=dict->DeleteRecord(M_recdata); First(); StatusBar1->SimpleText="Entry Deleted"; } //--------------------------------------------------------------------------- ... |
| example disablebuttons | ... void __fastcall TMainForm::DisableButtons() { btStart->Enabled = false; btFirst->Enabled = false; btLast->Enabled = false; btNext->Enabled = false; btPrev->Enabled = false; btSearch->Enabled = false; btBackup->Enabled=false; btRestore->Enabled=false; btDupl->Enabled=false; ... |
| example duplicate | ... void __fastcall TMainForm::btDuplClick(TObject *Sender) { char name[MAX_PATH]; int rc, recdata,recdata_dupli; dupli = new realisam(); char RetKey[MAX_KEY]; char buffer[BUF_LEN]; char tmp[250]; strcpy(tmp,"Do you want to build a duplicate dictionnary : files Dupli.ndx and Dupli.dat ... |
| example enablebuttons | ... void __fastcall TMainForm::EnableButtons() { btStart->Enabled = true; btFirst->Enabled = true; btLast->Enabled = true; btNext->Enabled = true; btPrev->Enabled = true; btSearch->Enabled = true; btBackup->Enabled=true; btRestore->Enabled=true; btDupl->Enabled=true; btClear->E... |
| example exit | ... void __fastcall TMainForm::Exit2Click(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- ... |
| example extractvalue | ... int __fastcall TMainForm::ExtractValue(char *result, char *buff, char *tag, int posdeb) { char tmp[250]; char *p,*p1,*p2; int pos,l; result[0]=0; strcpy(tmp,"... |
| example first | ... void __fastcall TMainForm::First() { int rc,recdata; char Key[MAX_KEY],RetKey[MAX_KEY]; char buffer[BUF_LEN]; char tmp[50]; INDEX=0; mWord->Clear(); rc = dict->ReadFirstKey(INDEX,RetKey,&recdata); RK->Caption=AnsiString(RetKey); eWord->Text=AnsiString(RetKey); if (rc==1... |
| example first | ...SetTextBuf(buffer); } } void __fastcall TMainForm::btFirstClick(TObject *Sender) { First(); } //--------------------------------------------------------------------------- ... |
| example formclose | ... void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action) { dict->CloseEngine(); Action = caFree; } //--------------------------------------------------------------------------- ... |
| example formcreate | ... /////////////////////////////////////////////////////////// void __fastcall TMainForm::FormCreate(TObject *Sender) { char name[250]; AnsiString Dir; int rc; int mode; char tmp[100]; Dir = GetCurrentDir(); strcpy(base_directory,Dir.c_str()); strcpy(dict_directory,base_directory); s... |
| example include | ... void __fastcall FormCreate(TObject *Sender); void __fastcall FormClose(TObject *Sender, TCloseAction &Action); void __fastcall btStartClick(TObject *Sender); void __fastcall btSearchClick(TObject *Sender); void __fastcall btFirstClick(TObject *Sender);... |
| example include | ... void __fastcall FormClose(TObject *Sender, TCloseAction &Action); void __fastcall btStartClick(TObject *Sender); void __fastcall btSearchClick(TObject *Sender); void __fastcall btFirstClick(TObject *Sender); void __fastcall btNextClick(TObject *Sender); ... |
| example include | ...eAction &Action); void __fastcall btStartClick(TObject *Sender); void __fastcall btSearchClick(TObject *Sender); void __fastcall btFirstClick(TObject *Sender); void __fastcall btNextClick(TObject *Sender); void __fastcall btLastClick(TObject *Sender); ... |
| example include | ...TObject *Sender); void __fastcall btSearchClick(TObject *Sender); void __fastcall btFirstClick(TObject *Sender); void __fastcall btNextClick(TObject *Sender); void __fastcall btLastClick(TObject *Sender); void __fastcall btPrevClick(TObject *Sender); ... |
| example include | ...k(TObject *Sender); void __fastcall btFirstClick(TObject *Sender); void __fastcall btNextClick(TObject *Sender); void __fastcall btLastClick(TObject *Sender); void __fastcall btPrevClick(TObject *Sender); void __fastcall Exit2Click(TObject *Sender); ... |
| example include | ... TButton *btAdd; TCheckBox *cbSec; TLabel *lIndex; TLabel *Label3; TButton *btVersion; void __fastcall FormCreate(TObject *Sender); void __fastcall FormClose(TObject *Sender, TCloseAction &Action); void __fastcall btStartClick(T... |
| example include | ...TLabel *lIndex; TLabel *Label3; TButton *btVersion; void __fastcall FormCreate(TObject *Sender); void __fastcall FormClose(TObject *Sender, TCloseAction &Action); void __fastcall btStartClick(TObject *Sender); void __fastcall btSearchClic... |
| example include | ... int X, int Y); void __fastcall btBackupClick(TObject *Sender); void __fastcall btRestoreClick(TObject *Sender); void __fastcall eWordKeyUp(TObject *Sender, WORD &Key, TShiftState Shift); void __fastcall btUpdateClick(TObject *Sender); void __... |
| example include | ...ll btRestoreClick(TObject *Sender); void __fastcall eWordKeyUp(TObject *Sender, WORD &Key, TShiftState Shift); void __fastcall btUpdateClick(TObject *Sender); void __fastcall btDeleteClick(TObject *Sender); void __fastcall btDuplClick(TObject *Sender);... |
| example include | ...all eWordKeyUp(TObject *Sender, WORD &Key, TShiftState Shift); void __fastcall btUpdateClick(TObject *Sender); void __fastcall btDeleteClick(TObject *Sender); void __fastcall btDuplClick(TObject *Sender); void __fastcall btClearClick(TObject *Sender); ... |
| example include | ...iftState Shift); void __fastcall btUpdateClick(TObject *Sender); void __fastcall btDeleteClick(TObject *Sender); void __fastcall btDuplClick(TObject *Sender); void __fastcall btClearClick(TObject *Sender); void __fastcall btAddClick(TObject *Sender); ... |
| example include | ...ck(TObject *Sender); void __fastcall btNextClick(TObject *Sender); void __fastcall btLastClick(TObject *Sender); void __fastcall btPrevClick(TObject *Sender); void __fastcall Exit2Click(TObject *Sender); void __fastcall mWordMouseUp(TObject *Sender, TMou... |
| example include | ...ck(TObject *Sender); void __fastcall btLastClick(TObject *Sender); void __fastcall btPrevClick(TObject *Sender); void __fastcall Exit2Click(TObject *Sender); void __fastcall mWordMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, i... |
| example include | ...ick(TObject *Sender); void __fastcall btPrevClick(TObject *Sender); void __fastcall Exit2Click(TObject *Sender); void __fastcall mWordMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall btBackupClick(TObject ... |
| example include | ...*Sender); void __fastcall mWordMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall btBackupClick(TObject *Sender); void __fastcall btRestoreClick(TObject *Sender); void __fastcall eWordKeyUp(TObject *Sender, ... |
| example include | ...Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall btBackupClick(TObject *Sender); void __fastcall btRestoreClick(TObject *Sender); void __fastcall eWordKeyUp(TObject *Sender, WORD &Key, TShiftState Shift); void _... |
| example include | ...(TObject *Sender); void __fastcall btDeleteClick(TObject *Sender); void __fastcall btDuplClick(TObject *Sender); void __fastcall btClearClick(TObject *Sender); void __fastcall btAddClick(TObject *Sender); void __fastcall btVersionClick(TObject *Sender); ... |
| example include | ...k(TObject *Sender); void __fastcall btDuplClick(TObject *Sender); void __fastcall btClearClick(TObject *Sender); void __fastcall btAddClick(TObject *Sender); void __fastcall btVersionClick(TObject *Sender); private: // User declarations #define MAX_KEY 250 #... |
| example include | ...int __fastcall IndexBuffer(char *buff); void __fastcall Search(); void __fastcall First(); void __fastcall EnableButtons(); void __fastcall DisableButtons(); public: // User declarations __fastcall TMainForm(TComponent* Owner); }; //-----------------------------------... |
| example include | ... void __fastcall First(); void __fastcall EnableButtons(); void __fastcall DisableButtons(); public: // User declarations __fastcall TMainForm(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TMainForm *Mai... |
| example include | ...ck(TObject *Sender); void __fastcall btClearClick(TObject *Sender); void __fastcall btAddClick(TObject *Sender); void __fastcall btVersionClick(TObject *Sender); private: // User declarations #define MAX_KEY 250 #define BUF_LEN 50000 struct time t1; struct ... |
| example include | ... multi; int INDEX; int M_recdata; // memorizes data record pointer char M_Key[MAX_KEY]; // memorizes Key int __fastcall ExtractValue(char *result, char *buff, char *tag, int posdeb); int __fastcall IndexBuffer(char *buff); void __fastcall Search(); vo... |
| example include | ...pointer char M_Key[MAX_KEY]; // memorizes Key int __fastcall ExtractValue(char *result, char *buff, char *tag, int posdeb); int __fastcall IndexBuffer(char *buff); void __fastcall Search(); void __fastcall First(); void __fastcall EnableButtons(); void __fastcall Di... |
| example include | ...zes Key int __fastcall ExtractValue(char *result, char *buff, char *tag, int posdeb); int __fastcall IndexBuffer(char *buff); void __fastcall Search(); void __fastcall First(); void __fastcall EnableButtons(); void __fastcall DisableButtons(); public: // User declarati... |
| example include | ...xtractValue(char *result, char *buff, char *tag, int posdeb); int __fastcall IndexBuffer(char *buff); void __fastcall Search(); void __fastcall First(); void __fastcall EnableButtons(); void __fastcall DisableButtons(); public: // User declarations __fastcall TMainF... |
| example include | ...r *buff, char *tag, int posdeb); int __fastcall IndexBuffer(char *buff); void __fastcall Search(); void __fastcall First(); void __fastcall EnableButtons(); void __fastcall DisableButtons(); public: // User declarations __fastcall TMainForm(TComponent* Owner); }; ... |
| example indexbuffer | ... ///////////////////////////////////////////////////// int __fastcall TMainForm::IndexBuffer(char *buff) { char str[BUF_LEN],definition[BUF_LEN]; int length; char Key[MAX_KEY],RetKey[MAX_KEY]; int rc,recdata; char *p; char SKey[MAX_KEY]; int l,i; length=ExtractValue(str,buff,"P",0);... |
| example last | ... void __fastcall TMainForm::btLastClick(TObject *Sender) { int rc,recdata; char Key[MAX_KEY],RetKey[MAX_KEY]; char buffer[BUF_LEN]; rc = dict->ReadLastKey(INDEX,RetKey,&recdata); RK->Caption=AnsiString(RetKey); eWord->Text=AnsiString(RetKey); if (rc==1) { mWord->Clear(); ... |
| example main_header | ...kage(smart_init) #pragma resource "*.dfm" TMainForm *MainForm; //--------------------------------------------------------------------------- __fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------... |
| example next | ... void __fastcall TMainForm::btNextClick(TObject *Sender) { int rc,recdata; char Key[MAX_KEY],RetKey[MAX_KEY]; char buffer[BUF_LEN]; rc = dict->ReadNextKey(RetKey,&recdata); RK->Caption=AnsiString(RetKey); eWord->Text=AnsiString(RetKey); if (rc==1) { mWord->Clear(); ... |
| example prev | ... void __fastcall TMainForm::btPrevClick(TObject *Sender) { int rc,recdata; char Key[MAX_KEY],RetKey[MAX_KEY]; char buffer[BUF_LEN]; rc = dict->ReadPrevKey(RetKey,&recdata); RK->Caption=AnsiString(RetKey); eWord->Text=AnsiString(RetKey); if (rc==1) { mWord->Clear(); rc... |
| example restore | ... void __fastcall TMainForm::btRestoreClick(TObject *Sender) { char tmp[250]; char name[250]; FILE *fp; int rc,nbisam; char buffer[BUF_LEN]; struct time t; int nbsec1,nbsec2; strcpy(tmp,"Restore Data from Dict.txt ? \r\n Isam Files will be deleted, and rebuilt"); if (Application-... |
| example search | ...inForm::btSearchClick(TObject *Sender) { Search(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::Search() { int rc,recdata; char Key[MAX_KEY],RetKey[MAX_KEY]; char buffer[BUF_LEN]; char tmp[256]; if (eWord->Text=="")... |
| example search | ... void __fastcall TMainForm::btSearchClick(TObject *Sender) { Search(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::Search() { int rc,recdata; char Key[MAX_KEY],RetKey[MAX_KEY]; char buffer[BUF_LEN]; char tmp[256]; ... |
| example searchword | ... void __fastcall TMainForm::eWordKeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { if (Key==13) Search(); } //--------------------------------------------------------------------------- ... |
| example start | ... void __fastcall TMainForm::btStartClick(TObject *Sender) { char tmp[250]; char name[250]; char html[250]; int i; FILE *fp; int rc; char buffer[BUF_LEN]; struct time t; int nbsec1,nbsec2; int hund1,hund2; int nbf; int K; TCursor oldCursor = Screen->Cursor; if (cb->Checked==tr... |
| example update | ... void __fastcall TMainForm::btUpdateClick(TObject *Sender) { char buffer[BUF_LEN]; int rc; // M_recdata is supposed to store the address of the data record mWord->GetTextBuf(buffer,BUF_LEN); rc = dict->RewriteRecord(buffer, strlen(buffer)+1,M_recdata); StatusBar1->SimpleText="Entry U... |
| example version | ... void __fastcall TMainForm::btVersionClick(TObject *Sender) { char version[100]; dict->Version(version); Application->MessageBoxA(version,"Version",MB_OK); } //--------------------------------------------------------------------------- ... |
| example wordmouseup | ... void __fastcall TMainForm::mWordMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { char tmp[200]; mWord->GetSelTextBuf(tmp,100); if (strlen(tmp)==0) return; eWord->Text=AnsiString(tmp); Search(); } //---------------------------------------------... |
| __published | |
| example include | ... //--------------------------------------------------------------------------- class TMainForm : public TForm { __published: // IDE-managed Components TPageControl *PageControl1; TTabSheet *TabSheet2; TButton *btStart; TLabel *Label15; TEdit *eWo... |
| __realisam_h | |
| realisamdoc include | ... #ifndef __REALISAM_H #define __REALISAM_H #ifdef __cplusplus extern "C" { #endif class _export realisam { public: realisam(void); ~realisam(void); int OpenEngine(char *FileName,short BlockSize,char *ndx, char*dat); int CloseEngine(void); int SetIndexMode(short Index,... |
| realisamdoc include | ... #ifndef __REALISAM_H #define __REALISAM_H #ifdef __cplusplus extern "C" { #endif class _export realisam { public: realisam(void); ~realisam(void); int OpenEngine(char *FileName,short BlockSize,char *ndx, char*dat); int CloseEngine(void); int SetIndexMode(short Index,... |
| _export | |
| realisamdoc include | ... #ifndef __REALISAM_H #define __REALISAM_H #ifdef __cplusplus extern "C" { #endif class _export realisam { public: realisam(void); ~realisam(void); int OpenEngine(char *FileName,short BlockSize,char *ndx, char*dat); int CloseEngine(void); int SetIndexMode(short Index,... |
