Einzelnen Beitrag anzeigen

Benutzerbild von sniper_w
sniper_w

Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
 
Delphi 6 Enterprise
 
#10

Re: Durch Klick auf Button eine Integervariable erhöhen

  Alt 28. Jan 2006, 15:39
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;
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
  Mit Zitat antworten Zitat