Показать сообщение отдельно
  #5  
Старый 28.01.2011, 13:33
Doctor_Che Doctor_Che вне форума
Прохожий
 
Регистрация: 25.01.2011
Сообщения: 36
Репутация: 10
По умолчанию

Сделал так:
Код:
procedure TForm1.DelAllClick(Sender: TObject);
begin
  Form1.tbStd.Last;
  while not tbStd.Bof do begin
  Form1.tbStd.Delete;
  Form1.tbStd.Prior;
  end;
end;
Но не удаляет первую строку.
Ответить с цитированием