траблы с цыклом repeat

[bulldog5293]

в одной из программ решил ипользовать цикл проверке пустых запись в listview

begin
chupa:=0;
j:=0;
count1:=count;
repeat
chupa:=chupa+1;
      if  (length(ListView1.Items[cw].SubItems.Strings[j]) = 0) then
     ListView1.Items[cw].SubItems.Delete(j);
z:=j-1;
       ListView1.Items[cw].SubItems.Delete(z);
       j:=j+1;
       until chupa=count1;
end;

цикл справляется со своей работай, но после его выполнения программа больше ничего не делает, а без цикла работает, в чём я ошибся?

[ArtGrek]

видимо условие никогда не настает, и он у вас после работы все еше крутица, не давая другим процессам работать
проверте что происходит в самом цикле и когда настает момент

until chupa=count1;

[Человек_Борща]

А чем плох For..to..do?

У ListView есть Items.count..

procedure TForm1.Button1Click(Sender: TObject);
var
  i,l1:Integer;
begin
  for i:=0 to Listview1.Items.Count -1 do
  begin
    l1:=Length(ListView1.Items[i].SubItems.Strings[i]);  //Check item caption length
  If (l1 = 0) then
  ListView1.Items[i].Delete
  else
  Break;
  end;
end;

[bulldog5293]

таким макарам нечё не убирает, человек борща спс, за пример с циклом for, но мне нада не только пустую колонку удалять, но и предыдущую

[ArtGrek]

begin
chupa:=0;
j:=0;
count1:=count;
repeat
chupa:=chupa+1;
      if  (length(ListView1.Items[cw].SubItems.Strings[j]) = 0) then
     ListView1.Items[cw].SubItems.Delete(j);
z:=j-1;
       ListView1.Items[cw].SubItems.Delete(z);
       j:=j+1;
       until chupa=count1;
  ShowMessage('OK');
end;

добавь строку в красном и скажи если появляеца сообшение со словом ок

[bulldog5293]

и не появилось и код дальше не продолжился

[ArtGrek]

значит ето chupa=count1; или еше не произошло, или не произоидет никогда
чему у тебя равен count;?

[bulldog5293]

count форсированная запись равна от 0 до ..., но в данный момент 5

[ArtGrek]

уверен???

begin
chupa:=0;
j:=0;
count1:=count;
repeat
  ShowMessage(IntToStr(count1));
chupa:=chupa+1;
      if  (length(ListView1.Items[cw].SubItems.Strings[j]) = 0) then
     ListView1.Items[cw].SubItems.Delete(j);
z:=j-1;
       ListView1.Items[cw].SubItems.Delete(z);
       j:=j+1;
       until chupa=count1;

end;

[bulldog5293]

уверен, скарее всего end где то не там стоит