Durch Klick auf Button eine Integervariable erhöhen

[Elachiim]

Ich will durch Klick auf Button eine Integervariable erhöhen.
Also wenn ich schreibe:

var i:integer; //als globale Variable in anderer Prozedur Wert 0 zugewiesen

in folgender procedure soll, wenn man auf einen Button klickt, die Variable erhöht werden
begin
i:i+1 (inc(i) geht auch nicht)
end;

, dann wird der letzte Wert nie gespeichert. Ich möchte ja nur bei jedem Klick erst 1, dann 2 usw. haben

Danke für eine Antwort, wenn ihr mich versteht

[mkinzler]

Eigentlich sollte es gehen. Gibt es vielleicht mehrerer Variablen mit dem Namen i?

[fwsp]

i:= i + 1;

[Hobby-Programmierer]

Hallo ...,

Zitat von Elachiim:

Ich will durch Klick auf Button eine Integervariable erhöhen.

Zunächst einmal solltest Du diese Variable auch global deklarieren oder aber diese der Procedure lokal mit übergeben! Wichtig ist auch das eben diese Variable vor der ersten Benutzung initialisiert wird.

zb.:

Delphi-Quellcode:

procedure TDeineHauptForm.FormCreate(Sender: TObject);
begin
  i:= 0;
end;

dann sollte das ebenso funktionieren

Delphi-Quellcode:

procedure TDeineHauptForm.ButtonClick(Sender: TObject);
begin
  Inc(i); // ebenso i:= i+1;
end;

Falls nicht dann zeig mal Deinen Code.
Gruss Mario

[SirThornberry]

und bitte NICHT global declarieren! Man kann Variablen ebenso im Private, Public und Protected declarieren.

[Hobby-Programmierer]

Hallo ...,

Zitat von SirThornberry:

und bitte NICHT global declarieren! Man kann Variablen ebenso im Private, Public und Protected declarieren.

Warum nicht? Hängt das nicht von der Verwendung und der Verfügbarkeit der Variable ab?
Gruss Mario

[SirThornberry]

Zitat von Hobby-Programmierer:

Hallo ...,

Zitat von SirThornberry:

und bitte NICHT global declarieren! Man kann Variablen ebenso im Private, Public und Protected declarieren.

Warum nicht? Hängt das nicht von der Verwendung und der Verfügbarkeit der Variable ab?
Gruss Mario

In deinem Beispiel verwendest du doch aber auch Methoden von "TDeineHauptForm.". Und da es hier um Objectpascal handelt sollte man doch auch Objectorientiert arbeiten.
Wenn die Variable also nur in "TDeineHauptForm" verwendet wird dann sollte sie auch nur in dieser Klasse verfügbar sein und gehört somit ins Private oder Protected.

[Hobby-Programmierer]

Hallo SirThornberry ...,
wenn ich Global schreibe meine ich das auch so. Sie wird ja nicht in TDeineHauptForm deklariert sondern dort nur initialisiert und mitbenutzt. Meinem Verständniss zu folge deklariere ich Unitübergreifend eine Variable die ich in mehreren Units benötige, eben als Global und nicht lokal. Der OP ging in seinem Bsp. von einer globalen Variable aus, nur deshalb habe ich mich dem angeschlossen! Spricht etwas dagegen das ich diese Variable in TDeineHauptForm initialisiere?
Bei sonstigen lokalen Variablen hast Du natürlich recht.
.. hoffe das dies jetzt nicht OT ist, Gruss Mario

[Der_Unwissende]

Hi,
die Idee in der OOP ist es halt gerade, dass du keine globalen Variablen kennst. Es gibt nur noch Objekte, die interagieren. Ein Objekt kann bestimmte Eigenschaften anderer Objekte sehen (auf/abrufen). Das ist auch alles was du brauchst um ein sauberes Programm zu erstellen. Wenn du echte OOP hättest, würde es nichts ausser Objekten geben (die zur Laufzeit existieren, Klassen und Interfaces zur Designzeit).
Soetwas wie eine Unit übergreifende Variable braucht man halt in der Regel einfach nicht. Wenn du die Variable i (solltest du lieber sinnvoller benennen) nur aus dem Formular TDeineHauptform heraus verändert wird (durch Knopfdruck hochzählen), dann braucht kein anderer dieses i zu sehen. Also kannst du i einfach als private in deiner Hauptform deklarieren. Willst du den Wert von i in einer anderen Klasse abfragen, brauchst du nur eine Funktion die dir den Wert zurückgibt (das ganze kannst du natürlich auch als Eigenschaft kapseln). Dann hast du etwas wie

Delphi-Quellcode:

type
  TDeineHauptform = class(TForm)
  ....
  ....
  private 
    FAnzahlButtonClicks : Integer;
  public 
    property AnzahlClicks : Integer read FAnzahlButtonClicks;
  end;

Und der Aufruf aus einem anderen Objekt würde dann einfach die Eigenschaft AnzahlClicks aus der Instanz von TDeineHauptForm abfragen :

Delphi-Quellcode:

begin
  ShowMessage(IntToStr(DeineHauptForm1.AnzahlClicks));
end;

Wie du siehst, ist die Variable i (AnzahlClicks) von aussen nur lesbar. Damit kann die Variable nur noch von TDeineHauptForm direkt geschrieben werden. Da sie (soweit es deinen Beschreibungen zu entnehmen war) auch nur in dieser Klasse verändert wird, ist es sauberer in OOP.
Globale Variablen brauchst du damit nicht mehr (sieht man mal von statischen Variablen ab). Es ist einfach eine andere Herangehensweise, die durchaus ihren Sinn hat. Du wirst kaum ein Problem finden (ich behaupte einfach mal gar keins), dass du nicht auch ohne globale Variablen lösen könntest. Umgekehrt gilt das gleiche, kannst auch jedes OO Programm in Imperative Programmierung umwandeln, über Sinn und Unsinn lässt sich da streiten.
Details zu Pro und Contra findest du auch in der DP viele, einfach mal Suchen. Aber ganz schlecht ist es wie SirThornberry schon sagte Programmierparadigmen zu vermischen.

Sorry auch hier an SirThorberry, dass ich eine an ihn gerichtete Frage beantwortet habe (oder auch nicht beantwortet)

Gruß Der Unwissende

[sniper_w]

Wer rein OOP programmieren will, dann bitte mit c#. Gegen eine globale Variable spricht nichts. Und unsauber wird´s auch nicht.
OOP oder nicht OOP, ist eine ANSICHTSSACHE, die immer wieder heftig diskutiert wird.

IMO, die Hauptsache ist, dass das Programm seine Aufgabe erfühlt.


EDIT:
Lösung des Problemms:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Zahl:Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc( Zahl );
  Caption := IntToStr( Zahl );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Zahl := 0;
end;