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.
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.