Ошибка при запуске моей процедуры

[edsjeka]

При вызове процедуры выскакивает ошибка:

[Iron Monk]

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

При вызове процедуры выскакивает ошибка:

Согласен...

[edsjeka]

Не могу понять почему. В процедуру не заходит, ошибка выбивает в строке где я вызываю процедуру.

[Iron Monk]

Кода не будет?

[edsjeka]

Код:

PHP код:

 private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMSpravochniki: TFMSpravochniki;
  procedure InsSprModeleyartridgey();
implementation

{$R *.dfm}

uses DataModul;


procedure InsSprModeleyartridgey();

 var i,j,ind:integer;
     SG: TStringGrid;
begin
  DataModule1.SQLConnection1.Connected:=false;
    DataModule1.SQLQuery1.Close;
    DataModule1.ClientDataSet2.Active:=false;

    DataModule1.SQLQuery1.SQL.Text:='Select * From sprmodeleycartridgey Order By ModelCartridga';
    DataModule1.SQLConnection1.Connected:=true;
    DataModule1.SQLQuery1.Active:=true;
    DataModule1.ClientDataSet2.Active:=true;

    SG.RowCount:=DataModule1.SQLQuery1.RecordCount;
    SG.ColCount:=DataModule1.SQLQuery1.FieldCount;

    SG.ColWidths[0]:=25;
    SG.ColWidths[1]:=170;
    SG.ColWidths[2]:=50;
    SG.ColWidths[3]:=50;
    SG.ColWidths[4]:=100;
    SG.ColWidths[5]:=70;
    SG.ColWidths[6]:=250;

    SG.Cells[1,0]:='Модель картриджа';
    SG.Cells[2,0]:='Ресурс';
    SG.Cells[3,0]:='Масса тонера';
    SG.Cells[4,0]:='Индекс картриджа';
    SG.Cells[5,0]:='Совм.тонер';
    SG.Cells[6,0]:='Совместимые аппараты';
     i:=0;
     j:=1;

        with  DataModule1.ClientDataSet2 do    // цикл по строкам справочника моделей картриджей
         begin
          First;
          while not Eof do
           begin

               SG.Cells[i,j]:=DataModule1.ClientDataSet2.FieldValues['IDModelCartridga'];
               SG.Cells[i+1,j]:=DataModule1.ClientDataSet2.FieldValues['ModelCartridga'];
               SG.Cells[i+2,j]:=DataModule1.ClientDataSet2.FieldValues['Resurs'];
               SG.Cells[i+3,j]:=DataModule1.ClientDataSet2.FieldValues['MassaTonera'];

               SG.Cells[i+5,j]:=DataModule1.ClientDataSet2.FieldValues['SovmToner'];
               SG.Cells[i+6,j]:=DataModule1.ClientDataSet2.FieldValues['SovmApparats'];

                DataModule1.SQLConnection1.Connected:=false;
                DataModule1.SQLQuery2.Close;
                DataModule1.ClientDataSet3.Active:=false;
                ind:=DataModule1.ClientDataSet2.FieldValues['IDIndexa'];
                DataModule1.SQLQuery2.SQL.Text:='Select * From SprIndexov Where IdIndexa='+IntToStr(ind);
                DataModule1.SQLConnection1.Connected:=true;
                DataModule1.SQLQuery2.Active:=true;
                DataModule1.ClientDataSet3.Active:=true;
                SG.Cells[i+4,j]:=DataModule1.SQLQuery2.FieldValues['Index'];

              j:=j+1;
             Next;
           end;
         end;

end;

procedure TFMSpravochniki.FormShow(Sender: TObject);
begin
PageControl1.Pages[0].Caption:='Справочники';
end;

procedure TFMSpravochniki.ListBox1Click(Sender: TObject);
{var i,j,ind:integer;}
begin
 if ListBox1.Items[ListBox1.ItemIndex] = 'Справочник моделей картриджей' then
  begin
   InsSprModeleyartridgey();
  end; 


[Iron Monk]

Это всё зачем?

    DataModule1.SQLConnection1.Connected:=false;
    DataModule1.SQLQuery1.Close;
    DataModule1.ClientDataSet2.Active:=false;

...
    DataModule1.SQLConnection1.Connected:=true;
    DataModule1.SQLQuery1.Active:=true;
    DataModule1.ClientDataSet2.Active:=true;

DataModule1.SQLQuery1.Open не достаточно?

[edsjeka]

Сообщение от Iron Monk

Это всё зачем?

    DataModule1.SQLConnection1.Connected:=false;
    DataModule1.SQLQuery1.Close;
    DataModule1.ClientDataSet2.Active:=false;

...
    DataModule1.SQLConnection1.Connected:=true;
    DataModule1.SQLQuery1.Active:=true;
    DataModule1.ClientDataSet2.Active:=true;

DataModule1.SQLQuery1.Open не достаточно?

Если честно еще точно не знаю, я еще только разбираюсь в этом. Спасибо, что подсказали.
Но дело не в этом, я пытаюсь вставить в процедуру часть кода который будет повторяться и у меня при вызове процедуры выбивает ошибку, а без процедуры, если просто в программе, то этот кусок работает нормально.

[Iron Monk]

procedure TFMSpravochniki.InsSprModeleyartridgey();

[evg_m]

procedure InsSprModeleyartridgey();

 var i,j,ind:integer;
     SG: TStringGrid; 

ЧИТАЙТЕ Warning компилятора. (и исправляйте!!!)

[Warning] Unit1.pas(29): Variable 'n' might not have been initialized

Обращение к НЕИНИЦИАЛИЗОВАННОЙ переменной.
P.S. выделена та переменная которая не инициализирована.

а как его задать если он ЕСТЬ на другой форме (в другом unit-e) ?
ответ
либо указать его как параметр данной процедуры.

[edsjeka]

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

procedure InsSprModeleyartridgey();

 var i,j,ind:integer;
     SG: TStringGrid; 

ЧИТАЙТЕ Warning компилятора. (и исправляйте!!!)

Обращение к НЕИНИЦИАЛИЗОВАННОЙ переменной.
P.S. выделена та переменная которая не инициализирована.

Я понял. А как мне ее правильно инициализировать? Если я ее не описываю в переменных, она вообще не доступна, а мне нужно работать с этим компонентом StringGrid в процедуре, как сделать, чтобы процедура могла с ней работать?