Нумерация кругов

[Lifefine]

Всем привет! Как сделать чтобы после обрисовки круга был номер 1, еще раз нажал появился круг с номером 2. У меня получается, но номер круга одно и тоже(((

var a:array [0..N]of string;
   i:integer;
/////////////////////////////////
  if Button = mbLeft then
     begin
       for I := 0 to N do
         begin
          a[i]:=IntToStr(i+1);
          PaintBox1.Canvas.TextOut(x-45,y-20,a[i]);
          PaintBox1.Canvas.Ellipse(X-40, Y-15, X+10, Y+35);
         end;
      end;

[Аватар]

а если сделать:

var a:array [0..10]of string;

и согласно логике программы все равно будет виден прорисованный последний круг и номер соответственно

[Lifefine]

У меня N константа. Другой логики ни как не определю((, хотя в гугле искал не нашел нужное.
По всякому пробовал). Может исправить ошибку?

[ArtGrek]

поставь код в таимер

var
  Form1: TForm1;
  i:integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Timer2Timer(Sender: TObject);
begin
          inc(i);
          PaintBox1.Canvas.TextOut(45,20,IntToStr(i));
          PaintBox1.Canvas.Ellipse(40, 15, 10, 35);
          if i > 11 then Timer1.Enabled := False;
end;

end.

[Аватар]

Вот примерчик рисования на одном и том же месте от 1 до 11. Можно модифицировать для прорисовки каждый раз на другм месте

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button: TButton;
    PaintBox: TPaintBox;
    procedure ButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    private lNumber: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
begin
  PaintBox.Canvas.TextOut(45,20,IntToStr(lNumber+1)+'  ');
  PaintBox.Canvas.Ellipse(40,15,10,35);
  Inc(lNumber);
  if lNumber>10 then lNumber:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lNumber:=0;
end;

end.

[Lifefine]

всем большое спасибо что помогли мне!!!
Я решил другим способом) долго думая)
Вот код

var a:array [0..1000]of string;
begin
case mode of
  1:begin
     if Button = mbLeft then
     begin
       Inc(i);
       PaintBox1.Canvas.Ellipse(X-40, Y-15, X+10, Y+35);
       a[i]:=IntToStr(i);
       PaintBox1.Canvas.TextOut(x-45,y-20,a[i]);
     end;
    end;
end;
 end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 i:=0;
end;

[Lifefine]

пожалуйста подскажите, а как соединить линиями два круга? С помощью кода:

PaintBox1.Canvas.LineTo(x+30,y+40);

P.S. У меня рисуется линия но в другом месте((

[Аватар]

У канвы есть метод MoveTo (если не ошибаюсь), устанавливающий виртуальный карандашик в нужную позицию, а затем с помощью метода LineTo осуществляется прорисовка линии в позицию заданную его параметрами

[ArtGrek]

зачем вам Case?
и зачем массив строк, когда все его значения ранвы i, два раза одно и тоже

var
  Form1: TForm1;
  iR, iL: integer;

implementation

{$R *.dfm}


procedure TForm1.FormCreat(Sender: TObject);
begin
  iR:=0;
  iL:=0;
end;

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    PaintBox1.Canvas.Ellipse(X-40, Y-15, X+10, Y+35);
    PaintBox1.Canvas.TextOut(x-45,y-20,IntToStr(iL)); // первыии елемент
    Inc(iL);
    PaintBox1.Canvas.MoveTo(x,y); // координаты начала линии
  end;
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    PaintBox1.Canvas.LineTo(x,y);  // прорисовка линии, в координаты
    PaintBox1.Canvas.Rectangle(X-40, Y-15, X+10, Y+35); // если заменит на прорисовку стрелки то будет то что вам нужно
    PaintBox1.Canvas.TextOut(x-45,y-20,IntToStr(iR));       
    Inc(iR);
  end;
end;

end.

[Lifefine]

Аватар, спасибо тебе за подсказку!

Для ArtGrek, спасибо, за помощь! Дело в том что case мне нужен для выбора кнопок "Режим графа" и "Режим соединения", допустим при выборе "Режим графа" у меня рисуется круг, а при выборе "Режим соединения" соединяю 2 круга линиями. А поводу массива - спасибо, не додумался, щас исправлю у себя)
Чем разница между:

procedure TForm1.FormCreat(Sender: TObject);
begin
  iR:=0;
  iL:=0;
end;

и

procedure TForm1.FormActivate(Sender: TObject);
begin
  iR:=0;
  iL:=0;
end;

?