Tweet
Hi!
Wie kann ich denn eine Variable die ich in Unit 1 eines Proggys verwende, auch in weitere Units "vererben"???
Wie kann ich denn eine Variable die ich in Unit 1 eines Proggys verwende, auch in weitere Units "vererben"???
-
-
Hallo,
handelt es sich um Formular- oder Datenmodul-Units? Wenn ja, kann man dort die Information über eigene Properties weitergeben:
<pre>
type
TDataModuleSP = class(TDataModule)
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
ADODataSet1KontoNr: TAutoIncField;
ADODataSet1Betrag: TBCDField;
ADOStoredProcTransferMoney: TADOStoredProc;
private
{ Private-Deklarationen }
FSP_Error : Integer;
FSP_Status : Integer;
public
{ Public-Deklarationen }
procedure DoTransferMoney(iFromKontoNr, iToKontoNr: Integer;
mValue : Currency);
property SP_Error: Integer read FSP_Error;
property SP_Status: Integer read FSP_Status;
end;
</pre>
Über die Properties werden die privaten Objektfelder eingekapselt.
Ansonsten kann die Variable auch als globale Variable im Interface-Abschnitt der Unit deklariert werden. Im folgenden Beispiel ist <i>gPrgValue</i> von allen Units aus erreichbar, die diese Unit einbinden:
<pre>
var
DataModuleSP: TDataModuleSP;
gPrgValue : Integer;
implementation
</pre>
Comment