Bin mal wieder zu dusselich...

Kann jemand helfen? habe in der Delphi Schwarte gelesen aber nix gefunden.

Ich möchte nur im Edit1 ein Zähler reinklatschen der die Zahl mit einem Button von 0 auf die nächste Zahl erhöht.

Mit einem Label geht es ja.Aber mit dem Edit nicht.

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  zaehler: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zaehler:= zaehler + 1;
Label1.Caption:= InttoStr(zaehler)
end;

end.

Zitat von blondervolker:

Bin mal wieder zu dusselich...

Kann jemand helfen? habe in der Delphi Schwarte gelesen aber nix gefunden.

Ich möchte nur im Edit1 ein Zähler reinklatschen der die Zahl mit einem Button von 0 auf die nächste Zahl erhöht.

Mit einem Label geht es ja.Aber mit dem Edit nicht.

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  zaehler: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zaehler:= zaehler + 1;
Label1.Caption:= InttoStr(zaehler)
end;

end.

Was soll daran nicht gehen?

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
zaehler:= zaehler + 1;
Edit1.Text:= InttoStr(zaehler)
end;

Und was heißt: "Funktioniert nicht"?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Zaehler := 0;
  Edit1.Text := IntToStr(Zaehler);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(Zaehler);
  Edit1.Text := IntToStr(Zaehler);
end;

Vielen Dank

Ich verstecke mich hinterm Sofa

Einen schönen Abend noch!!!

.. oder gleich TSpinEdit verwenden

Grüße
Klaus

Zitat:

Funktioniert nicht

und

Zitat:

Mit einem Label geht es ja. Aber mit dem Edit nicht.

Ist nicht grade eine ordentliche Fehlermeldung.
Warum ging es denn nun nicht?

"zaehler" gehört zu einem Button, bzw. zu einem Label/Edit, warum ist das dann aber global deklariert?

Und glaubst du, daß es in deinem Programm immer nur einen Zähler geben wird?
Bei soeiner ungenauen Bezeichnung der Variable und dann auch noch bei einer globalen, kann zumindestens ich keinen Zusammenhang erkennen, bzw. aus dem Namen auf die Verwendung oder den Einsatzort schließen.

Das gehört also mindestens in die From-Klasse, welches die naheliegenste Ebene darstellt, welche sich für diese Variable anbietet.
Und wenn man will, dann hat das Edit einen Tag-Wert, welchen der Programmierer nach belieben verwenden kann.
Bei einem SpinEdit hat man sowieso schon eine Stelle für die Zahl und selbst beim Edit/Label könnte man sogar die Zahl im Edit/Label direkt verrechnen (zum IntToStr gibt es auch ein StrToInt).