Таблица Stringgrid

[Nightway]

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

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

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;

[doktor255]

for r:=0 to 100 do
  for d:=1 to 100 do
  strngrd1.Cols [r][d]:=strngrd1.Cols[r][d - 1];

Может не верно, написал на обум.

[Nightway]

Сообщение от doktor255

Может не верно, написал на обум.

Это дублирует 1ую строку во все остальные

[Аватар]

Не for ... to а for ... downto

[DIONISKA]

Делал когда-то так, чтобы облегчить себе жизнь:

type
TmyStringGrid=class(TStringGrid);
...
strngrd1.RowCount:=strngrd1.RowCount+1; 
with TmyStringGrid(strngrd1) do begin
RowMoved(strngrd1.RowCount-1,0);

[Stilet]

DIONISKA

Это сдвинет все строки. А автору судя по скрину шапку нужно оставить на месте.
Я бы предложил такой вариант:

with StringGrid do
 for i:=1 to ColCount-1 do Cols[i].insert(1,'0.0');

P.S. Ну или так:

var s:TStringList;
begin
 s:=TStringList.Create;
  with StringGrid1 do
   for i:=1 to ColCount-1 do begin
     s.Text:=Cols[i].Text;
     s.Delete(s.Count-1);
     s.Insert(1,'0.0');
     Cols[i].Text:=s.Text;
   end;
  s.Free;
end;

А то Лазарус ругается на первый вариант.

[Nightway]

Сообщение от Stilet

with StringGrid do
 for i:=1 to ColCount-1 do Cols[i].insert(1,'0.0');

Такие дела: db70937011.jpg

[Stilet]

Такие дела:

См. выше мой пост. Я дописал.

[Аватар]

  StringGrid1.RowCount:=StringGrid1.RowCount+1;
  for i:=StringGrid1.RowCount-1 downto 2 do
    for j:=1 to StringGrid1.ColCount-1 do StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i-1];
  for j:=1 to StringGrid1.ColCount-1 do StringGrid1.Cells[j,1]:='';

[Nightway]

Сообщение от Stilet

См. выше мой пост. Я дописал.

спасибо помогло))

p.s

а как можно кнопкой "перезагрузить" программу?
form1.close;
form1.show;
не помогло.