Объясните ошибку

[LeoN]

Они прописаны в Var формы, т.е. глобальные. поместив запись в {} я оставил только:

ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Data\config.ini');
ini.Free;

Результат тот же.

[mihali4]

Что - и при этих двух строчках выдается та же ошибка, что приведена на рисунке?
Я скопировал к себе, запустил - все в норме.
Добавил запись параметра - выдалась ошибка о невозможности записи. Это понятно - нет такого каталога - Data.
Создал каталог - опять все в норме...
Как ни пытался получить именно такую ошибку - все тщетно... Удача меня покинула

[LeoN]

Как не удивительно, но выдает тоже самое. Ничего не показывает только в том случае, когда все что связанно с ини убираешь.

[Stilet]

ТОгда ошибка где то в другой стороне кода. Показывай весь код.

[mihali4]

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

ТОгда ошибка где то в другой стороне кода. Показывай весь код.

Да уж...
Похоже, еще один любитель использовать в качестве имен объектов ключевые слова. А там что угодно может произойти...

[LeoN]

Больше кода нет. разве FN & FT ключевые слова?Я больше кода не писал - начал только ини прописывать.

[mihali4]

Больше кода нет

Код всего модуля - в студию!

[LeoN]

Вот весь код:

unit Main;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, sRichEdit, sAlphaListBox, StdCtrls, sMemo, ExtCtrls,
  sSplitter, sPanel, Menus, inifiles, ScktComp, Buttons, sSpeedButton;
type
  TMForm = class(TForm)
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    PTop: TsPanel;
    sSplitter1: TsSplitter;
    Mess: TsMemo;
    OnLine: TsListBox;
    sSplitter2: TsSplitter;
    Chat: TsRichEdit;
    PTool: TsPanel;
    CS: TClientSocket;
    sSpeedButton1: TsSpeedButton;
    sSpeedButton2: TsSpeedButton;
    sSpeedButton3: TsSpeedButton;
    sSpeedButton4: TsSpeedButton;
    sSpeedButton5: TsSpeedButton;
    sSpeedButton6: TsSpeedButton;
    sSpeedButton7: TsSpeedButton;
    sSpeedButton8: TsSpeedButton;
    sSpeedButton9: TsSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  MForm: TMForm;
  ini: TIniFile;
  FN, FT: TFont;

implementation

{$R *.dfm}

procedure TMForm.FormCreate(Sender: TObject);
begin
 ini.Create(ExtractFilePath(Application.ExeName)+'Data\config.ini');
{ MForm.Left:=ini.ReadInteger('MForm','Left',100);
 MForm.Top:=ini.ReadInteger('MForm','Top',100);
 MForm.Width:=ini.ReadInteger('MForm','Width',100);
 MForm.Height:=ini.ReadInteger('MForm','Height',100);
 MForm.ScreenSnap:=ini.ReadBool('MForm','ScreenSnap',True);
 FN.Color:=ini.ReadInteger('FN','Color',00000000);
 FN.Name:=ini.ReadString('FN','Name','Arial');
 FN.Size:=ini.ReadInteger('FN','Size',10);
 FT.Color:=ini.ReadInteger('FT','Color',00000000);
 FT.Name:=ini.ReadString('FT','Name','Arial');
 FT.Size:=ini.ReadInteger('FT','Size',10);
 }ini.Free;
end;

procedure TMForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
{ ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Data\config.ini');
 ini.WriteInteger('MForm','Left',MForm.Left);
 ini.WriteInteger('MForm','Top',MForm.Top);
 ini.WriteInteger('MForm','Width',MForm.Width);
 ini.WriteInteger('MForm','Height',MForm.Height);
 ini.WriteBool('MForm','ScreenSnap',MForm.ScreenSnap);
 ini.WriteInteger('FN','Color',FN.Color);
 ini.WriteString('FN','Name',FN.Name);
 ini.WriteInteger('FN','Size',FN.Size);
 ini.WriteInteger('FT','Color',FT.Color);
 ini.WriteString('FT','Name',FT.Name);
 ini.WriteInteger('FT','Size',FT.Size);
 ini.Free;}
end;

end.

[mihali4]

Ну теперь все стало на свои места !
Вы нам что показывали? А вот что:

ini:=TIniFile.Create(ExtractFilePat h(Application.ExeName)+'Data\config .ini');

И это - правильный вариант.
А на самом деле вы что делаете? Так вот что:

ini.Create(ExtractFilePath(Applicat ion.ExeName)+'Data\config.ini');

Теперь ущучили ? Есть разница ???

[LeoN]

Выяснил полностью, что ошибка возникает при записи/чтения с переменными FN & FT