Динамический массив TSpeedButton

[SoftKoc]

Здравствуйте

Создаю динамический массив TSpeedButton:

Var
  SB: array of TSpeedButton;

Указываю Count :

 SetLength(SB, 10);

Создаю SpeedButton:

Procedure TForm1.CB;
Var
 I, X, Y: Integer;
Begin
  X:= Form1.Width div 2 - 290;
  Y:= Form1.Height div 2 - 180;
 For I:=0 to CountVOtveta -1 do
  Begin
   SB[I]:=TSpeedButton.Create(Self);
    SB[I].Parent:=Form1;
     SB[I].Width:=100;
      SB[I].Height:=80;
      SB[I].Left:=X;
     SB[I].Top:= Y;
    SB[I].Name:='SB' + IntToStr(I);
   SB[I].OnClick:=OnClickSB;
   X:=X + 120;
   IF X = Form1.Width div 2 - 290 + 600 Then
    Begin
     X:=Form1.Width div 2 - 290;
     Y:=Y + 120;
    End;
  End;
End;

Уничтожаю SpeedButton:

procedure TForm1.DB;
Var
 I: Integer;
begin
  For I:=0 to CountVOtveta -1 do
   Begin
    SB[I].Free;
    SB[I]:=NIL;
   End;
end;

Кликаю на кнопку:

Procedure TForm1.OnClickSB(Sender: TObject);
Begin
   DB;
   CB;
End;

А суть всей проблемы в том что мне нужно при каждом нажатии на кнопку
Уничтожать и создавать опять кнопки, все работает отлично но есть одно НО после нескольких уничтожений и создания кнопок вылетает ошибка :

QQQQQQQQQQQ.JPG
нажимаю "ОК" и получаю это:
qwwwwwwww.JPG

Как решить эту проблему, подскажите пожалуйста.

Заранее очень благодарен

[Dj_smart]

Как вариант уберите SB[i]:=nil;

[SoftKoc]

Сообщение от Dj_smart

Как вариант уберите SB[i]:=nil;

Это не имеет значения, убрал и все тоже самое

[Dj_smart]

Ну попробуйте не удалять их, а просто пересчитывать позиции, собственно для чего удаляете?

[Alter]

Лучше так, TObjectList сам очистит память:

unit Unit1;

interface

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

type TSpdBtnList = class(TObjectList)
 private
    function GetItems(Index: Integer): TSpeedButton;
    procedure SetItems(Index: Integer; const Value: TSpeedButton);

 public
  property Items[Index: Integer]:TSpeedButton read GetItems write SetItems; default;
 published

end;  

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure CB;
    procedure DB;
    Procedure OnClickSB(Sender: TObject);
    { Public declarations }
  end;

const
 CountVOtveta = 10;  

var
  Form1: TForm1;
  SpdBtnList :TSpdBtnList;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.CB;
var
  SB :TSpeedButton;
  I, X, Y :Integer;
begin // создание
  X:= Width div 2 - 290;
  Y:= Height div 2 - 180;
 For I:=0 to CountVOtveta -1 do
  Begin
   SB := TSpeedButton.Create(Self);
   SB.Parent:=Form1;
   SB.Width:=100;
   SB.Height:=80;
   SB.Left:=X;
   SB.Top:= Y;
   SB.Name:='SB' + IntToStr(I);
   SB.Caption := SB.Name;
   SB.OnClick := OnClickSB;
   X := X + 120;
   IF X = (Width div 2 - 290 + 600) Then
    Begin
     X:= Width div 2 - 290;
     Y:=Y + 120;
    End;
   SpdBtnList.Add(SB);
  End;
end;

procedure TForm1.DB;
begin // удаляем всё
 SpdBtnList.Clear;
end;

procedure TForm1.OnClickSB(Sender: TObject);
begin // k
 DB;
 CB;
end;

{ TSpdBtnList }

function TSpdBtnList.GetItems(Index: Integer): TSpeedButton;
begin
 Result := TSpeedButton(inherited GetItem(Index));
end;

procedure TSpdBtnList.SetItems(Index: Integer; const Value: TSpeedButton);
begin
 inherited SetItem(Index, Value);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 SpdBtnList.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CB;
 Button1.Enabled := False;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I :Integer;
begin
 if SpdBtnList.Count > 0 then
 begin
  Randomize;
  For I := SpdBtnList.Count-1 downto 0 do
  begin
   SpdBtnList.Items[I].Caption := Format('№%d', [Random(10)+1]);
  end;  
 end
  else
 ShowMessage('Список кнопок пуст!');  
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 SpdBtnList := TSpdBtnList.Create(True);
end;

end.

[SoftKoc]

По мимо этого всего у меня создано 5 динамических массивов, может ли это как-то влиять. Может просто память переполняется или что-то в этом роде?

Var
  Vopros: array of String;
  VOtveta: array of array of String;
  Otchet: array of array of Integer;
  SB: array of TSpeedButton;
  LB: array of TLabel;

[Пепел Феникса]

может заюзать TObjectList?

[DomiNick]

нужно при каждом нажатии на кнопку уничтожать и создавать опять кнопки

О, ужас..... Зачем? о__О


У меня всё приведённое в первом посте прекрасно работает...
Может что-то не то в OnClickSB (которой не показывалось)?

[Johnson]

TObjectList решает очень много проблемм при использовании динамических массивов из сложных обьектов... зачем изобретать велосипед, который может дать сбой, если есть готовое решение, которое очень функционально, стабильно и быстро?

[SoftKoc]

Сообщение от DomiNick

О, ужас..... Зачем? о__О


У меня всё приведённое в первом посте прекрасно работает...
Может что-то не то в OnClickSB (которой не показывалось)?

Может быть, вот ложу исходник. Помогите кто чем может.
>>>>>>ChoiceTest.rar<<<<<<
Там проблема скорее всего в одном из массивов

Два массива "OptionQuestion , Reply" - я создаю вот таким образом.

SetLength(Reply, 10);
SetLength(Reply[0], 5);
SetLength(Reply[1], 4);
SetLength(Reply[2], 2);
SetLength(Reply[3], 6);
SetLength(Reply[4], 7);

Только я это все делаю в цыкле.