Merge pull request #4 from formeo/feature/refactoring

Refactor Core Modules, Add Record Parsing, Improve Data Extraction, and Update Documentation

Author: formeo

FirebirdRepairBase.dpr

@@ -5,16 +5,17 @@ uses
   Windows,
   SysUtils,
   Dialogs,
-  main in 'main.pas' {frmMain} ,
-  struck in 'struck.pas',
+  main in 'main.pas' {frmMain},
+  uStructs in 'uStructs.pas',
   uCommon in 'uCommon.pas',
-  uDatabase in 'uDatabase.pas',
-  uHeaderPage in 'uHeaderPage.pas',
-  uPag in 'uPag.pas',
   uTipPage in 'uTipPage.pas',
   uDataPage in 'uDataPage.pas',
   uGenPage in 'uGenPage.pas',
-  uPoiner in 'uPoiner.pas';
+  uPointer in 'uPointer.pas',
+  uPageAnalyzer in 'uPageAnalyzer.pas',
+  uBtreePage in 'uBtreePage.pas',
+  uDatabaseStats in 'uDatabaseStats.pas',
+  uFlagManager in 'uFlagManager.pas';
 
 {$R *.res}
 
@@ -23,7 +24,7 @@ begin
     Application.Initialize;
     Application.Title := 'FirebirdRepairBase';
     Application.CreateForm(TfrmMain, frmMain);
-    Application.Run;
+  Application.Run;
   except
     on E: Exception do
     begin

FirebirdRepairBase.dproj

@@ -5070,14 +5070,12 @@ object frmMain: TfrmMain
     000000000000FFF300000FE30000018200000004000000080000001000008021
     0000C0030000E0070000F0030000F0010000E0010000E1010000C3830000E7C7
     0000FFE70000}
-  OldCreateOrder = False
   Position = poScreenCenter
   OnClose = FormClose
   OnShow = FormShow
   DesignSize = (
     1114
     764)
-  PixelsPerInch = 96
   TextHeight = 13
   object pnl1: TPanel
     Left = 0