[Latex]

Здравствуйте добрые люди! Не откажите в любезности понять как исправить ошибку!
У меня Delphi 7
Прилагаю код процедуры:

Код:

procedure TForm4.FormCreate(Sender: TObject);
var
IndexProg: integer;
TSet: TStringList;
begin
  TSet.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Setting\User.set');
  for IndexProg := 0 to TSet.Count-1 do begin
    ShowMessage(inttostr(TSet.Count)); 
    StrokaDannih := TSet.Strings[IndexProg]; //вот сдесь выпадает ошибка (
     
    //операция над строкой
  end;
end;

Admin: Пользуемся тегами!

Исключение класса Elisterror с собщением list index out of bounds (-1)

Суть ошибки понятна! поумолчанию индекс равин -1, но я ведь в TSet загружаю строки из файла. и они туда я вно загружаются. обращение к строке идет жестко... в чем проблема? подскажите пожалуйста!!!

p.s. если начать цикл с 1 а не с 0 то все работает (естественно кроме первой строки).

[lmikle]

А кто объект то будет создавать?
Вообще, странно, что он выдает это исключение... должен быть АВ.

[Latex]

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

А кто объект то будет создавать?
Вообще, странно, что он выдает это исключение... должен быть АВ.

извеняюсь за не полны код!

TSet := TStringList.Create;

я делаю сразу после begin