КАк Как удалить все из stringgrid после добавления!

@dim46591 · Регистрация: 14.10.2013

Студворк — интернет-сервис помощи студентам

Нужен совет!!!!!!!!!
Как очистить StringGrid после добавления в бД
При разовом все ОК
Как только запускаю цикл так и все Пипец где-то остается что-то в "стринге" и алгоритм обработки сбивается
Вот что я навоял

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
for i:=0 to StringGrid1.RowCount-1 do
     begin
     MyDelete(StringGrid1);
     MyDelete(StringGrid2);
     StringGrid1.Rows[i].Clear;
     StringGrid2.Rows[i].Clear;
 
     end;
end;
 
procedure TForm1.MyDelete(StringGrid: TStringGrid);
begin
TFakeGrid(StringGrid).DeleteRow(StringGrid.row);
end;

Что делать кто-нибудь подскажет!!!

Скандербег · 19.10.2013, 22:09

Delphi
1
2
3
4
5
6
7
var
  C, R : Integer;
begin
  for C := 0 to StringGrid1.ColCount - 1 do
    for R := 0 to StringGrid1.RowCount - 1 do
        StringGrid.Cells[C, R] := '';
...

@FIL · 19.10.2013, 22:48

Delphi
1
2
3
4
5
var
  i: Integer;
begin
  for i := 0 to StringGrid1.RowCount - 1 do
    StringGrid1.Rows[i].Text := '';

или

Delphi
1
    StringGrid1.Rows[i].Clear;

@dim46591 · 20.10.2013, 13:32 **[ТС]**

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

@dim46591 · 20.10.2013, 14:10 **[ТС]**

как работает
1 поиск
2. выбираем первую запись
3 Button1
и все
ДЛя сравнения оставляем один файл за 06,10,2013 и запускаем тоже самое, т. е по отдельности все работает хорошо.
А цикл сбивает алгоритм обработки.
Почти уверен что проблема со StringGrid.

Добавлено через 32 минуты
Все дошло проблема в массиве!

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@dim46591 0 / 0 / 0 Регистрация: 14.10.2013 Сообщений: 9
	20.10.2013, 14:10 [ТС]
	как работает 1 поиск 2. выбираем первую запись 3 Button1 и все ДЛя сравнения оставляем один файл за 06,10,2013 и запускаем тоже самое, т. е по отдельности все работает хорошо. А цикл сбивает алгоритм обработки. Почти уверен что проблема со StringGrid. Добавлено через 32 минуты Все дошло проблема в массиве! 0