Проблемка(Delphi)

[B13eR]

Опишите класс Counter, который используется для хранения целочисленного значения счетчика и содержит методы его увеличения на 1 и получения значения счетчика.

Вообщем столкнулся с такой проблемой, присваиваю значению счетчика, значения с Edit1, в процедуре Up описываю счётчик +1. Только вот счётчик не принемает значение с Edit(a), а начинает увеличивать счетчик с 0.

 unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; Counter: TCounter;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var sch:integer;
begin

sch:=strtoint(Form1.Edit1.Text);
counter.Up;
Form1.Memo1.Lines.Add(inttostr(counter.Get));

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
counter:=TCounter.create;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
counter.destroy;
end;

end.

 unit Unit2;

interface

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

type
  TCounter = class
  private
    { Private declarations }
  public
    sch:integer;
    procedure Up;
    function Get:integer;
    constructor create;
  end;

implementation


procedure TCounter.Up;
begin
sch:=sch+1;
end;
function TCounter.Get:integer;
begin
Get:=sch;
end;
constructor TCounter.create;
begin
inherited create;
sch:=0;
end;

end.

[Hacker19_90]

procedure TForm1.Button1Click(Sender: TObject);
begin

Counter.sch:=strtoint(Form1.Edit1.Text);
counter.Up;
Form1.Memo1.Lines.Add(inttostr(counter.Get));

end;

[whatever]

Вместо sch:=strtoint(Form1.Edit1.Text);
нужно counter.sch:=strtoint(Form1.Edit1.T ext);

[B13eR]

Спасибо, помогло, только вот теперь он счетчик только 1 раз увеличивает на 1 и в мэмо пишет одно и тоже число

[Hacker19_90]

олько вот теперь он счетчик только 1 раз увеличивает на 1 и в мэмо пишет одно и тоже число

Потому что каждый раз идет присваивание с Edit

Counter.sch:=strtoint(Form1.Edit1.Text);

Ну а если Edit вы не меняете то получается что он берёт одно и тоже число и увеличивает его на 1

[whatever]

procedure TForm1.Button1Click(Sender: TObject);
var
  K:integer;
begin

Counter.sch:=strtoint(Form1.Edit1.Text);
counter.Up;
Form1.Memo1.Lines.Add(inttostr(counter.Get));
k:=StrToInt(Form1.Edit1.Text)+1;
Form1.Edit1.Text:=IntToStr(k);
end;

P.S. Чета я медленный сегодня

[B13eR]

Так вообще класс, только 1 нюанс. Хочу, что бы в Edit(e) введенное значение не изменялось.
Убераю строку:

Form1.Edit1.Text:=IntToStr(k);

И возвращаюсь к проблемме, счетчик увеличивается только 1 раз.

[whatever]

можно так попробовать:

var
  Form1: TForm1; Counter: TCounter;
  k:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
//var
//  K:integer;
begin

Counter.sch:=strtoint(Form1.Edit1.Text)+k;
counter.Up;
Form1.Memo1.Lines.Add(inttostr(counter.Get));
inc(k);
//Form1.Edit1.Text:=IntToStr(k);
end;
               
procedure TForm1.FormCreate(Sender: TObject);
begin
counter:=TCounter.create;
end;
              
procedure TForm1.Button2Click(Sender: TObject);
begin
counter.destroy;
end;
initialization
K:=0;

end.

И еще для Edit1 описать событие OnChange:

procedure TForm1.sbros(Sender: TObject);
begin
  k:=0;
end;