StringGrid перезаписываются строки

[qpuTuJlb]

Есть StringGrid, после того как открыть в него то что я сохранил и начать добавлять еще строки с информацией, то старые стираются. Как сделать чтобы они добавлялись дальше а не стирали прежние строки?

[Stilet]

и начать добавлять еще строки с информацией

Как начал?

[qpuTuJlb]

var
  Form1: TForm1;
  Row:integer=0;
begin
inc(Row);
if Row=StringGrid1.RowCount then
StringGrid1.Cells[0,Row]:=Edit1.Text;

[kta87]

With StringGrid1 do
  begin
    RowCount:= RowCount + 1;
    Cells[0,RowCount - 1]:= Edit1.Text;
  end;

[qpuTuJlb]

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

With StringGrid1 do
  begin
    RowCount:= RowCount + 1;
    Cells[0,RowCount - 1]:= Edit1.Text;
  end;

Работает, но фиксированная строка сдвигается вниз. Как сделать чтобы она стояла на месте?

[Stilet]

Фиксированная строка сдвигается???
Как такое может быть?

[kta87]

Покажите свой код? Мой пример ни чего не сдвигает - добавляет строку, записывает в последнюю содержимое Edit1

[qpuTuJlb]

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

Фиксированная строка сдвигается???
Как такое может быть?

Не так выразился. Двигается вниз текст в фиксированных строках

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

Покажите свой код? Мой пример ни чего не сдвигает - добавляет строку, записывает в последнюю содержимое Edit1

With StringGrid1 do
  begin
    RowCount:= RowCount + 1;
    Cells[0,RowCount - 1]:= Edit1.Text;
    Cells[1,RowCount - 1]:= Edit2.Text;
    Cells[2,RowCount - 1]:= Edit3.Text;
    Cells[3,RowCount - 1]:= Edit4.Text;
  end;

[Stilet]

Двигается вниз текст в фиксированных строках

Все равно пример такого делать не должен. Может у тебя что-то еще работает?

[qpuTuJlb]

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

Все равно пример такого делать не должен. Может у тебя что-то еще работает?

Да, сейчас убрал сортировку и все нормально. спасибо