Globale Variabeln

odin · Hält's aus hier Beiträge: 3

Hi@ all,

hmmm ich hab ne ganz dumme frage ... ich will einen variabel wert von form2 in form1 mit nutzten. Meine frage jetzt wie lege ich des jetzt fest, damit ich eine variable für mehrer forms nutze.

Und ja ich hab scho in anderen beitragen gesucht :wink:

aber nichts gefunden.

MFG
Odin

Moderiert von Tino: Topic aus Sonstiges verschoben am Di 10.08.2004 um 15:50

inselberg · Beiträge: 458

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

program sinnlos1;
...
var globalste_der_globale:string;
...
begin
...
end.

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.

_________________
hans bist du das ?

[WOL]Azrael · Beiträge: 51

Kommt drauf an wofür du die Variable nutzen willst:
du kannst dir entwerde eine zusätzliche Unit schaffen, in der du die globale Variable in den Interface Teil schreibst ( i.d.R. ist das eine Unit in der auch die Datentypen liegen) oder du deklarierst dir die Variable in deiner Unit von Form2 und schreibst dir dann eine Funktion, die dir genau diese Variable zurückliefert also in etwa so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

interface
Procedure Setze_Glob_Var(Wert:Cardinal);
Function Hole_Glob_Var:Cardinal;

..

implementation
var Glob_Var:Cardinal;


Function Hole_Glob_Var:Cardinal;
begin
 Hole_Glob_Var:=Glob_Var;
end;

Procedure Setze_Glob_Var(Wert:Cardinal);
begin
  Glob_Var:=Wert;
end;

Moderiert von Peter Lustig: Delphi-Tags hinzugefügt.

odin · Hält's aus hier Beiträge: 3

inselberg hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

program sinnlos1;
...
var globalste_der_globale:string;
...
begin
...
end.

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.

hmm !?!?

Ok also mein code schaut so aus

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, shellapi;

type
  TForm1 = class(TForm)
  ...


  private
    { Private-Deklarationen }
    procedure mauskor;
    public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
 
implementation

uses Unit2;

var
  xm, ym, m: integer;
  mouseposition: TPoint;

  // image variabelen
  yi, xi, yi1, xi1, xyi, xyi1 :integer;

 procedure tform1.mauskor;
  blablabla
  .........

Wo muss ich jetzt die variable hinschreiben ?!?!?!
Und muss ich die variable dann in form1 und form2 schreiben oder bloss in eins von beiden oder wie .... sorry

ODIN

MSCH · Verfasst: Di 03.08.04 14:41

Globale Variablen, *brrr*. Vielleicht auch noch threadsicher? Da kommt dann das große Erwachen.
Warum verwendet du nicht Variablen in deinen Objecten(Forms)?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

type
  TersteForm= Class(TForm)
  ..
  public
    Var1: Integer;
  end;

  TzweiteForm= Class(TForm)
  ..
  public
    Var1: integer;
  end;

nun kannst du Erstform.Var1:= ZweiteForm.Var1 schreiben und hin und her und hin und her. Vielleicht machst du's noch besser, indem du statt variablen Properties nimmst.

grez
msch

_________________
ist das politisch, wenn ich linksdrehenden Joghurt haben möchte?

odin · Hält's aus hier Beiträge: 3

jo vielen dank hat mir sehr weiter geholfen .... vielen dank..... .

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme