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

Nonsense

This commit is contained in:
mysticbbs 2012-03-03 04:52:16 -05:00
parent 4eed641c0b
commit 9e02d6a154
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/bbs_cfg_language.pas
View File

@ -23,7 +23,10 @@ Begin
{ Reset (LangFile);} { Reset (LangFile);}
Repeat Repeat
Session.io.OutFullLn ('|CL|14Language Editor|CR|CR|15## FileName Description|CR|09-- -------- ------------------------------'); Session.io.OutFullLn ('|CL|14Language Editor|CR|CR|15## FileName Description|CR|09-- -------- ------------------------------');
Reset (Session.LangFile); assign(session.langfile, config.datapath+'theme.dat');
{$I-} Reset (Session.LangFile);{$I+}
if ioresult <> 0 then rewrite(session.langfile);
while not eof(Session.LangFile) do begin while not eof(Session.LangFile) do begin
read (Session.LangFile, Session.Lang); read (Session.LangFile, Session.Lang);
Session.io.OutFullLn ('|15' + strPadR(strI2S(filepos(Session.LangFile)), 4, ' ') + Session.io.OutFullLn ('|15' + strPadR(strI2S(filepos(Session.LangFile)), 4, ' ') +