[Дикарь]

Мне нужно захранить в файл во время закрытия программы количество строк в таблице а при запуске из файла это число извлечь и соответственно установить колчество строк таблицы.
Коды получились следующие:
сохранение в файл:

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
f:TStringList;
begin
 f := TStringlist.Create;
 f.Add(IntToStr(StringGrid1.RowCount));
 f.SaveToFile('razmer.raz');
 f.Free;
end;

загрузка из файла:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
 n:INTEGER;
f:tStringList;
begin
 f := TStringlist.Create;
 f.Add(IntToStr(StringGrid1.RowCount));
 if FileExists('razmer.raz') then begin
 f.LoadFromFile('razmer.raz');
 n:=StrToInt(f.Strings[1]);
 StringGrid1.RowCount:=n
 else
 StringGrid1.RowCount:=2;
 end;

Клмпилятор указывает ошибку в строке

Код:

 StringGrid1.RowCount:=n;

даже если вместо переменной поставить число.

Помогите разобраться в чем ошибка и как исправить.
Может кто лучше вариант решения найдет.

[Дикарь]

и еще вопрос.
как узнать координаты выделенной ячейки в СтрингГрид?

[The Shadow]

StringGrid.Selection - координаты выделенных ячеек.

[Дикарь]

Сообщение от The Shadow

StringGrid.Selection - координаты выделенных ячеек.

Что то я сглкпил.
как узнать тепреь строку в которой находится выделенная ячейка?

[The Shadow]

StringGrid.Selection.Left есть еще Top, Right, Bottom

[Дикарь]

Спосибо.
Правда сглупил.

[Дикарь]

Сообщение от The Shadow

StringGrid.Selection.Left есть еще Top, Right, Bottom

Только номер строки это не StringGrid.Selection.Left а StringGrid.Selection.Top

[Дикарь]

Ни кто не скажет как загрузить из файла необходимое количество строк и установить это количество?

[Дикарь]

Млин))
Товарищи программисты))
пожалуста помогите)))
Это моя первая более или менее серьезная программа)
Сделано все осталось только это(
Все уперлось в эту загрузку количетсва строк(((

[Дикарь]

Проблема решена.