Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Globale Variable


cromos - Di 30.12.03 19:54
Titel: Globale Variable
Hallo,

wie kann ich eine Variable so Defenieren das diese Unit-Weit , in allen Unterprogrammen, verfügbar ist?

Gruss
Cromos


mb - Di 30.12.03 20:13
z.B. so - falls Du das meinst:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
 
unit <UnitName>;

interface

procedure proc1(value1: integer; var value2:integer);
function func1(value: integer): boolean;

implementation

var globalTest: integer;

procedure proc1(value1: integer; var value2:integer);
begin
  value2 := value1 + value2 * globalTest; // Dummy
end;

function func1(value: integer): boolean;
begin
  result := (globalTest mod 2 = 0);
end;

end.


Hat nicht viel Sinn, diese Unit, aber du greifst in beiden Unterroutinen auf die Variable globalTest zu. Wenn auch andere Units, die die <UnitName> einbinden auf die Variable zugreifen können sollen, so musst Du die Variable nicht nach "implementation" sondern schon nach "interface" definieren...


cromos - Di 30.12.03 20:15
Danke, das war was ich suchte.

Guten Rutsch

cromos


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!