Переполнение стека (Stack overflow)

[zotox]

//delete, уже помогли

[uberchel]

Вот тут:

settings.Create('Settings');  //так не надо !

//Надо так:
settings:= TInifile.Create(ExtractFileDir(ParamStr(0))+ '\Settings.ini');

Еще чисто бы переменные чуть переписал!

 
 settings     : TIniFile;
 NotLengthNint: Boolean;
 forcol, currentNint  : Integer;
 currentname, ColName  : String;

+++++ me )

[zotox]

Вот тут:

Спасибо, но теперь пишет

access violation at 0x7c90eddc: write of address 0x00030fd4

[uberchel]

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

Спасибо, но теперь пишет

access violation at 0x7c90eddc: write of address 0x00030fd4

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

Должно быть так:

procedure TForm1.FormCreate(Sender: TObject);
var
 settings     : TIniFile;
 NotLengthNint: Boolean;
 forcol, currentNint : Integer;
 currentname, ColName : String;
begin
 currentNint:=1;
 settings:= TInifile.Create(ExtractFileDir(ParamStr(0))+ '\Settings.ini');
 StringGrid1.ColCount:=settings.ReadInteger('Tables','ColTables',3);
 currentname:=settings.ReadString('Tables','NamesTables', 'Test1,Test2,Test3');
 for forcol:=0 to StringGrid1.ColCount do
  begin
    while currentname[currentNint]<>',' do
     begin
       ColName:=ColName+currentname[currentNint];
       if currentNint=length(currentname) then
        begin
          NotLengthNint:=false;
        end;
       currentNint:=currentNint+1;
     end;
    if NotLengthNint=false then break;
    StringGrid1.Cells[forcol,0]:=ColName;
  end;
end;

[zotox]

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

и где показывает красным?

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

Так впринципе разобрался сам как устранить такую ошибку! Чуть не внимательный я :-(

Спасибо за помощь!