//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "FormHelp.h"
#include "myprogfun.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmHelp *FrmHelp;
//---------------------------------------------------------------------------
__fastcall TFrmHelp::TFrmHelp(TComponent* Owner,AnsiString filename)
	: TForm(Owner)
{
    try
    {
        TStringList*lst=new TStringList();
        TFileSpec Fs(Application->ExeName);
        AnsiString fullFileName=Fs.FilePath+filename;
        ReadSourceFile(lst,fullFileName);
        for(int k=0;k<lst->Count;k++){
            MemoContent->Lines->Add(lst->Strings[k]);
        }
        delete lst;
    }
    catch (Exception & exp)
    {
        MessageDlg("ļ"+exp.Message,
            mtError, TMsgDlgButtons() << mbOK, 0);

    }                        
}

void TFrmHelp::showHelpMsg(TComponent* Owner,AnsiString filename)
{
    FrmHelp=new TFrmHelp(Owner,filename);
    FrmHelp->ShowModal();
    delete FrmHelp;
}
//---------------------------------------------------------------------------