Ошибка при работе с массивом кнопок Delphi

[Xaker_Two]

Всем привет есть (пере-)создаваемый массив кнопок и такой вот код

procedure TForm1.UndoVBClick(Sender: TObject);
var
SText, VR, ID, SName: String;
i, j: Integer;
begin
SName:=TComponent(Sender).Name;// не уверен в правильности использования
j:=StrToInt(Copy(SName, pos('AI', SName)+2, Length(SName)));
for i:=0 to Length(VoteUsersB)-1 do VoteUsersB[i].Free;

ID:=Copy(VoteUsers[j], 1, pos(':', VoteUsers[j])-1);
if pos('"Par1"', VoteUsers[j])<>0 then VR:='-'
else if pos('"Par2"', VoteUsers[j])<>0 then VR:='+';
SText:='#com1#com2#com3' + VR + '|' + ID;

RegWork(ID, VarToStr(j), 4);
sleep(5);
Synch.Socket.SendText(SText);
end;

При его исполнении возникает ошибка(при том иногда двух видов и всегда после завершения процедуры (проверено F7)) см. скрины. Но при том программа продолжает работу выполняя все функции исправно!!! Иногда при "холодном старте"(т.е. когда прогрмма только запущена и кнопки уже существуют, а существуют они не всегда а только при определенных условиях) эта ошибка не возникает.
Так вот как её решить?!

[phomm]

RegWork(ID, IntToStr(j), 4);

Может ?
Для всего остального очень мало информации.
Чисто интуитивно

Synch.Socket.SendText(SText);

Может являться причиной ошибки, если Вы неправильно пытаетесь послать данные, советую закомментировать эту строку и погонять.

[Xaker_Two]

да нет думаю не в этом ошибка...
как всегда все доходит в одном волшебном месте
ошибка скорей всего из-за

for i:=0 to Length(VoteUsersB)-1 do VoteUsersB[i].Free;

(допустим кнопок 5(0..4))смотрим удаляем первый(0) элемент остается 4(0..3) удаляем второй элемент(1) остается 3(0..2) удаляем третий элемент(2) остается 2(0..1) удаляем 4(3) элемент и тут на нах(подругому не выразиться) его уже нет! это свойство for to do запоминать максимум как константу. Поэтому либо

while Length(VoteUsersB)>0 do VoteUsersB[0].Free;

либо for downto do
но за мнение спасибо(до этого все было через ComboBox и работало а я просто "массивный" элемент заменил на массив)

#11:13
то что вы посоветовали ничего не изменило дело не в нем было!

#11:15
и да я понял в чем прикол помимо for to do - я пытаюсь удалить элемент который в текущий момент используется!

[Аватар]

Free ни как не влияет на размерность массива VoteUsersB
Правильней было бы

for i:=Low(VoteUsersB) to High(VoteUsersB) do VoteUsersB[i].Free;

Но если индекс массива с нуля, то и следующее тоже норм

for i:=0 to Length(VoteUsersB)-1 do VoteUsersB[i].Free;

Другое дело, что в массиве может есть не созданные кнопки. Писать в лог подробненько и в случае ошибки заглянуть в него, думаю много прояснится

[Serge_Bliznykov]

Сообщение от Аватар

Free ни как не влияет на размерность массива VoteUsersB

Категорически согласен!!

[i].Free очищает объект (кнопку, судя по названию темы), но элемент в массиве остаётся, он никуда не девается! Просто он будет хранить указатель на несуществующий объект.
Я бы вообще вот так очищал:

  for i:=Low(VoteUsersB) to High(VoteUsersB) do FreeAndNil(VoteUsersB[i]);

кстати, то, что Free не влияет на размерность массива приведет к тому, что в случае кода:

while Length(VoteUsersB)>0 do VoteUsersB[0].Free;

получите бесконечный цикл!

[Xaker_Two]

Следующий прикол: Теперь использую код

for i:=Length(VoteUsersB)-1 downto 0 do FreeAndNil(VoteUsersB[i]);

непосредственно перед создание их поновой так он мне теперь такую бяку выдает при попытке пересоздать кнопки и прибавить к ним ещё одну
Ну и как это понимать почему имя занято если я только что уничтожил весь массив кнопок(или нет??!!)

[Аватар]

А зачем вообще играться с именами динамически создаваемых компонент? Тем более, что из имени и нужен какой-то номер. В tag при создании пишите его и используйте при необходимости. И лог с подробной фиксацией всего

[Xaker_Two]

при помощи

SName:=TComponent(Sender).Name;

этого я никак не вытащу tag который будет хранить индекс этой кнопки в массиве
поэтому и пихаю в Name
Хотя если вы подскажите способ из Sender вытащить какую либо юзабительную инфу о том кто вызвал кнопку я буду рад это использовать

#11:40
все раздуплился с тормозов я немного тупанул и писал вот как

SetLength(VoteUsersB, VoteUsers.Count); //где VoteUsers(TStringList) меняется каждый раз при вызове функции где он прописан!

for j:=Length(VoteUsersB)-1 downto 0 do FreeAndNil(VoteUsersB[j]); //ну а здесь я пытаюсь уже массив нового размера удалить в надежде на то что он в старом состоянии

for i:=0 to VoteUsers.Count-1 do...

а надо было писать так

for j:=Length(VoteUsersB)-1 downto 0 do FreeAndNil(VoteUsersB[j]);

SetLength(VoteUsersB, VoteUsers.Count);
for i:=0 to VoteUsers.Count-1 do...

ваш КЭП

[Аватар]

TComponent(Sender).Tag

[Xaker_Two]

в 7-рке такого свойства нет
а все понял от типа зависит которому присваиваем(туплю как обычно)
Переделал и избавился от одной лишней переменной и лишнего действа спс