числа от 500 до 999

[Satorin]

нужен код который будет набирать число от 500 до 999 ....тоестьк ак жмём кнопку выводит 500 жмём еще 501...и так до 999...

[Deight]

Caption:=inttostr(i);
if i>998 then i:=500 else inc(i);

объявляеш глобальную i в create ей присваиваеш 500

[DelDev]

Можно так еще:

у кнопки есть свойство Tag - установить его в 500, а для кнопки прописать код:

procedure TForm3.Button1Click(Sender: TObject);
begin
  with (Sender as TButton) do
  begin
    if Tag < 999 then
      Tag := Tag + 1;
    Caption := IntToStr(Tag);
  end;
end;

[Levhik]

у меня вопрос:

=================================== ======================
чем отличается этот код:
=================================== ======================
procedure TForm3.Button1Click(Sender: TObject);
begin
with (Sender as TButton) do
begin
if Tag < 999 then
Tag := Tag + 1;
Caption := IntToStr(Tag);
end;
end;

=================================== ======================
от этого:
=================================== ======================
procedure TForm3.Button1Click(Sender: TObject);
begin
with Button1 do
begin
if Tag < 999 then
Tag := Tag + 1;
Caption := IntToStr(Tag);
end;
end;

[Jeni]

Теоретически, код with (Sender as TButton) do является более универсальным, чем with Button1 do, потому что позволяет использовать в одном обработчике несколько кнопок, а не одну конкретную.

P.S. Единственное, что можно добавить, если заранее известно, что Sender это TButton, то можно писать попроще: with TButton(Sender) do

[dadaye]

ну, вообщем-то ничем код не отличается. развечто, если несколько кнопок, как говорил Jeni

[s.Creator]

Лучше перед

with (Sender as TButton) do

делать проверку

if Sender is TButton then

Иначе необходимо следить чтобы событие вызывалось только для кнопок.
В противном случе

procedure TForm3.Form3Create(Sender: TObject);
begin
//.............
Button1Click(Self); // или Button1Click(nil);
//..............
end;

Будет ошибка

[Satorin]

Спасибо!..Сделал...