Заполнение последней строки StringGrid нулями.

@AC13 · Регистрация: 13.09.2009

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

Дана таблица StringGrid (Delphi).
Количество строк неизвестно.
Как заполнить последнюю строку нулями?

@Kridan · 01.11.2010, 14:26

Delphi

1 2	for i:=0 to StringGrid1.ColCount-1 do StringGrig1.Cells[i,StringGrid1.RowCount-1]:='0';

@Sanprof · 01.11.2010, 14:30

можно попробовать так

Delphi

procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   if ARow = (Sender as TStringGrid).RowCount then
   begin
      FillRect(Rect);
      TextRect(Rect, Rect.Left+10, Rect.Top+5, '0');     
   end;
end;

@AC13 · 01.11.2010, 15:14 **[ТС]**

спасибо)

@AC13 7 / 7 / 0 Регистрация: 13.09.2009 Сообщений: 263
		1
	Заполнение последней строки StringGrid нулями. 01.11.2010, 14:12. Показов 2566. Ответов 3 Метки нет (Все метки) Дана таблица StringGrid (Delphi). Количество строк неизвестно. Как заполнить последнюю строку нулями? 0

@AC13 7 / 7 / 0 Регистрация: 13.09.2009 Сообщений: 263
	01.11.2010, 15:14 [ТС]	4
	спасибо) 0