На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Обязательно указание:
1) типа базы данных (Paradox/Oracle/Interbase и т.п.)
2) способа доступа к базе данных (ODBC/ADO/DAO/BDE и т.п.)
Например: Paradox/BDE, MS Access/ADO

Наиболее часто задаваемые вопросы:
Базы даных для начинающих. Первые шаги. Понятие о BDE.
Переход на клиент-сервер и начала ADO
Приёмы работы с BLOB (OLE/Memo) полями
Запросы и параметры или как избавиться от многих проблем. Проблемы с датами в запросах.
Нужели мне нужно устанавливать BDE? (или почему не работает программа на другом компьютере)
Модераторы: Bas, Rouse_
  
> Ошибка List index out of bounds (8) , Помогите найти причину вілета пожалуйста
    Здравствуйте уважаемые форумчане.
    Подскажите где я неправ-

    при использовании кода вылетает Ошибка List index out of bounds (8) (ну соответственно цифра меняется каждый раз )


    var
    i:integer;
    begin
    i:=strtoint(DBText2.Caption); //определяю номер необходимой мне колонки
    sLabel2.Caption :=DBGrid8.DataSource.DataSet.Fields .Fields[i].Value; //получаю значение ячейки
    end;

    заранее благодаствую.
      Цитата creator @
      где я неправ

      значит в DBGrid8.DataSource.DataSet.Fields.Fields нету элемента с индексом i
        Цитата Relaxander @

        тоже самое происходит если вручную присвоить значение строке
          Поставь бреикпойнт на нужной строке и посмотри свойства объектов.
            Цитата creator @
            присвоить значение строке

            какой строке? sLabel2.Caption?
            уверен, что ошибка именно в этом месте?
              ExpandedWrap disabled
                with DBGrid8.DataSource.DataSet.Fields do
                  if (i >= 0) and (i < Count) then
                    sLabel2.Caption := Fields[i].Value
                  else
                    sLabel2.Caption := '???'; //индекс вне диапазона
              1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
              0 пользователей:


              Рейтинг@Mail.ru
              [ Script execution time: 0,0209 ]   [ 15 queries used ]   [ Generated: 19.05.24, 04:37 GMT ]