StringGrid, сдвинуть все значения на одну строку вниз

@Nightway · Регистрация: 24.02.2012

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

Как можно сдвинуть все значения на 1 строку вниз?

StringGrid, сдвинуть все значения на одну строку вниз

вот код заполнения таблицы

Delphi

begin
  with strngrd1 do
begin
 
   rowcount:=Trunc((max-min)/sh2)+1;
  colcount:=6;
  for i:=1 to 100 do
  for j:=1 to 100 do
  cells [j,i]:=floattostrf(ss[i,j],fffixed,5,4);
  strngrd1.rowcount := strngrd1.rowcount + 1;
  for i := 1 to strngrd1.colcount - 1 Do;
  strngrd1.Cols[1][0]:='Ðàéîí ¹1';
  strngrd1.Cols[2][0]:='Ðàéîí ¹2';
  strngrd1.Cols[3][0]:='Ðàéîí ¹3';
  strngrd1.Cols[4][0]:='Ðàéîí ¹4';
  strngrd1.Cols[5][0]:='Ðàéîí ¹5';
  strngrd1.Cols[0][0]:='p(Øàã)\';
  for r:=0 to 100 do
  for d:=1 to 100 do
  strngrd1.Cols [0][r+d]:=strngrd2.Cols[0][r];
  end;

@sergey4iki · 15.05.2014, 17:21

Nightway, вначале создай просто пустое поле
strngrd1.rowcount := strngrd1.rowcount + 1;

@sergey4iki 29 / 29 / 19 Регистрация: 18.11.2012 Сообщений: 338 Записей в блоге: 1
	15.05.2014, 17:21	2
	Nightway, вначале создай просто пустое поле strngrd1.rowcount := strngrd1.rowcount + 1; 0

Опции темы