Странная ошибка

[k1r1ch]

При компиляции выскакивает ошибка:

Вот код:

uses IniFiles;

var
  Ini: TIniFile;
  StrGrid: TStrings;

procedure TMainForm.FormCreate(Sender: TObject);
label Here;
var i: integer; T: String;
begin
  Ini.Create('Games');
  Ini.ReadSection('General', StrGrid);
  If StrGrid.Count = 0 then
    begin
      GameList.Cells[0,1] := 'Нет данных';
      goto Here;
    end;
  if StrGrid.Count = 1 then
    begin
      GameList.Cells[0,1] :=
      Ini.ReadString('General', IntToStr(i), 'Нет данных');
      goto Here;
    end;
  for i := 1 to StrGrid.Count do
    begin
      T := Ini.ReadString('General', IntToStr(i), 'Нет данных');
      GameList.Cells[0,i] := T;
    end;
  Here:
end;

Может я что-то неправильно пишу? На форме таблица TStringGrid. Delphi 2009 Update 1.

[Stilet]

Ini.Create('Games');

Надо: Ini:=TIniFile.Create('Games');

Ну и в коце желательно INI.Free вызывать.

[Showy]

Она не странная, просто нужно правильно создавать объекты

Ini := Create('Games');

From Stilet: Sorry, но ты ошибаешся.

Тьфу! Сам забыл дописать .

Ini := TiniFile.Create('Games');

Хотя опоздал уже

[k1r1ch]

В первом случае все та же ошибка, а во втором просто не компилирует с ошибкой:
[DCC Error] Unit1.pas(39): E2010 Incompatible types: 'TComponent' and 'string'

[Stilet]

В первом случае все та же ошибка

Ну чего нам догадываться на какой она строке пока ты не соизволишь сказать?

for i := 1 to StrGrid.Count do

Здесь еще падать может, нужно:

  for i := 1 to StrGrid.Count-1 do

И к тому же вместо абстрактного TStrings, с которым ты ничего не сделашь нужно взять TStringList
И создать его :

StrGrid:=TStringList.Create;

[k1r1ch]

2Stilet: УРА! Твое последнее замечание помогло! TStringList работает!

[Serge_Bliznykov]

нет, нужно от нуля:

for i := 0 to StrGrid.Count-1 do

[Stilet]

Serge_Bliznykov

Я знаю, но тут хотя-бы текущие ошибки автору выправить, потому и поправлял его только там где AV вилезти может.

[k1r1ch]

2Serge_Bliznykov: Хм... У меня и так работает.
Может кто поможет и со 2ой формой? Там такая же ошибка, только адрес 0040556А. Код:

uses IniFiles;

type
    NameEdit: TLabeledEdit;
    GenreEdit: TLabeledEdit;
    DevEdit: TLabeledEdit;
    PubEdit: TLabeledEdit;
    YearEdit: TLabeledEdit;
    Presets: TComboBox;
    PresetsLabel: TLabel;
    Save: TButton;
    Cancel: TButton;

var
  NewForm: TNewForm;
  Ini: TIniFile;
  StrGrid: TStrings;
  Num : Integer;

procedure TNewForm.SaveClick(Sender: TObject);
begin
  StrGrid := TStringList.Create;
  Ini.Create('Games');
  Ini.ReadSection('General', StrGrid);
  Num := StrGrid.Count + 1;
  Ini.WriteString('General', IntToStr(Num), NameEdit.Text);
  Ini.WriteString(NameEdit.Text, 'Genre', GenreEdit.Text);
  Ini.WriteString(NameEdit.Text, 'Dev', DevEdit.Text);
  Ini.WriteString(NameEdit.Text, 'Pub', PubEdit.Text);
  Ini.WriteString(NameEdit.Text, 'Year', YearEdit.Text);
  Ini.Free;
end;

[vovk]

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

  Ini.Create('Games');

тоже самое
читай выше про TIniFile; пост №2