Вообщем хочу что бы в лабеле каптион изменялся, но выглядит он так:
Lavel1.Caption:=0/0
Мне надо что бы по клику на кнопку 0/0 стала 1/1
Но не получается дает ошибку
Цитата:
var
Form1: TForm1;
Cur, All:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Cur:=+1;
All:=+1;
Label1.Caption:=Cur+'/'+All;
end;
var
Form1: TForm1;
Cur, All:integer;
implementation
{$R *.dfm}
procedure TForm1.Create(Sender: TObject);
begin
Cur:=0;
All:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(Cur);
inc(All);
Label1.Caption:=IntToStr(Cur)+'/'+IntToStr(All);
end;
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.