borlad c++ e niubbo

[roby78]

ciao a tutti, sto scrivendo il mio primo programmino in borland c++ 6 ed ho un problema credo semplicissimo ma per me che sono niubbo è inrisolvibile.
ho creato 2 form con relativi file unit1 e unit2, ho creato una classe con 2 istanze nel file unit1.h.
ora nella form 2 ho bisogno di sommare i valori delle 2 istanze ma il risultato è sempre 0(ho inizializzato la variabile a zero), sembra che unit2 non riesca a leggere la classe, eppure il compilatore non mi da errori.
aggiungo che ho aggiunto il file unit2 con il comando "file/include unit hdr...".
dove ho sbagliato secondo voi?
grazie mille a tutti

[maxithron]

potresti aiutarci postando il codice

[roby78]

scusate il ritardo ecco il codice, non è completo ma una versione ridotta in modo da facilitarne la lettura:

UNIT1.CPP
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfin1 *fin1;
//---------------------------------------------------------------------------
__fastcall Tfin1::Tfin1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfin1::okClick(TObject *Sender)
{
damigiana1.quantita=23; // assegno un valore alla prima istanza
et1->Caption= damigiana1.quantita;
}
//---------------------------------------------------------------------------
void __fastcall Tfin1:: pag2Click(TObject *Sender)
{
fin2->Show();

}

UNIT1.H
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class vino
{
public:
int quantita;

};
vino damigiana1;
vino damigiana2;





class Tfin1 : public TForm
{
__published: // IDE-managed Components
TLabel *et1;
TButton *ok;
TButton *pag2;
TLabel *Label1;
void __fastcall okClick(TObject *Sender);
void __fastcall pag2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall Tfin1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE Tfin1 *fin1;
//---------------------------------------------------------------------------
#endif

UNIT2.CPP
#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfin2 *fin2;
//---------------------------------------------------------------------------
__fastcall Tfin2::Tfin2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfin2::sommaClick(TObject *Sender)
{
damigiana2.quantita=17; //assegno valore alla istanza 2
et2->Caption= damigiana2.quantita;
et3->Caption= damigiana1.quantita +damigiana2.quantita; // sommo le 2 istanze
}




non ho inserito unit2.h perchè non ci ho messo niente, cmq sono 2 form(fin1 e fin2) la prima con 2 pulsanti( il primo per assegnare il valore alla prima istanza e il secondo per aprire la seconda form).
in unit2 si nota che ci sono 2 pulsati, il primo assegna il valore alla seconda istanza e il secondo esegue la somma.
il problema arriva quando si fa la somma, il prog vede solo il valore della seconda istanza(assegnatogli nello stesso file) mentre la prima istanza la vede come se non avesse valore. sapreste spiegarmi come posso fargli vedere anche la prima istanza?

un'altra cosa da oggi il borland c++6 non mi fa + utilizzare la tastiera per fare le solite cose, tipo coppia e incolla, visualizzare le form(shift+f12) ecc...
eppure posso scrivere senza problemi, sapete se c'è un'opzione da sistemare?
grazie infinite per l'aiuto ciao

[verloc]

io l'istruzione che assegna la quantità alla damigiana 1 non la vedo.

Ah,scusa,stava sopra (23)

[downloader]

Personalmente credo che il problema sia il seguente. Due form non possono comunicare tramite una unit condivisa. Non vuol dire che condividono memoria. Due finestre possono in windows comunicare tramite messaggi, o tramite una finestra madre (parent fisico). Credo che sia normale quello che ti succede.

In unit1.h dove ci sono le due variabili, in realtà non c'è altro che una dichiarazione. Quando l'includi in una form e poi nell'altra vengono create per ogni variabile due istanze reali in memoria. Una per una form e una per un'altra. Non è memoria condivisa!

Spero di esserti stato d'aiuto e di no aver detto ca...ate.

[verloc]

un modo è dichiararla qua dentro (public)

class Tfin1 : public TForm
{
__published: // IDE-managed Components
TLabel *et1;
TButton *ok;
TButton *pag2;
TLabel *Label1;
void __fastcall okClick(TObject *Sender);
void __fastcall pag2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall Tfin1(TComponent* Owner);
};

[roby78]

grazie mille a tutti sono riuscito a risolvere usando il comando extern.
la soluzione di Verloc non riesco cmq a farla funzionare, cmq grazie lo stesso per il tempo perso.
un saluto e buon anno a tutti

[verloc]

Originariamente inviato da roby78
la soluzione di Verloc non riesco cmq a farla funzionare, cmq grazie lo stesso per il tempo perso.
un saluto e buon anno a tutti

fin1->damigiana.quantità=tot



ops...avevo sbagliato:non era un puntatore a damigiana

[roby78]

ok ho capito anche questa soluzione heheh ora ho solo l'imbarazzo della scelta heheheh grazie mille