Работа с динамически созданым StringGrid

[amintan]

Ситуация такая: программа при запуске проверяет наличие файла INI с параметрами StringGrid, если файла нет - открывает Форму 2, где задаются параметры создаваемой таблицы, вплоть до вариантов заголовков фикс. строк и столбцов. При выходе программа автоматически сохраняет таблицу в файл, который и ищет при запуске. Сделал. Всё работает. Только почему-то Форма 2 появляется всегда, независимо от того, загружена таблица из файла или нет. Уже голову сломал, не могу найти ошибку. Помогите пожалуста новичку. Вот код процедуры проверки наличия файла.

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileName:= 'mySGrid.ini';
  if FileExists(ExtractFilePath(Application.ExeName)+FileName) then
  begin
    Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+FileName);
    OpenIniSGrid;//процедура восстановления таблицы из файла
    Exit;
  end else
    begin
      Memo1.Lines.Add('Файл не найден');
      Timer1.Enabled:=true;//запускает Форму 2 для создания таблицы
    end;
end;

А это сама процедура восстановления таблицы:

procedure TForm1.OpenIniSGrid;
var
 i,j,k,l,n,m,w,h:integer;
begin
   try
    k:=0;
    l:=0;
    Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'mySGrid.ini');
    n:=Ini.ReadInteger('TStringGrid','RowCount',0);
    m:=Ini.ReadInteger('TStringGrid','ColCount',0);
    w:=Ini.ReadInteger('TStringGrid','Width',0);
    h:=Ini.ReadInteger('TStringGrid','Height',0);
    mySGrid:= TStringGrid.Create(Form1);
    mySGrid.RowCount:=n;
    mySGrid.ColCount:=m;
    mySGrid.Width:=w;
    mySGrid.Height:=h;
    mySGrid.Parent:= Form1;
    mySGrid.Left:=20;
    mySGrid.Top:=50;
    //свойства таблицы:
    mySGrid.Options:=[goEditing, goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine,
    goDrawFocusSelected,goColSizing,goThumbTracking];
    //восстанвление таблицы по сохраненным параметрам
    for i:=0 to n-1 do
     begin
      for j:=0 to m-1 do
       begin
        mySGrid.Cells[k,l]:=Ini.ReadString('TStringGrid','Item'+IntToStr(i)+IntToStr(j),'');
        inc(k);
       end;
       k:=0;
       inc(l);
     end;
   except
    on e:Exception do
   end;
end;

P.S.: саму процедуру восстановления таблицы нашел в интернете, поэтому не доконца разобрался в ней. Может кто-нибудь подскажет, что означают переменные k:=0 и l:=0?

[Пепел Феникса]

а у вас таймер по дефолту отключен?

[northener]

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

что означают переменные k:=0 и l:=0?

Они явно лишние. Достаточно изменить запись в ячейки грида на:

mySGrid.Cells[j,i]:=Ini.ReadString('TStringGrid','Item'+IntToStr(i)+IntToStr(j),'');

и их можно выкинуть.

[northener]

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

Только почему-то Форма 2 появляется всегда, независимо от того, загружена таблица из файла или нет.

Форма 2 случайно не находится ли в списке автосоздаваемых?

[Slym]

зачем столько переменных?
за такой try к стенке!

procedure TForm1.OpenIniSGrid;
const SectionName='TStringGrid';
var
  Ini:TIniFile;
  mySGrid: TStringGrid;
  i,j:integer;
begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'mySGrid.ini');
  try
    mySGrid:= TStringGrid.Create(self);
    try
      mySGrid.RowCount:=Ini.ReadInteger(SectionName,'RowCount',0);;
      mySGrid.ColCount:=Ini.ReadInteger(SectionName,'ColCount',0);
      mySGrid.Width:=Ini.ReadInteger(SectionName,'Width',0);
      mySGrid.Height:=Ini.ReadInteger(SectionName,'Height',0);
      mySGrid.Parent:= self;
      mySGrid.Left:=20;
      mySGrid.Top:=50;
      mySGrid.Options:=[goEditing, goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected,goColSizing,goThumbTracking];
      for i:=0 to mySGrid.RowCount-1 do
        for j:=0 to mySGrid.ColCount-1 do
          mySGrid.Cells[j,i]:=Ini.ReadString(SectionName,'Item'+IntToStr(i)+IntToStr(j),'');
    except
      mySGrid.Free;
      raise;
    end;
  finally
    Ini.Free;
  end;
end;

[amintan]

Сообщение от Пепел Феникса

а у вас таймер по дефолту отключен?

да, таймер отключен

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

Форма 2 случайно не находится ли в списке автосоздаваемых?

Форма создана вручную при проектировании программы и вызывается через Form2.Show; Проверил - в списке главных тоже не стоит

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

Они явно лишние. Достаточно изменить запись в ячейки грида на:

mySGrid.Cells[j,i]:=Ini.ReadString('TStringGrid','Item'+IntToStr(i)+IntToStr(j),'');

и их можно выкинуть.

спасибо, так и сделаю

[amintan]

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

зачем столько переменных?
за такой try к стенке!

Спасибо, действительно значительно изящнее