Lazin, в моем случае получается так:
Unit1.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include "Unit3.h"
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "RxMenus.hpp"
#include <ComCtrls.hpp>
#include <Menus.hpp>
#include <inifiles.hpp>
#include "ACE.hpp"
class TMN : public TForm
{
TMenuItem *N1;
TMenuItem *N2;
bla-bla-bla
private: // User declarations
public: // User declarations
__fastcall TMN(TComponent* Owner);
AnsiString director, mainbuh, company;
AnsiString lastdate, path_base, path_doc, disk, path_in, path_out, numdoc, my_oper, my_drive;
TDateTime curdat;
};
//---------------------------------------------------------------------------
extern PACKAGE TMN *MN;
//---------------------------------------------------------------------------
#endif
а вот уже unit.cpp
тут в начале как всегда куча кода
void __fastcall TMN::FormCreate(TObject *Sender)
{
SetEnvironmentVariable("TMP","C:\\WINDOWS\\TEMP");
TIniFile *pIniFile = new TIniFile( GetCurrentDir( )+"\\pack.ini");
director = pIniFile->ReadString( "MAIN", "DIRECTOR", "Íåèçâåñòåí" );
mainbuh = pIniFile->ReadString( "MAIN", "MAINBUH", "Íåèçâåñòåí" );
company = pIniFile->ReadString( "MAIN", "COMPANY", "Íåèçâåñòåí" );
lastdate = pIniFile->ReadString( "SYSTEM", "LASTDATE", DateToStr(Now()) );
path_base = pIniFile->ReadString( "SYSTEM", "PATHBASE", "BASES\\" );
path_doc = pIniFile->ReadString( "SYSTEM", "PATHDOC", "DOC\\" );
disk = pIniFile->ReadString( "SYSTEM", "DISK", "ARCHIVE\\" );
path_in = pIniFile->ReadString( "SYSTEM", "PATHIN", "IN\\" );
path_out = pIniFile->ReadString( "SYSTEM", "PATHOUT", "OUT\\" );
numdoc = pIniFile->ReadString( "SYSTEM", "NUMDOC", "0" );
my_oper = pIniFile->ReadString( "SYSTEM", "OPERATOR", "" );
my_drive = pIniFile->ReadString( "SYSTEM", "DRIVE", "A:\\" );
delete pIniFile;
ну и так далее....
я попробовал пошаговое исполнение и был выяснил, что сначала выполняется OnCreate, а затем создается мой класс формы. Странно все как-то. Я думал, что должно наоборот. Сначала создается касс формы, а потом начинаю исполняться процедуры класса.
И вот, получилось так что заполнились все переменные, а при создании формы они обнунинись.
Ничего не понимаю.
У меня Builder5 |
