Argument out of range

[angel546]

Добрый день. Мне нужна помощь в Делфи. Когда загружаю форму у меня возникает ошибка argument out of range. Что означает? Как ее исправить. Сейчас выложу код и формы.

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBGridEhGrouping, ToolCtrlsEh,
  DBGridEhToolCtrls, DynVarsEh, sDBNavigator, EhLibVCL, GridsEh, DBAxisGridsEh,
  DBGridEh, Vcl.ExtCtrls, sPanel, Vcl.StdCtrls, sButton, DBCtrlsEh, Vcl.Mask,
  DBLookupEh, sLabel, Vcl.Buttons, sSpeedButton, Vcl.ImgList, acAlphaImageList,
  sCheckBox;

type
  TForm2 = class(TForm)
    sPanel1: TsPanel;
    DBGridEh1: TDBGridEh;
    sDBNavigator1: TsDBNavigator;
    sLabel1: TsLabel;
    fio1: TDBLookupComboboxEh;
    fio2: TDBLookupComboboxEh;
    perS: TDBDateTimeEditEh;
    perPO: TDBDateTimeEditEh;
    sButton1: TsButton;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    sLabel4: TsLabel;
    sLabel5: TsLabel;
    podr: TDBComboBoxEh;
    filt: TsSpeedButton;
    sAlphaImageList1: TsAlphaImageList;
    post: TsCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
    procedure podrChange(Sender: TObject);
    procedure filtClick(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
    uses dm1;
{$R *.dfm}

procedure TForm2.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
// раскрашиваем
           if  DBGridEh1.DataSource.DataSet.FieldByName('deist').AsVariant =0 then
          DBGridEh1.Canvas.Brush.Color:= clLime;

        DBGridEh1.DefaultDrawColumnCell
          (Rect, DataCol, Column, State);
end;

procedure TForm2.filtClick(Sender: TObject);
begin
dm.zamech.Filtered:=False;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  dm1.DM.zamech.Active:=True;
  dm.Otv.Active:=True;
  dm.free.Active:=False;
  dm.free.SQL.Clear;
  dm.free.SQL.Add('SELECT  cex as otdel FROM Spisok union  SELECT  Cex as otdel  FROM Spisok  where cex <> null ; ') ;
  dm.free.Active:=True;
  podr.Items.Clear;
  while dm.free.Eof=false do
  begin
    podr.Items.Add(dm.free.Fields[0].AsString);
    dm.free.Next;
  end;
end;

procedure TForm2.podrChange(Sender: TObject);
begin
  fio1.ListSource.DataSet.Locate('otdel',podr.Text,[]);
  fio1.Text:=fio1.ListSource.DataSet.Fields[0].AsString;
  fio1.SetFocus
end;

procedure TForm2.sButton1Click(Sender: TObject);
begin

   if podr.Text='' then
     begin
       with CreateMessageDialog('Не указан номер подразделения!', mtError, [mbYes]) do
            try
               Caption := 'Неверные данные для записи';//Изменение заголовка окна
              (FindComponent('Yes') as TButton).Caption := 'Да';//Русификация кнопки "Yes"
              ShowModal;//Вызов диалогового окна в модальном режиме

            finally
              Free;
            end;
        abort
     end;


   if fio1.Text='' then
     begin
       with CreateMessageDialog('Не указана фамилия заменяемого!', mtError, [mbYes]) do
            try
               Caption := 'Неверные данные для записи';//Изменение заголовка окна
              (FindComponent('Yes') as TButton).Caption := 'Да';//Русификация кнопки "Yes"
              ShowModal;//Вызов диалогового окна в модальном режиме

            finally
              Free;
            end;
        abort
     end;

   if fio2.Text='' then
     begin
       with CreateMessageDialog('Не указана фамилия замещающего!', mtError, [mbYes]) do
            try
               Caption := 'Неверные данные для записи';//Изменение заголовка окна
              (FindComponent('Yes') as TButton).Caption := 'Да';//Русификация кнопки "Yes"
              ShowModal;//Вызов диалогового окна в модальном режиме

            finally
              Free;
            end;
        abort
     end;

    if perS.value<>null   and post.Checked=False then
     begin
       with CreateMessageDialog('Не указано начало периода замещения!', mtError, [mbYes]) do
            try
               Caption := 'Неверные данные для записи';//Изменение заголовка окна
              (FindComponent('Yes') as TButton).Caption := 'Да';//Русификация кнопки "Yes"
              ShowModal;//Вызов диалогового окна в модальном режиме

            finally
              Free;
            end;
        abort
     end;

   //записываем данные

  dm.zamech.Insert;
  dm.zamech.Fields[1].AsString:=fio1.Text;
  dm.zamech.Fields[2].AsString:=fio2.Text;
  if perS.Value<>null then
     dm.zamech.Fields[3].AsDateTime:=perS.Value;
  if perpo.Value<>null then
     dm.zamech.Fields[4].AsDateTime:=perpo.Value;
  dm.zamech.Fields[7].AsBoolean:=post.Checked;
  dm.zamech.Fields[5].AsString:=podr.Text;
  dm.zamech.Fields[6].AsBoolean:=True;
  dm.zamech.Post;

 with CreateMessageDialog('Данные записаны!', mtInformation, [mbYes]) do
            try
               Caption := 'Неверные данные для записи';//Изменение заголовка окна
              (FindComponent('Yes') as TButton).Caption := 'Хорошо';//Русификация кнопки "Yes"
              ShowModal;//Вызов диалогового окна в модальном режиме

 finally
   Free;
 end;

end;

end.

[rita616]

Попробуйте поле цикла поставить Break;

while dm.free.Eof=false do
  begin
    podr.Items.Add(dm.free.Fields[0].AsString);
    dm.free.Next;
  end;
Break;

[evg_m]

ошибка argument out of range

out of range -- вне диапазона
вы где-то пытаетесь обратиться к несуществующему элементу списка.
(TCombobox.items)

    fio1: TDBLookupComboboxEh;
    fio2: TDBLookupComboboxEh;
    podr: TDBComboBoxEh;
    DBGridEh1: TDBGridEh; // при использовании "супер" колонок

dm.zamech.Fields[6] // если число полей НД(dataset) меньше.

[angel546]

evg_m, как исправить?

[macomics]

А у вас точно вот тут нумерация начинается с 1

  dm.zamech.Fields[1].AsString:=fio1.Text;
  dm.zamech.Fields[2].AsString:=fio2.Text;
  if perS.Value<>null then
     dm.zamech.Fields[3].AsDateTime:=perS.Value;
  if perpo.Value<>null then
     dm.zamech.Fields[4].AsDateTime:=perpo.Value;
  dm.zamech.Fields[7].AsBoolean:=post.Checked;
  dm.zamech.Fields[5].AsString:=podr.Text;
  dm.zamech.Fields[6].AsBoolean:=True;

Скорее всего поля в Fields нумеруются с 0 и поэтому по нажатию на кнопку Применить строка

  dm.zamech.Fields[7].AsBoolean:=post.Checked;

дает ошибку out of range

Вы можете поставить точку остановки в обработчике кнопки применить: щелкните справа по строке с begin у ее номера и она станет красной. В таком случае при нажатии на кнопку Применить программа остановится и вы сможете пройти этот обработчик по шагам строчка за строчкой (используя клавиши F7 и F8). Так вы сможете увидеть точную строку, которая вызывает ошибку.

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

procedure TForm2.podrChange(Sender: TObject);
begin
  fio1.ListSource.DataSet.Locate('otdel',podr.Text,[]);
  fio1.Text:=fio1.ListSource.DataSet.Fields[0].AsString;
  fio1.SetFocus
end;

Вот тут вы например адресуете поля Fields начиная с 0