Delphi и клик в делфи

@vassassin · Регистрация: 27.02.2013

Author24 — интернет-сервис помощи студентам

Такая ситуация:
Мне нужно, что бы по клику на лейбл менялся его caption
причём сколько раз кликну, столько раз что бы и менялся, т.е. на каждый клик по смене
я как то осуществил это с помощью массивов, но не до конца
помогите, а то я новичек
вот
описовый блок
var

Delphi

  Form1: TForm1;
 
   i: array [1..10] of string;
   l: integer;

и процедура клика по лейблу

Delphi

procedure TForm1.Label1Click(Sender: TObject);
 
 
begin
l:=1;
 
if l > 10 then
L:=1
 
i[1]:='текст1';
i[2]:='текст2';
i[3]:='текст3';
i[4]:=текст4';
i[5]:='текст5';
 
i[6]:='текст6';
i[7]:='текст7';
i[8]:='текст8';
i[9]:='текст9';
i[10]:='текст10';
 
 
label1.Caption:=i[l];
L:=l+1;
 
 
 
 
 
end;

19.03.2013, 00:13

Delphi

var
  buf : array[0..9] of String = ('текст1', 'текст2', 'текст3', 'текст4', 'текст5',
                                 'текст6', 'текст7', 'текст8', 'текст9', 'текст10');
 
  I : Integer;
 
procedure TForm1.Label1Click(Sender: TObject);
begin
  Label1.Caption := Buf[I];
  I := (I + 1) mod 10;
end;

@volvo · 19.03.2013, 00:43

Зачем это выносить в глобальную область видимости? Все прекрасно делается локально:

Delphi

procedure TForm1.Label1Click(Sender: TObject);
const
  // неизменные значения
  buf : array[0..9] of String = ('текст1', 'текст2', 'текст3', 'текст4', 'текст5',
                                 'текст6', 'текст7', 'текст8', 'текст9', 'текст10');
{$J+}
  // изменяемая статическая переменная, изначально инициализируется нулем,
  // а дальше будет сохранять значение между вызовами
  I : Integer = 0;
{$J-}
begin
  Label1.Caption := Buf[I];
  I := Succ(i) mod 10;
end;

	19.03.2013, 00:43