eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Localized FBase file buffer and record

This commit is contained in:
mysticbbs 2012-02-27 18:37:35 -05:00
parent bdddac9aca
commit 19bdea67f5
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
mystic/bbs_cfg_filebase.pas
View File

@ -16,11 +16,7 @@ Uses
bbs_Common, bbs_Common,
bbs_cfg_Common; bbs_cfg_Common;
Var Procedure EditFileBase (Var FBase: RecFileBase);
FBaseFile : TBufFile;
FBase : RecFileBase;
Procedure EditFileBase;
Var Var
Box : TAnsiMenuBox; Box : TAnsiMenuBox;
Form : TAnsiMenuForm; Form : TAnsiMenuForm;
@ -67,10 +63,12 @@ End;
Procedure Configuration_FileBaseEditor; Procedure Configuration_FileBaseEditor;
Var Var
Box : TAnsiMenuBox; Box : TAnsiMenuBox;
List : TAnsiMenuList; List : TAnsiMenuList;
Copied : RecFileBase; Copied : RecFileBase;
HasCopy : Boolean = False; HasCopy : Boolean = False;
FBaseFile : TBufFile;
FBase : RecFileBase;
Procedure MakeList; Procedure MakeList;
Begin Begin
@ -175,7 +173,7 @@ Begin
FBaseFile.Seek (List.Picked - 1); FBaseFile.Seek (List.Picked - 1);
FBaseFile.Read (FBase); FBaseFile.Read (FBase);
EditFileBase; EditFileBase(FBase);
FBaseFile.Seek (List.Picked - 1); FBaseFile.Seek (List.Picked - 1);
FBaseFile.Write (FBase); FBaseFile.Write (FBase);