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_cfg_Common;
Var
FBaseFile : TBufFile;
FBase : RecFileBase;
Procedure EditFileBase;
Procedure EditFileBase (Var FBase: RecFileBase);
Var
Box : TAnsiMenuBox;
Form : TAnsiMenuForm;
@ -67,10 +63,12 @@ End;
Procedure Configuration_FileBaseEditor;
Var
Box : TAnsiMenuBox;
List : TAnsiMenuList;
Copied : RecFileBase;
HasCopy : Boolean = False;
Box : TAnsiMenuBox;
List : TAnsiMenuList;
Copied : RecFileBase;
HasCopy : Boolean = False;
FBaseFile : TBufFile;
FBase : RecFileBase;
Procedure MakeList;
Begin
@ -175,7 +173,7 @@ Begin
FBaseFile.Seek (List.Picked - 1);
FBaseFile.Read (FBase);
EditFileBase;
EditFileBase(FBase);
FBaseFile.Seek (List.Picked - 1);
FBaseFile.Write (FBase);