variblen in einer anderen procedur verändern

[Generaljim]

Hallo leute , ich hab ein kleines problem : wie kann ich variablen deklarieren die ich zur laufzeit ändern kann und diesen neuen wert zur luafzeit auch wieder auslesen kann?


gruß an alle


P.S: bin neu deswegen keine ahnung vom programieren

[mkinzler]

schlechte lösung: globale Variable
bessere Lösung: Var Parameter / Rückgabewert

[oki]

Hi,

übergib deine Variable an die Procedur mit der Deklaration var. dann kannst du sie in der Procedure verändern und bekommst sie verändert wieder zurück.

Delphi-Quellcode:

procedure VarReturne(var MyVar : Integer);
begin
  MyVar := MyVar + 2;
end;

Gruß oki

[Generaljim]

schon nicht schlecht aber nix für mein problem ich will die variable aus verschieden anderen prozeduren heraus bequem verändern und auh wieder aufrufen können.

[mkinzler]

Dann bleibt dir ja nur eine globale Variable

[Generaljim]

sonst geht nix nur globale variable oder den umweg über ne procedur?

[mkinzler]

Eine lokale Variable hat ja nur einen Scope innerhalb der Prozedur/Funktion

[DGL-luke]

Hallo,

so eine variable musst du (unit/klassen)global deklarieren. Das heißt, die kommt als var in deine unit:

Delphi-Quellcode:

unit SomePascalStuff;

initialization

var
  MyVar: TVar;

implementation

//beispielzugriff
procedure InitVar;
begin
  MyVar := TVar.Null;
end;

oder als member in eine klasse:

Delphi-Quellcode:

unit SomePascalStuff;

initialization

type 
  TMyClass = class
  public
    MyVar: TVar;

    procedure InitVar;
  end;

implementation

//beispielzugriff
procedure TMyClass.InitVar;
begin
  MyVar := TVar.Null;
end;

Auch Delphi-Forms sind Klassen, du kannst sowas also auch z.B. unter "{Private-Deklarationen}" in deine Formklasse schreiben.

[oki]

Wenn du es im Rahmen eines Objektes tust wird sicher keiner die Nase rümpfen.

Delphi-Quellcode:

type
  MyObject = class
  private
    FMyVar : Integer;
  protected
    procedure IncrementMyVar;
    procedure DecrementMyVar;
  end;

procedure IncrementMyVar;
begin
  Inc(FMyVar);
end;

procedure DecrementMyVar;
begin
  Dec(FMyVar);
end;

Wenn nicht objektorientiert ist dann global wie mkinzler sagt.

Gruß oki

edit: roter Kasten! grrrr! oder wie DGL_luke sagt

[Generaljim]

na dann mal herzlichen dank , ich probiers dann mal.

gruß Jim Balthasra