¿BCB6 Como Cambiar valor Variable que esta en otra unit?
Tengo este problema que no entiendo.
tengo un form principal desde el cual llamo una funcion void
Código:
void __fastcall inicializa()
{
DirUserDoc = "super mira nada mas";
}
que esta en otra unit
este header tiene una variable strign DirUserDoc pero no se muestra el cambio.
al llamarla desde el form principal no se muestra el texto
Obvio en delphi si puedo hacer esto de llamar procedures funciones que modifican variables
y obtener su valor desde cualquier unit
pogo el code de las units y sus headers.
Header principal que llama a la funcion en otro archivos unit
Código:
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
TButton *Button3;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Unit principal que llama a la funcion en otro archivos unit
Código:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <String>
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
/*
Form2 = new TForm2(Application);
Form2->ShowModal();
delete Form2;
}
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TForm2 *Form2;
Form2 = new TForm2( Application );
try
{
Form2->Label1->Caption = "dasdsads";
Form2->mivar = "mnega";
Form2->ShowModal();
ShowMessage(Form2->mivar);
}
__finally
{
Form2->Free();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
inicializa; // desde la funcion se debe de cambir el valor de un string pero no lo cambia sale en blanco
ShowMessage(DirUserDoc);
// esto si funciona pero son numeros
ShowMessage( IntToStr( sum(5,5)) );
resultadosuma = sum(40,50);
ShowMessage(IntToStr(resultadosuma));
}
//---------------------------------------------------------------------------
Header de la unit que tiene la funcion llamada
Código:
//---------------------------------------------------------------------------
#ifndef Unit3H
#define Unit3H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <String>
bool inicializado;
String DirUserDoc;
int resultadosuma;
void __fastcall inicializa();
void __fastcall desinicializa();
int sum(int a, int b);
//---------------------------------------------------------------------------
#endif
Unit que tiene la funcion llamada
Código:
//---------------------------------------------------------------------------
#pragma hdrstop
#include "Unit3.h"
#include <String>
#include "Unit1.h"
#include "Unit2.h"
#include <vcl.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
void __fastcall inicializa()
{
DirUserDoc = "super mira nada mas";
}
void __fastcall desinicializa()
{
DirUserDoc = "na nanay";
}
int sum(int a, int b)
{
return(a+b);
}
gracias por su atencion, que esto si no lo entiendo |
