[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;

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

[lmikle]

какая ошибка? Случаем не out of bounds?

[Danielgrey825]

нет, вот это

[Alegun]

...Написала процедуры, по-моему все верно...

Код:

procedure TForm1.Button7Click(Sender: TObject);
var
a, b: string;
begin
 Edit12.Text:= a; // Вот здесь надо наоборот, a:= Edit12.Text;
 Edit13.Text:= b; // и тут b:= Edit13.Text;
 Si.GetData(a, b);
 SiL.ViewList2(StringGrid3);
end;

или сразу

Код:

Si.GetData(Edit12.Text, Edit13.Text);

и ещё, не пойму, а где в FormCreate примерно такая строчка

Код:

Si:= TSpecialnosti.Create(0, '');

наверное, ошибка из-за этого.

[Danielgrey825]

спасибо, помогло! но появилась новая проблема, с которой попробую разобраться сам