пишу курсовую

[Danielgrey825]

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

[Stilet]

очень расчитываю на то, что мне помогут)

Дай угадаю: Искать тот самый код, что перегоняет из эдита в грид должны мы?
Может хотя бы расскажешь что и как ты в эдит вводишь? Через какие промежутки или разделители?

[Danielgrey825]

Я скинул всю программу, что бы было легче и понятнее что к чему.
Конкретно вот:

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;

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