[Danielgrey825]

Всем добрый день! Пишу курсовую, проделала многое, осталось совсем ничего, но уже третий день пытаюсь решить последнюю проблему-не получается входящие данные из Edit перевести в StringGrid. Написала процедуры, по-моему все верно. Но запуталась в типах переменных. Код предоставляю, очень расчитываю на то, что мне помогут




Конкретно вот:
Код:

Код:

procedure TForm1.Button7Click(Sender: TObject);
var
a,b:string;

begin
edit12.Text:=a;
edit13.Text:=b;
Si.GetData(a,b);
SiL.ViewList2(StringGrid3);

end;

Это в основном юните, вызываю процедуру GetData и ViewList.

Код:

Код:

implementation
Constructor TSpecialnosti.Create(K:integer; n:String);
    begin
      Kod:=K;
      nazva:=n;
    end;

procedure TSpecialnosti.Header(SG:TStringGrid);
  begin
     with SG do
      begin
        Cells[0,0]:='Код';
        Cells[1,0]:='Назва';
      end;
  end;

procedure TSpecialnosti.GetData(var K,n:string);
     begin
      K:=inttostr(Kod);
      n:= nazva;
     end;


   procedure TSpecialnostiList.ViewList2(SG: TStringGrid);
 var
     i: integer;
     K_,n_:string;
begin
      for i:=0  to Count-1 do
          begin
           Si:= TSpecialnosti(Items[i]);
           Si.GetData( K_,n_);
             with SG do
                begin
                Cells[0, i+1]:= IntToStr(i);
                Cells[1, i+1]:= K_;
                Cells[2, i+1]:= n_;
                end;

          end;

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